<![CDATA[怪石网络图书馆]]> http://hi.baidu.com http://hi.baidu.com http://img.baidu.com/img/logo-hi.gif http://hi.baidu.com/%B9%D6%CA%AF zh-cn www.baidu.com 5 <![CDATA[比较ASP生成静态HTML文件的几种方法]]> 比较ASP生成静态HTML文件的几种方法
2007-06-06 13:40:54 来源:中国站长站 作者:ating整理 【大 中 小】 评论：8 条

将动态页面转换生成静态Html文件有许多好处，比如生成html网页有利于被搜索引擎收录（特别是对接受动态参数的页面）。前台访问时，脱离了数据访问,减轻对数据库访问的压力，加快网页打开速度。

当然，凡事有利必有弊，生成HTML页面无形中也耗费大量的磁盘空间以存放这些静态文件，在编辑页面过程中除读写数据库外，也要读写服务器磁盘，页面样式的改动必须重新生成全部HTML文件，等等。

像很多搜索引擎，都可以提交网站的页面地址列表，动态文件的收录问题已经不算是个问题了（如google sitemap）。得失就要自己衡量把握了，但无论如何，我们还是要懂得如何操作的。这里就引用一下别人的文章说明几种常见的生成思路，供大家参考参考。

1、下面这个例子直接利用FSO把html代码写入到文件中然后生成.html格式的文件 。这是最原始的，优点是简单，缺点是页面的修改不方便，我一般用到的地方是利用它生成整站参数文件。（通常网站如标题，名称等配置保存在数据库，我将它生成config.asp保存这些变量调用，避免频繁访问数据库）

以下为引用的内容：

＜%
filename="test.htm"
if request("body")＜>"" then
set fso = Server.CreateObject("Scripting.FileSystemObject")
set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&""))
htmlwrite.write "＜html>＜head>＜title>" & request.form("title") & "＜/title>＜/head>"
htmlwrite.write "＜body>输出Title内容: " & request.form("title") & "＜br /> 输出Body内容:" & request.form("body")& "＜/body>＜/html>"
htmlwrite.close
set fout=nothing
set fso=nothing
end if
%>
＜form name="form" method="post" action="">
＜input name="title" value="Title" size=26>
＜br>
＜textarea name="body">Body＜/textarea>
＜br>
＜br>
＜input type="submit" name="Submit" value="生成html">
＜/form>

2、但是按照上面的方法生成html文件非常不方便，第二种方法就是利用模板技术，将模板中特殊代码的值替换为从表单或是数据库字段中接受过来的值，完成模板功能，将最终替换过的所有模板代码生成HTML文件。这种技术采用得比较多，大部分的CMS都是使用这类方法。

以下为引用的内容：

template.htm ' //模板文件
＜html>
＜head>
＜title>$title$ by webjx.com＜/title>
＜/head>
＜body>
$body$
＜/body>
＜/html>
TestTemplate.asp '// 生成Html
＜%
Dim fso,htmlwrite
Dim strTitle,strContent,strOut
'// 创建文件系统对象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'// 打开网页模板文件，读取模板内容
Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))
strOut=f.ReadAll
htmlwrite.close
strTitle="生成的网页标题"
strContent="生成的网页内容"
'// 用真实内容替换模板中的标记
strOut=Replace(strOut,"$title$",strTitle)
strOut=Replace(strOut,"$body$",strContent)
'// 创建要生成的静态页
Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)
'// 写入网页内容
htmlwrite.WriteLine strOut
htmlwrite.close
Response.Write "生成静态页成功！"
'// 释放文件系统对象
set htmlwrite=Nothing
set fso=Nothing
%>

3、第三种方法就是用XMLHTTP获取动态页生成的HTML内容，再用ADODB.Stream或者Scripting.FileSystemObject保存成html文件。找到一段XMLHTTP生成Html的代码参考一下。

以下为引用的内容：

＜%
'常用函数
'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
end function

'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换

Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
txtURL=server.MapPath("../index.asp")
sText = getHTTPPage(txtURL)
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
filename="../index.htm"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true为不存在自行建立
openFile.writeline(sText)
Set OpenFile=nothing
%>
＜script>
alert("静态网页生成完毕");
history.back();
＜/script>

小结，这三种方式是比较常用的生成HTML文件方法，我个比较喜欢使用第三种方式，因为页面改动时非常方便，就算动态页改动多大都好，只要重新用XMLHTTP读取生成一次即可。


类别：默认分类 查看评论]]> 2009-09-07 11:16 http://hi.baidu.com/%B9%D6%CA%AF/blog/item/54b4acfd3a7c271f09244df7.html <![CDATA[ASP生成Html函数，不用模板]]> ASP生成Html函数，不用模板
2009年02月16日 星期一 上午 00:16

<%
Function MakeHtml(strURL,strTo)
   on error resume next
   response.write "开始生成静态页面..."
   strHtml = GetPage(strURL)
   
   Set fs=Server.CreateObject("Scripting.FileSystemObject")
   '要存放的页面地址
   strAddress=server.MapPath(strTo)
   '如果文件存在则删除旧文件
   If (fs.FileExists(strAddress)) Then fs.DeleteFile(strAddress)
   
   Set mHtml=fs.CreateTextFile(strAddress)
   mHtml.Writeline(strHtml)
   set mHtml=nothing
   set fs=nothing
   response.write "...<font color=red>生成静态页面<"&strTo&">成功！</font>"  
End Function

'######获取要生成动态页地址######
Function GetPage(url)
    '获得文件内容
    dim Retrieval
    Set Retrieval = CreateObject("Microsoft.XMLHTTP")
    With Retrieval
    .Open "Get", url, False,"", ""
    .Send
    GetPage = BytesToBstr(.ResponseBody)
    End With
    Set Retrieval = Nothing
End Function

'######转换字符######
Function BytesToBstr(body)
    dim objstream
    set objstream = Server.CreateObject("adodb.stream")
    objstream.Type = 1
    objstream.Mode =3
    objstream.Open
    objstream.Write body
    objstream.Position = 0
    objstream.Type = 2
    objstream.Charset = "GBK"
    BytesToBstr = objstream.ReadText
    objstream.Close
    set objstream = nothing
End Function
%>

保存为MakeHtml.inc.asp

使用方法：

      在要实现生成静态功能的页面头部添加

      <!--#include file="<你存放的路径>/makehtml.inc.asp"-->

      在需要调用生成静态页面的地方添加

      MakeHtml “http://localhost/index.asp","/index.html"

      上面的路径换成你自己的，这样即可无模板生成静态页面。不过这种方法比较耗资源，生成速度慢，但是简单易上手。

类别：网络程序 查看评论]]> 2009-09-07 07:34 http://hi.baidu.com/%B9%D6%CA%AF/blog/item/57e8f350d98630551138c242.html <![CDATA[asp防盗连技术]]> ASP防盗链综合实例

默认分类   2009-07-30 19:49    阅读17    评论0
字号： 大 中 小

<%

'盗链判断

Dim server_v1,server_v2

server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))

server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))

If Mid(server_v1,8,len(server_v2))<>server_v2 Then

Response.Write "非法的盗链"

Response.End

End If

Dim url, body, myCache

url = Request.QueryString("url")

   Set myCache = new cache

   myCache.name = "picindex"&url

   If myCache.valid Then

           body = myCache.value

   Else

           body = GetWebData(url)

           myCache.add body,dateadd("d",1,now)

   End If

   If Err.Number = 0 Then

         Response.CharSet = "UTF-8"

         Response.ContentType = "application/octet-stream"

         Response.BinaryWrite body

         Response.Flush

   Else

         Wscript.Echo Err.Description

   End if

'取得数据

Public Function GetWebData(ByVal strUrl)

Dim curlpath

curlpath = Mid(strUrl,1,Instr(8,strUrl,"/"))

Dim Retrieval

Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "Get", strUrl, False,"",""

.setRequestHeader "Referer", curlpath

.Send

GetWebData =.ResponseBody

End With

Set Retrieval = Nothing

End Function

'cache类

class Cache

         private obj                                 'cache内容

         private expireTime                 '过期时间

         private expireTimeName         '过期时间application名

         private cacheName                 'cache内容application名

         private path                         'url

        

         private sub class_initialize()

                 path=request.servervariables("url")

                 path=left(path,instrRev(path,"/"))

         end sub

        

         private sub class_terminate()

         end sub

        

         public property get blEmpty

                 '是否为空

                 if isempty(obj) then

                         blEmpty=true

                 else

                         blEmpty=false

                 end if

         end property

        

         public property get valid

                 '是否可用(过期)

                 if isempty(obj) or not isDate(expireTime) then

                         valid=false

                 elseif CDate(expireTime)<now then

                                 valid=false

                 else

                         valid=true

                 end if

         end property

        

         public property let name(str)

                 '设置cache名

                 cacheName=str & path

                 obj=application(cacheName)

                 expireTimeName=str & "expires" & path

                 expireTime=application(expireTimeName)

         end property

        

         public property let expires(tm)

                 '重设置过期时间

                 expireTime=tm

                 application.lock

                 application(expireTimeName)=expireTime

                 application.unlock

         end property

        

         public sub add(var,expire)

                 '赋值

                 if isempty(var) or not isDate(expire) then

                         exit sub

                 end if

                 obj=var

                 expireTime=expire

                 application.lock

                 application(cacheName)=obj

                 application(expireTimeName)=expireTime

                 application.unlock

         end sub

        

         public property get value

                 '取值

                 if isempty(obj) or not isDate(expireTime) then

                         value=null

                 elseif CDate(expireTime)<now then

                         value=null

                 else

                         value=obj

                 end if

         end property

        

         public sub makeEmpty()

                 '释放application

                 application.lock

                 application(cacheName)=empty

                 application(expireTimeName)=empty

                 application.unlock

                 obj=empty

                 expireTime=empty

         end sub

        

         public function equal(var2)

                 '比较

                 if typename(obj)<>typename(var2) then

                         equal=false

                 elseif typename(obj)="Object" then

                         if obj is var2 then

                                 equal=true

                         else

                                 equal=false

                         end if

                 elseif typename(obj)="Variant()" then

                         if join(obj,"^")=join(var2,"^") then

                                 equal=true

                         else

                                 equal=false

                         end if

                 else

                         if obj=var2 then

                                 equal=true

                         else

                                 equal=false

                         end if

                 end if

         end function

end class

%>

第一种:

终于对下载系统做了个防盗链措施，在下载的页面头部做了如下代码，相关代码如下：

<%

From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))

Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))

if mid(From_url,8,len(Serv_url)) <> Serv_url and mid(From_url,8,len(Serv_url))<>"ITstudy.cn" and mid(From_url,8,len(Serv_url))<>"www.ITstudy.cn" then

response.write "您下载的软件来自IT学习网，请直接从主页下载，谢谢<br>" ’防止盗链

response.write "<a href=http://www.ITstudy.cn>IT学习网http://www.ITstudy.cn</a>" ’防止盗链

response.end

end if

%>

第二种:

<%  

   ’定义函数，用ADODB.Stream读取二进制数据  

   Function ReadBinaryFile(FileName)  

    Const adTypeBinary = 1  

    Dim BinaryStream  

    Set BinaryStream = CreateObject("ADODB.Stream")  

    BinaryStream.Type = adTypeBinary  

    BinaryStream.Open  

    BinaryStream.LoadFromFile FileName  

    ReadBinaryFile = BinaryStream.Read  

   End Function  

    

   Response.AddHeader "Content-Disposition", "attachment;filename=2.gif"’文件名  

   Response.ContentType = "image/GIF" ’设置（1）  

   response.Binarywrite ReadBinaryFile(server.mappath("2.gif"))’就是你读取存在本地的文件，防止被

别人知道真实路径盗连的。  

    

   %>  

（1）下面的示例将 ContentType 属性设置为其他的常见值。  

   text/HTML 这个就不说了  

   image/GIF gif图片  

   image/JPEG jpg图片  

   application/x-cdf cdf文档  

   application/wma 就是西瓜哪个音乐类型了  

   具体可以参照 Web 浏览器文档或当前的 HTTP 规格说明  

    

   这样再利用asp的储存session，cookies，以及读取HTTP头等特殊功能就可以完全真正的实现防盗连，这里

没有设置缓存，如果访问量巨大，我想设置下就会更好吧。  

第三种:

最简单的用Active Server Pages防站外提交表单、跨站提交表单、防盗链……

方法：Request.SeverVariables("HTTP_REFERER")

解释：当某人通过链接到达当前页，HTTP_REFERER 就保存了这个用户的来源（来路）

举个例子，这个例子很简单，只是抛砖引玉而已，大家可以增加更多的功能。

如下，只有首先从“ http://www.ITstudy.cn”登陆才能看到文件内容。

源码：index.asp

<html>

<head><title>最简单的用asp防盗链</title></head>

<body>

<%

Option.Explicit

Response.Buffer=Ture

%>

<%

CheckUrl("http://ITstudy.cn/index.jsp")

%>

<%

Function CheckUrl(url)

Dim Where:Where=Request.SeverVariables("HTTP_REFERER")

If Where=url Then

   Call main()

Else

   Response.write("很抱歉，您必须从"&url&"访问才能进来！")

End if

End Function

%>

<%

Sub main()

Response.write("这儿是你要显示的网页内容")

End sub

%>

</body>

</html>

该方法对防止盗链文章、站外提交表单、跨站提交表单还比较有效，对于软件盗链比如.rar.zip.exe等倒没什么作用。

不知各位读者是否有好的主意，呵呵。  

还有一种方法就是用判断服务器及上一页的地址来完成。

<%

dim from, local

from = request.ServerVariables("HTTP_REFERER")

local = request.ServerVariables("SERVER_NAME")

If mid(from, 8, local)<>Len(local) Then

   response.write "不要从外部提交数据"

else

   call main()

end if

sub main()

’你的主体内容

end sub

%>


类别：网络程序 查看评论]]> 2009-08-23 13:16 http://hi.baidu.com/%B9%D6%CA%AF/blog/item/f63f55c2e9e2483ce5dd3b9d.html <![CDATA[各种网站建设500起，有诚意请联系13410422984]]> 本人是从事网站开发多年，一般的网站一两天之内都可以搞定，全新代码调用函数，使用起来方便，网站后台功能完全，几乎所有的功能都可以实现。可根据用户要求选择ASP/PHP/。NET，联系网站，http://kongjian114.cn,同时本人还运营有一商城http://szpjshop.com上面有最新的便宜手机，MP3，以及服装产品欢迎大家前来选购。联系电话：13410422984，qq:277825884,258410999

听音乐上无忧音乐网http://51-music.com.cn 卖LV包包上http://coco-lv.cn

有上千种LV包包供你选择


类别：默认分类 查看评论]]> 2009-07-29 19:52 http://hi.baidu.com/%B9%D6%CA%AF/blog/item/2b4c13f7add51b2b730eec64.html <![CDATA[CSS常用布局实例]]>

CSS常用布局实例

一列
单行一列

body { margin: 0px; padding: 0px; text-align: center; }
#content { margin-left:auto; margin-right:auto; width: 400px; width: 370px; }

两行一列

body { margin: 0px; padding: 0px; text-align: center;}
#content-top { margin-left:auto; margin-right:auto; width: 400px; width: 370px;}
#content-end {margin-left:auto; margin-right:auto; width: 400px; width: 370px;}

三行一列

body { margin: 0px; padding: 0px; text-align: center; }
#content-top { margin-left:auto; margin-right:auto; width: 400px; width: 370px; }
#content-mid { margin-left:auto; margin-right:auto; width: 400px; width: 370px; }
#content-end { margin-left:auto; margin-right:auto; width: 400px; width: 370px; }

两列
单行两列

#bodycenter { width: 700px;margin-right: auto; margin-left: auto;overflow: auto; }
#bodycenter #dv1 {float: left;width: 280px;}
#bodycenter #dv2 {float: right;width: 410px;}

两行两列

#header{ width: 700px; margin-right: auto;margin-left: auto; overflow: auto;}
#bodycenter { width: 700px; margin-right: auto; margin-left: auto; overflow: auto; }
#bodycenter #dv1 { float: left; width: 280px;}
#bodycenter #dv2 { float: right;width: 410px;}

三行两列

#header{ width: 700px;margin-right: auto; margin-left: auto; }
#bodycenter {width: 700px; margin-right: auto; margin-left: auto; }
#bodycenter #dv1 { float: left;width: 280px;}
#bodycenter #dv2 { float: right; width: 410px;}
#footer{ width: 700px; margin-right: auto; margin-left: auto; overflow: auto; }

三列
单行三列
绝对定位

#left { position: absolute; top: 0px; left: 0px; width: 120px; }
#middle {margin: 20px 190px 20px 190px; }
#right {position: absolute;top: 0px; right: 0px; width: 120px;}

float定位

xhtml:

<div id="warp">
<div id="column">
<div id="column1">这里是第一列</div>
<div id="column2">这里是第二列</div>
<div class="clear"></div>
</div>
<div id="column3">这里是第三列</div>
<div class="clear"></div>
</div>

CSS:

#wrap{ width:100%; height:auto;}
#column{ float:left; width:60%;}
#column1{ float:left; width:30%;}
#column2{ float:right; width:30%;}
#column3{ float:right; width:40%;}
.clear{ clear:both;}

float定位二

xhtml:

<div id="center" class="column">
<h1>This is the main content.</h1>
</div>
<div id="left" class="column">
<h2>This is the left sidebar.</h2>
</div>
<div id="right" class="column">
<h2>This is the right sidebar.</h2>
</div>

CSS:

body {margin: 0;padding-left: 200px;padding-right: 190px;min-width: 240px;}
.column {position: relative;float: left;}
#center {width: 100%;}
#left {width: 180px; right: 240px;margin-left: -100%;}
#right {width: 130px;margin-right: -100%;}

两行三列

xhtml:

<div id="header">这里是顶行</div>
<div id="warp">
<div id="column">
<div id="column1">这里是第一列</div>
<div id="column2">这里是第二列</div>
<div class="clear"></div>
</div>
<div id="column3">这里是第三列</div>
<div class="clear"></div>
</div>

CSS:

#header{width:100%; height:auto;}
#wrap{ width:100%; height:auto;}
#column{ float:left; width:60%;}
#column1{ float:left; width:30%;}
#column2{ float:right; width:30%;}
#column3{ float:right; width:40%;}
.clear{ clear:both;}

三行三列

xhtml:

<div id="header">这里是顶行</div>
<div id="warp">
<div id="column">
<div id="column1">这里是第一列</div>
<div id="column2">这里是第二列</div>
<div class="clear"></div>
</div>
<div id="column3">这里是第三列</div>
<div class="clear"></div>
</div>
<div id="footer">这里是底部一行</div>

CSS:

#header{width:100%; height:auto;}
#wrap{ width:100%; height:auto;}
#column{ float:left; width:60%;}
#column1{ float:left; width:30%;}
#column2{ float:right; width:30%;}
#column3{ float:right; width:40%;}
.clear{ clear:both;}
#footer{width:100%; height:auto;}

PS:这里列出的是常用的例子，而非研究之用，对一每个盒子，我都没有设置margin,padding,boeder等属性，是因为我个人觉得，含有宽度定位的时候，最好不好用到他们，除非必不得已，因为如果不是这样的话，解决浏览器兼容问题，会让你头疼，而且产生一系列CSS代码，我觉得这样的效率和效果都不好！

3.CSS布局高级技巧

margin和padding总是有可能要用到，而产生的问题如何解决呢？由于浏览器解释容器宽度的方法不同：

IE 6.0 Firefox Opera等是
真实宽度=width+padding+border+margin
IE5.X
真实宽度=width-padding-border-margin

很明显，第一种下很完美的布局在第二种情况下后果是很凄惨的！

解决的方法是 hack


div.content {
width:400px; //这个是错误的width，所有浏览器都读到了
voice-family: "\"}\""; //IE5.X/win忽略了"\"}\""后的内容
voice-family:inherit;
width:300px; //包括IE6/win在内的部分浏览器读到这句，新的数值(300px)覆盖掉了旧的
}
html>body .content { //html>body是CSS2的写法
width:300px; //支持CSS2该写法的浏览器(非IE5)有幸读到了这一句
}

div.content {
width:300px !important; //这个是正确的width，大部分支持!important标记的浏览器使用这里的数值
width(空格)/**/:400px; //IE6/win不解析这句，所以IE6/win仍然认为width的值是300px；而IE5.X/win读到这句，新的数值(400px)覆盖掉了旧的，因为!important标记对他们不起作用
}
html>body .content { //html>body是CSS2的写法
width:300px; //支持CSS2该写法的浏览器有幸读到了这一句
}

具体解释点击下面链接查看

www.blueidea.com/tech/site/2006/3170.asp
www.jluvip.com/blog/article.asp?id=114

列等高技巧

n行n列布局，每列高度（事先并不能确定哪列的高度）的相同，是每个设计师追求的目标，做法有：背景图填充、加JS脚本的
方法和容器溢出部分隐藏和列的负底边界和正的内补丁相结合的方法。

背景图填充法：

xhtml:

<div id="wrap">
<div id="column1">这是第一列</div>
<div id="column1">这是第二列</div>
<div class="clear"></div>
</div>

css:

#wrap{ width:776px; background:url(bg.gif) repeat-y 300px;}
#column1{ float:left; width:300px;}
#column2{ float:right; width:476px;}
.clear{ clear:both;}

就是将一个npx宽的一张图片在外部容器纵向重复，定位到两列交错的位置纵向重复，在视觉上产生了两列高度一样的错觉

JS脚本法：

www.blueidea.com/bbs/NewsDetail.asp?id=2453983
代码的原理基本就是这样，读取高度，判断高度，高度相等。

容器溢出部分隐藏和列的负底边界和正的内补丁相结合的方法

这篇文章说的很详细了：

www.blueidea.com/tech/web/2006/3210.asp

还有：

www.jluvip.com/blog/article.asp?id=151

满屏高度布局（最窄770px最宽1024px经典布局）

www.blueidea.com/tech/web/2005/3124.asp

今天和一个网友两天，他提到：给一个外国公司做网站，要求1.800x600满屏。2.1024x767满屏。3.1280下居中。4.不许用JS。
我突然想起了这篇文章，哈哈！把它感觉不可思议的事情解决了！但是好像对于IE5有点问题啊！
参考资料：http://bbs.blueidea.com/viewthread.php?tid=2506047
类别：默认分类 查看评论]]> 2009-04-18 12:05 http://hi.baidu.com/%B9%D6%CA%AF/blog/item/2782347394bcc6148701b084.html <![CDATA[PHP生成excle]]> 用php生成excel文件
PHP代码:
  1. <?
  3.    header("Content-type:application/vnd.ms-excel");
  5.    header("Content-Disposition:filename=test.xls");
  7.    echo "test1t";
  9.    echo "test2tn";
  11.    echo "test1t";
  13.    echo "test2tn";
  15.    echo "test1t";
  17.    echo "test2tn";
  19.    echo "test1t";
  21.    echo "test2tn";
  23.    echo "test1t";
  25.    echo "test2tn";
  27.    echo "test1t";
  29.    echo "test2tn";
  31. ?>

在php环境运行上面的代码，大家就可以看到浏览器询问用户是否下载excel

文档，点击保存，硬盘上就多了一个excel的文件，使用excel打开就会看到

最终的结果，怎么样不错吧。

其实在做真正的应用的时候，大家可以将数据从数据库中取出，然后按照每

一列数据结束后加\t,每一行数据结束后加\n的方法echo出来，在php的开头

用header("Content-type:application/vnd.ms-excel");表示输出的是

excel文件，用header("Content-Disposition:filename=test.xls");表

示输出的文件名为text.xls。这样就ok了。

我们更可以修改header让他输出更多格式的文件，这样php在处理各种类型

文件方面就更加方便了。

类别：网络程序 查看评论]]> 2009-04-11 21:32 http://hi.baidu.com/%B9%D6%CA%AF/blog/item/145e1055ab3e8dccb745aefb.html <![CDATA[cookie欺骗教程]]>
查看文章
cookie欺骗教程（1）
2009-01-18 16:54
cookie欺骗教程（1）
              ---------产生一个COOKIE文件并改变它

    唉，很早就想点关于COOKIE的东东了，主要是网上有不少文章说半天其实也
没有多少实质的东西。
    首先大家明白什么是COOKIE，具体点说如果是98那么它们默认存放在C:\windows\cookies
目录下，如果是2k它们在C:\Documents and Settings\%你的用户名%\Cookies目录下（每个文件都不会超过4KB）
    它们的文件名格式为：你的用户名@产生的COOKIE的网页文件所在的WEB目录[COOKIE改变的次数].txt
    具体的例子：iwam_system@cookie[3].txt
    再来看一看一个最简单的COOKIE文件的内容：
    level
admin
www.locking.8u8.com/cookie/
0
1331699712
29536653
4044081984
29528196
*
   
    最前面的两段为服务器产生的COOKIE内容（level和admin）第三段为产生这个COOKIE文件的网站的域名和WEB目录
这儿就要注意了没有记录产生COOKIE文件的文件名！所以在同一个目录下不同文件产生的COOKIE是同一个文件只是每
产生一次COOKIE的文件名的中括号里的数字就要加1，后面的那些就不管它了我也不懂哈:)
    再来看看如何生成一个COOKIE我以vbs cript为例：

<s cript language=vbs>
document.cookie="level" & "=" & "user" & ";expires=Monday, 01-Jan-03 12:00:00 GMT"
msgbox document.cookie
</s cript>

   这儿我们特别人注意的是最后一段 ";expires=Monday, 01-Jan-03 12:00:00 GMT"这是用来说明产生的COOKIE文件的
有效时间的，如果没有那么这个COOKIE你将不会在本文开头所说的目录里找到它。这个例子中有效时间是2003年当然你

也就能在本地硬盘上找到它们了。
   另外当用document.cookie来得到COOKIE内容时设置COOKIE有效时间这一段将被忽略（当然这也方便了网站的COOKIE

*作）比如说上面将弹出一个内容为   level=user的对话框

好了现在我们来实战一下：
我的网站叫www.locking.8u8.com在它的COOKIE目录里有两个文件一个是admin1.htm内容就是上面的例子
还有一个文件叫level1.htm内容如下：
<s cript language=vbs>
co=document.cookie
le=mid(co,instr(co,"=")+1,len(co)-instr(co,"=")+1)
if le="user" then
msgbox "you are a user"
else
if le="admin" then
msgbox "you are a administrator"
else
msgbox "you not login"
end if
end if
</s cript>

当你先浏览admin1.htm后再浏览level1.htm时将弹出一个对话框内容为："you are a user"，当你没有浏览过
admin1.htm而直接浏览level1.htm将说 "you not login" (注意有的人可能会先浏览admin1.htm后再直接在硬盘
上更改COOKIE的内容当然这样是不行的)

   好了我们的目标就是让我们能在浏览level1时弹个框框说 "you are a administrator" :)
   办法只有两个咯：1）把8u8黑了，然后找到那个level1.htm改了不就可以了不过本篇文章不做讨论哈
                   2）进行COOKIE欺骗，OK LET GO：）

-----------------------------------（我的系统环境一台2kserver+iis5）
第一步：自已做一个文件名叫admin2.htm吧内容如下
<s cript language=vbs>
document.cookie="level" & "=" & "admin" & ";expires=Monday, 01-Jan-03 12:00:00 GMT"
</s cript>
然后把它放入一个名叫COOKIE的可浏览目录中（COOKIE要位于根目录）

第二步：找到位于C:\WINNT\system32\drivers\etc下的hosts文件在它的后面加上如下一段：

127.0.0.1 www.locking.8u8.com

第三步：仿问www.locking.8u8.com/cookie/admin2.htm(这儿实际是仿问的本机的文件)

第四步：删除hosts中刚才我们添加的内容然后再清掉IE的历史记录

第五步：让我们再次仿问www.locking.8u8.com/cookie/level1.htm

   怎么样我们现在是 administrator了吧（注意仿问网站是一定要在前面加三个w）


COOKIE欺骗教程2
                 
                      -------------    利用winsocket编程发送伪造COOKIE

     在上一节中我所举的例子是一个存活期很长的COOKIE，对于这种
COOKIE他会生成在我们的本地盘上的，而对于那些关闭浏览器就失效
的COOKIE我们该怎样来进行欺骗伪造呢？
     首先我们应该知道在我第一节的例子中弹那个"you are a administrator"
框框的网页(level1.htm)其实是下载在我的本地然后执行的,也就是说
他对COOKIE的检验读取也是在本地，那如果是在远程服务器上呢？比如
一个ASP程序他又是如何读取我们的COOKIE的呢?
     先来看看基本的东东吧：当我们使用HTTP协议向远程主机发送一个
GET或是POST请求时，那么如果有这个域名的COOKIE存在(不管是在内存中
还是本地盘上的)都将和请求一起发送到服务器去.

下面的就是一个实际的例子:

GET /ring/admin.asp HTTP/1.1
Accept: */*
Accept-Language: zh-cn
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)
Host: 61.139.xx.xx
Connection: Keep-Alive
Cookie: level=user; ASPSESSIONIDSSTCRACS=ODMLKJMCOCJMNJIEDFLELACM

看到最后一行了吧:)

     然后我们再来看看服务器是如何进行COOKIE检验的，我举了一个简单的例子:
有两个ASP文件一个叫admin.asp，还有一个叫level.asp

-----------admin.asp------------------
<%response.write now()%>
<%response.write "<br>"%>
<%response.cookies("level")="user"%>
<%response.write "<html><s cript>document.write(document.cookie);</s cript></html>"%>

-----------cut here-------------------

-----------level.asp------------------
<%
if   Request.Cookies("level")<>"" then
response.write "<html><s cript>document.write(document.cookie);</s cript></html>"
if request.cookies("level")="user" then
response.write "<html><s cript>alert(<|>you are a user<|>);</s cript></html>"
else
     if request.cookies("level")="admin" then
response.write "<html><s cript>alert(<|>you are administrator!<|>);</s cript></html>"
set fso1=server.createobject("s cripting.filesystemobject")
set fil=fso1.opentextfile("d:\sms\ring\a.txt",8,true)
fil.writeline "you are admin!"
     end if
end if
else
response.write "<html><s cript>alert(<|>you are not login<|>);</s cript></html>"
end if
%>
-----------cut here-------------------

   说明:当你请求admin.asp时，将产生一个临时的COOKIE(你关闭浏览器就会失效),然后我们不关闭浏览器而
请求level.asp时它就会用request.cookies来提取你发出的请求里面的cookie,如果你的COOKIE里面的内容是
admin的话那么它将用fso对象在服务器产生一个记录文件(a.txt要注意的是我们在实验时要把目录设为可写)

   好了就介绍这么多吧，我们的目的就是让服务器产生a.txt并写入内容"you are admin"还是进行上一节的
域名欺骗吗?不是让我们写一个winsocket程序吧,Let GO:)

    下面是我们VB+WINSCOKET控件写的一个简单的例子的源代码:

-----------------------COOKIE SEND---------------------------------------
   Private Sub Command1_Click()
Winsock1.RemotePort = Text3.Text   <|>远程主机打开的端口一般都为80
Winsock1.RemoteHost = Text2.Text   <|>远程主机的域名也可以输IP
Winsock1.Connect                   <|>打开一个SOCKET连接
Command1.Enabled = False           <|>一次只能打开一个连接所以要让SEND按钮失效
End Sub

Private Sub winsock1_Connect()
      Winsock1.SendData Text1.Text <|>打开连接成功的话就发送数据
End Sub

Private Sub Command2_Click()
Winsock1.Close
Command1.Enabled = True            <|>关闭连接,让SEND按钮有效
End Sub


Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)     <|>接收数据,可以让我们检查数据是否发送成功
Dim tmpstr As String
Winsock1.GetData tmpstr
Text4.Text = tmpstr
End Sub

-----------------------CUT HERE--------------------------------------------

    好，再让我们看一看具体的过程吧:这儿要用到一个不错的程序WinSock Expert v0.3 beta 1

一步：打开一个IE然后再打开winsock expert选择监视刚才打开的IE窗口的数据包
二步: 在IE地址栏输http://61.139.xx.xx/ring/admin.asp,那个我将看到发出了如下数据

GET /ring/admin.asp HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*
Accept-Language: zh-cn
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)
Host: 61.139.xx.xx
Connection: Keep-Alive

      不要半闭窗口请http://61.139.xx.xx/ring/level.asp，我们又将看到发出了如下数据

GET /ring/level.asp HTTP/1.1
Accept: */*
Accept-Language: zh-cn
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)
Host: 61.139.xx.xx
Connection: Keep-Alive
Cookie: level=user; ASPSESSIONIDSSTCRACS=ODMLKJMCOCJMNJIEDFLELACM

三步： 好了对第二次发出的数据的最后一行Cookie: level=user; ASPSESSIONIDSSTCRACS=ODMLKJMCOCJMNJIEDFLELACM
就是我们要改的东东，由于level.asp中相应的COOKIE的检验语句为if request.cookies("level")="admin" then
所以我们只要把上面的数据的最后一行改成Cookie: level=admin; ASPSESSIONIDSSTCRACS=ODMLKJMCOCJMNJIEDFLELACM
就可以了，后面的东东很重要下面我再说明一下:)

四步: 把改过的数据拷到我编的程序的发送框里面输入端口和域名后。。。。。

五步：到服务器看看是不是生成了那个a.txt里面的内容为"you are admin!


好了不写了，主要还是自已多实验就可以了为了放便大家本文章的程序代码完全公开哈

1.admin.asp和level.asp:      http://locking.8u8.com/cookie/admin.txt和level.txt
2.cookieclient.exe及源代码: http://locking.8u8.com/cookie/cookiesend.zip
3.winsock expert: http://software.tom.com/download.asp?id=7500 或是 http://dxqsoft.myrice.com/

类别：网络程序 查看评论]]> 2009-04-06 21:19 http://hi.baidu.com/%B9%D6%CA%AF/blog/item/3894a8fb2383372a4e4aea69.html <![CDATA[http://www.prototypejs.org]]> http://www.prototypejs.org

管方网站下载最新AJAX学习


类别：默认分类 查看评论]]> 2009-03-19 10:00 http://hi.baidu.com/%B9%D6%CA%AF/blog/item/a593d9cee259d10b93457e7f.html <![CDATA[ASP字符串函数大全]]> ASP字符串函数大全
2008-03-08 05:29 P.M.

函数 语法 功能
Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。
Trim Trim(string) 将字符串前后的空格去掉
Ltrim Ltrim(string) 将字符串前面的空格去掉
Rtrim Rtrim(string) 将字符串后面的空格去掉
Mid Mid(string,start,length) 从string字符串的start字符开始取得length长度的字符串，如果省略第三个参数表示从start字符开始到字符串结尾的字符串
Left Left(string,length) 从string字符串的左边取得length长度的字符串
Right Right(string,length) 从string字符串的右边取得length长度的字符串
LCase LCase(string) 将string字符串里的所有大写字母转化为小写字母
UCase UCase(string) 将string字符串里的所有大写字母转化为大写字母
StrComp StrComp(string1,string2[，compare]) 返回string1字符串与string2字符串的比较结果，如果两个字符串相同，则返回0，如果小于则返回-1，如果大于则返回1
InStr InStr(string1,string2[,compare]) 返回string1字符串在string2字符串中第一次出现的位置
Split Split(string1,delimiter[,count[,start]]) 将字符串根据delimiter拆分成一维数组，其中delimiter用于标识子字符串界限。如果省略，使用空格("")作为分隔符。count返回的子字符串数目，-1指示返回所有子字符串。start为1执行文本比较；如果为0或者省略执行二进制比较。
Replace Replace(expression,find,replacewith[,compare[,count[,start]]]) 返回字符串，其中指定数目的某子字符串(find)被替换为另一个子字符串(replacewith)。


补充：

Asc Asc函数提取字符串第一个字母的ANSI字符码。
用法为：result = Asc(string)
其中result是字符码，string是任意有效的字符串表达式。如果string为Empty，则产生一个实时错误。

AscB AscB函数提取字符串的第一个字节。
用法为：result = AscB(string)
其中result是Byte字类，string是任意有效的字符串表达式。如果string为Empty，则产生一个实时错误。

AscW AscW函数提取字符串第一个字母的Unicode字符码。
用法为：result = AscW(string)
其中result是Unicode，string是任意有效的字符串表达式。如果string为Empty，则产生一个实时错误。

InStr InStr函数识别某个记号在字符串中的首字母位置。
用法为：newstart = InStr([start, ]source, token[, compare])
其中newstart时记号在字符串中的位置（如果没有的话则为0），start是查找的起始位置，source是要查找的字符串，token是要定位的字符串，compare是比较类型（0表示二进制比较，1表示忽略大小写的文本比较）。

InStrB InStrB函数是InStr的字节版，识别某个记号在字符串中的首字节位置。
用法为：newstart = InStrB([start, ]source, token[, compare])
其中newstart时记号在字符串中的首字节位置（如果没有的话则为0），start是查找的起始位置，source是要查找的字符串，token是要定位的字符串，compare是比较类型（0表示二进制比较，1表示忽略大小写的文本比较）。

LCase LCase函数把字符串变为小写形式。
用法为：result = LCase(string)
其中result是小写字符串，string是任意有效的字符串表达式。

Left Left函数从字符串的起始处提取指定数目的字符。
用法为：result = Left(string,length)
其中result是字符串变量，string是有效的字符串表达式，length是表示返回多少字符的数值型表达式。

LeftB LeftB函数从字符串的起始处提取指定数目的字节。
用法为：result = LeftB(string,length)
其中result是字符串变量，string是有效的字符串表达式，length是表示提取的字节数的数值型表达式。

Len Len函数确定字符串的大小或存储这个变量需要多少字符。
用法为：result = Len(string | varname)
其中，result是字符串中的字符数或存储这个变量所需的字节数，string是任意有效的字符串表达式，varname是变量名。

LenB Len函数确定字符串的大小或存储这个变量需要多少字节。
用法为：result = LenB(string | varname)
其中，result是字符串中的字节数或存储这个变量所需的字节数，string是任意有效的字符串表达式，varname是变量名。

LTrim LTrim函数复制字符串并去掉前面的空格。
用法为：result = LTrim(string)
其中，result是去掉空格后的字符串，string是要去掉空格的有效字符串表达式。

Mid Mid函数从字符串的某个位置复制指定数目的字符。
用法为：result = Mid(string,start[,length])
其中，result是结果字符串，string是要从中复制字符的表达式，start是string中复制的起始位置，length是要复制的字符数。

MidB Mid函数从字符串的某个位置复制指定数目的字节。
用法为：result = Mid(string,start[,length])
其中，result是结果字符串，string是要从中复制字节的表达式，start是string中复制的起始位置，length是要复制的字节数。

Right Right函数从字符串的尾部提取指定数目的字符。
用法为：result = Right(string,length)
其中result是字符串变量，string是有效的字符串表达式，length是表示返回多少字符的数值型表达式。

RightB RightB函数从字符串的起始处提取指定数目的字节。
用法为：result = RightB(string,length)
其中result是字符串变量，string是有效的字符串表达式，length是表示提取的字节数的数值型表达式。

RTrim RTrim函数复制字符串并去掉尾部的空格。
用法为：result = RTrim(string)
其中，result是去掉空格后的字符串，string是要去掉空格的有效字符串表达式。

String String函数构造含有多个相同字符的字符串。
用法为：result = String(number, character)
其中，result是字符串变量，number是返回字符串的长度，character是用来构造返回字符串的字符码。

Trim Trim函数复制字符串并去掉首尾的空格。
用法为：result = Trim(string)
其中，result是去掉空格后的字符串，string是要去掉空格的有效字符串表达式。

UCase UCase函数把字符串变为大写形式。
用法为：result = UCase(string)
其中result是大写字符串，string是任意有效的字符串表达式。

asp字符串函数   [讨论]

函数说明

CBool

数据转Boolean类型

Cdate

数据转Time类型

CDbl

数据转Double类型

Cint

数据转Integer类型

CLng

数据转Lang类型

Asc

字符转数字类型

CStr

数字转String类型

Chr

数字转字符类型

Variant变量一般会将其代表的数据子类型自动转换成合适的数据类型,但有时候,自动转换也会造成一些数据类型不匹配的错误.这时,可使用转换函数来强制转换数据的子类型.

函数 功能

Asc 函数 返回与字符串的第一个字母对应的 ANSI 字符代码。

Chr 函数 返回与指定的 ANSI 字符代码相对应的字符

Hex 函数 返回表示十六进制数字值的字符串。

Oct 函数 返回表示数字八进制值的字符串。

CStr 函数 返回表达式，该表达式已被转换为 字符串 子类型。

CDate 函数 返回表达式，此表达式已被转换为 日期 子类型。

CInt 函数 返回表达式，此表达式已被转换为 整数 子类型。

CLng 函数 返回表达式，此表达式已被转换为 长整数 子类型

CSng 函数 返回表达式，该表达式已被转换为 Single 子类型

CDbl 函数 返回表达式，此表达式已被转换为 Double 子类型

CBool 函数 返回表达式，此表达式已转换为 布尔 子类型

1、Asc 函数示例

下面例子中, Asc 返回每一个字符串首字母的 ANSI 字符代码:

Dim MyNumber

MyNumber = Asc("A") '返回 65。

MyNumber = Asc("a") '返回 97。

MyNumber = Asc("Apple") '返回 65。

2、Chr 函数示例

下面例子利用 Chr 函数返回与指定的字符代码相对应的字符:

Dim MyChar

MyChar = Chr(65) '返回 A。

MyChar = Chr(97) '返回 a。

MyChar = Chr(62) '返回 >。

MyChar = Chr(37) '返回 %。

3、Hex 函数示例

下面的示例利用 Hex 函数返回数字的十六进制数：

Dim MyHex

MyHex = Hex(5) ' 返回 5。

MyHex = Hex(10) ' 返回A。

MyHex = Hex(459) ' 返回 1CB。

4、Oct 函数示例

下面的示例利用 Oct 函数返回数值的八进制数：

Dim MyOct

MyOct = Oct(4) ' 返回 4。

MyOct = Oct(8) ' 返回 10。

MyOct = Oct(459) ' 返回 713。

5、 CStr 函数示例

<%num1=666StrWelcome="欢迎第"&CStr(num1)&"个来访者"%>

CStr将变量num1由整数子类型强制转换为字符串子类型

6、CDate 函数示例

MyDate = "October 19, 1962" ' 定义日期。

MyShortDate = CDate(MyDate) ' 转换为日期数据类型。

MyTime = "4:35:47 PM" ' 定义时间。

MyShortTime = CDate(MyTime) ' 转换为日期数据类型。

7、CInt 函数示例

Dim MyDouble, MyInt

MyDouble = 2345.5678 ' MyDouble 是 Double。

MyInt = CInt(MyDouble) ' MyInt 包含 2346。

8、CLng 函数示例

Dim MyVal1, MyVal2, MyLong1, MyLong2

MyVal1 = 25427.45: MyVal2 = 25427.55 ' MyVal1, MyVal2 是双精度值。

MyLong1 = CLng(MyVal1) ' MyLong1 25427。

MyLong2 = CLng(MyVal2) ' MyLong2 包含 25428 。

9、CBool 函数示例

Dim A, B, Check

A = 5: B = 5 ' 初始化变量。

Check = CBool(A = B) '复选框设为 True 。

A = 0 '定义变量。

Check = CBool(A) '复选框设为 False

类别：默认分类 查看评论]]> 2009-03-09 10:28 http://hi.baidu.com/%B9%D6%CA%AF/blog/item/bdcd16f4eed2dde77609d793.html <![CDATA[常用二级分类下拉列表[数据库版]]]> ’**************************************************
’常用二级分类下拉列表[数据库版]
’叶随风(LeafinWind)
’QQ：19855466
’http://www.popasp.com/
’说明：
’支持多浏览器
’所有类别信息在同一个表中
’表结构：InfoClass[表名]
’ID：   自动编号
’ClassName： 类别名称[文本]
’PID：   父类id号[数字]
’ClassIndex： 类别索引[数字]，用于排序，可有可无
’**************************************************
Dim SubClsCount, rsCl
Set rsCl = Server.Createobject("Adodb.Recordset")
rsCl.Open "Select * From [InfoClass] Where PID <> 0 Order By ClassIndex, ID",Conn,1,1    ’小类
%>
<script language = "JavaScript">
var TCount = 0;
subCls = new Array();
<%
SubClsCount = 0
Do While Not rsCl.Eof
%>
//数组中三个元素的说明：(小类ID：小类Select的value内容，小类父ID：所属的大类的ID，小类名称：Select列表显示的内容)
subCls[<%=SubClsCount%>] = new Array("<%=Trim(rsCl("ID"))%>","<%=rsCl("PID")%>","<%=Trim(rsCl("ClassName"))%>");
<%
SubClsCount = SubClsCount + 1
rsCl.Movenext
Loop
rsCl.Close
Set rsCl = Nothing
%>
TCount=<%=SubClsCount%>;
function changelocation(locationid)
{
document.getElementById("SmallClassID").length = 0;
var locationid = locationid;
var i;
for (i=0;i < TCount; i++)
{
if (subCls[i][1] == locationid)
{
   //（前边：字段三内容，显示在列表中；后边：字段一内容，显示在VALUE值中！）
   document.getElementById("SmallClassID").options[document.getElementById("SmallClassID").length] = new Option(subCls[i][2], subCls[i][0]);
}
}
if (document.getElementById("SmallClassID").options.length <= 0)
{
document.getElementById("SmallClassID").options[document.getElementById("SmallClassID").length] = new Option("暂无小类", 0);
}
}
</script>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ASP+JS的二级分类</title>
</head>
<body">
<%
Dim SelClassID
Set rsCl = Server.Createobject("Adodb.Recordset")
rsCl.Open "Select * From [InfoClass] Where PID = 0 Order By ClassIndex, ID",Conn,1,1      ’大类
If rsCl.Eof And rsCl.Bof Then
Response.Write "请添加顶级（大）类别!"
Response.End()
Else
%>
大类：
<select name="BigClassID" size="1" id="BigClassID" onChange="changelocation(document.getElementById(’BigClassID’).options[document.getElementById(’BigClassID’).selectedIndex].value)">
    <%
SelClassID = rsCl("ID")
Do While Not rsCl.Eof
%>
    <option value="<%=rsCl("ID")%>"><%=rsCl("ClassName")%></option>
    <%
rsCl.Movenext
Loop
%>
</select>
<%
End If
rsCl.Close
%>
小类：
<%
Dim SmallClassList
SmallClassList = "<select name=SmallClassID id=SmallClassID>"
rsCl.Open "Select * From [InfoClass] Where PID = "&SelClassID&" Order By ClassIndex, ID" ,Conn,1,1    ’小类
If Not (rsCl.Eof And rsCl.Bof) Then
Do While Not rsCl.Eof
SmallClassList = SmallClassList & "<option value=’"&rsCl("ID")&"’>"&rsCl("ClassName")&"</option>"
rsCl.Movenext
Loop
Else
SmallClassList = SmallClassList & "<option value=’0’>暂无小类</option>"
End If
rsCl.Close
Set rsCl = Nothing
SmallClassList = SmallClassList & "</select>"
Response.Write(SmallClassList)
%>
</body>
</html>
类别：网络程序 查看评论]]> 2009-02-27 10:35 http://hi.baidu.com/%B9%D6%CA%AF/blog/item/6a67323880d41723b9998f38.html