[转帖]ASP编程常用的代码

翔羽 · 发表于 2006-2-26 10:54:02

轻松实现将上传图片到数据库<hr/>很久就想自己写一写程序了，不过由于赖就不想写我，今天刚好有空，所以写了这个小小的程序很容易一看就知道的，不多说了就此开始：　　我们做一个上传的。数据据库的字段就id自动编号 big 字段类型是 OLE 呵呵就简单的那个字段好了 　　 　　uppic.asp上传程序名 　　 　　<% 　　dim rs 　　dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata 　　formsize=request.totalbytes '取得客户端发过来的大小 　　formdata=request.binaryread(formsize)'把客户发过来的数据转成二进制作 　　bncrlf=chrB(13) & chrB(10) 　　divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) 　　datastart=instrb(formdata,bncrlf & bncrlf)+4 　　dataend=instrb(datastart+1,formdata,divider)-datastart 　　mydata=midb(formdata,datastart,dataend)'上面总共是取得图片的二进制数据 　　%> 　　 　　<% 　　sql="select * from pic order by id desc" 　　Set rs = Server.CreateObject("ADODB.Recordset") 　　rs.Open sql,conn,3,2 　　rs.addnew 　　rs("big").appendchunk mydata '增加到数据库中 　　rs.update 　　set rs=nothing 　　set conn=nothing 　　%> 　　接下来是显示图片 　　 　　display.asp 　　 　　 '这个大家都知道吧，他就是与数据库连的一个程序了 　　　　<% 　　id=request("id") 　　set rs=server.createobject("ADODB.recordset") 　　sql="select * from pic where id=" & id 　　rs.open sql,conn,1,1 　　Response.ContentType = "text/html" '显示图片的格式也可以用 　　 　　'Response.ContentType = "image/gif" 以gif显示 　　 　　'Response.ContentType = "image/jpg" 以jpg显示 　　Response.BinaryWrite rs("big") '显示图片 　　rs.close 　　set rs=nothing 　　set connGraph=nothing 　　 　　%>

翔羽 · 发表于 2006-2-26 10:54:25

记录集内随机取记录的代码<hr/><% ' Moving to random record - Steven Jones' Extension If Not(记录集名称.bof and 记录集名称.eof) Then ' reset the cursor to the beginning If (记录集名称.CursorType > 0) Then 记录集名称.MoveFirst Else 记录集名称.Requery End If记录集名称_totalrn = -1 记录集名称_totalrn = 记录集名称.RecordCount ' ony works on some recordsets, but much faster If (记录集名称_totalrn = -1) Then ' and if it didn't work, we still have to count the records.' count the total records by iterating through the recordset 记录集名称_totalrn=0 While (Not 记录集名称.EOF) 记录集名称_totalrn = 记录集名称_totalrn + 1 记录集名称.MoveNext Wend' reset the cursor to the beginning If (记录集名称.CursorType > 0) Then 记录集名称.MoveFirst Else 记录集名称.Requery End IfEnd If' now do final adjustments, and move to the random record 记录集名称_totalrn = 记录集名称_totalrn - 1 If 记录集名称_totalrn > 0 Then Randomize 记录集名称.Move Int((记录集名称_totalrn + 1) * Rnd) End If End If ' all done; you should always check for an empty recordset before displaying data %>

翔羽 · 发表于 2006-2-26 10:54:40

计算两个时间差的函数<hr/>'****************************** '||Function TimeDiff(sBegin, sEnd) '||本函数计算两个时间的差，可以不用更改直接使用 '||作者：machinecat 2001/10/26 '******************************'****************************** '注：首先需要判断用户输入的sBegin与sEnd之间的大小 '可以通过DataDiff函数获得两者之间的时间差，不需要进行复杂的时间换算 '******************************Function TimeDiff(sBegin, sEnd) Dim iHourB, iMinuteB, iSecondB, iMiniSecondB Dim iHourE, iMinuteE, iSecondE, iMiniSecondE Dim dTimeB, dTimeE, dTimeDiff Dim iHour, iMinute, iSecond, iMiniSecondiHourB = clng(Left(sBegin, 2)) iMinuteB = clng(Mid(sBegin, 4, 2)) iSecondB = clng(Mid(sBegin, 7, 2)) iMiniSecondB = clng(Mid(sBegin, 10, 4))iHourE = clng(Left(sEnd, 2)) iMinuteE = clng(Mid(sEnd, 4, 2)) iSecondE = clng(Mid(sEnd, 7, 2)) iMiniSecondE = clng(Mid(sEnd, 10, 4))dTimeB = iHourB * 3600 + iMinuteB * 60 + iSecondB + iMiniSecondB / 1000 dTimeE = iHourE * 3600 + iMinuteE * 60 + iSecondE + iMiniSecondE / 1000 dTimeDiff = dTimeE - dTimeBiHour = Int(dTimeDiff / 3600) dTimeDiff = dTimeDiff - iHour * 3600 iMinute = Int(dTimeDiff / 60) dTimeDiff = dTimeDiff - iMinute * 60 iSecond = Int(dTimeDiff) dTimeDiff = dTimeDiff - Int(dTimeDiff) iMiniSecond = dTimeDiffTimeDiff = iHour & "小时" & iMinute & "分钟" & iSecond & FormatNumber(iMiniSecond, 3) & "秒" End Function

翔羽 · 发表于 2006-2-26 10:54:58

网址和邮件地址的转换函数<hr/><% function URLconvert(str) convertstr=str urlLocation=instr(convertstr,"http://")if (urlLocation=0) and (mailLocation=0) then URLconvert=convertstr exit function end ifif urlLocation<>0 then rightstr=str Do while urlLocation<>urlLocationend urlLocation=instr(rightstr,"http://") urlLocationend=InStrRev(rightstr,"http://") finalstr=finalstr&left(rightstr,urlLocation-1) midurlstr=mid(rightstr,urlLocation+1,1) do while (asc(midurlstr)>=45) and (asc(midurlstr)<=126) loopint=loopint+1 midurlstr=mid(rightstr,urlLocation+loopint,1) if midurlstr="" then exit do loop endURLstr=mid(rightstr,urllocation,loopint) URLstr="<a href="&endURLstr&">"&endURLstr&"</a>" rightstr=mid(rightstr,urllocation+loopint) finalstr=finalstr&URLstr loopint=1 Loop end if finalstr=finalstr&rightstrconvertstr1=finalstr finalstr="" mailLocation=instr(convertstr1,"@") if mailLocation<>0 then Do while mailLocation<>mailLocationend mailLocation=instr(convertstr1,"@") mailLocationend=InStrRev(convertstr1,"@") mainmidmailstr=mid(convertstr1,mailLocation+1,1) midmailstr=mainmidmailstr do while (asc(midmailstr)>=45) and (asc(midmailstr)<=126) loopint1=loopint1+1 midmailstr=mid(convertstr1,mailLocation-loopint1,1) loop firstSTR=mid(convertstr1,mailLocation-loopint1+1,loopint1-1)finalstr=finalstr&left(convertstr1,mailLocation-loopint1)midmailstr1=mainmidmailstr do while (asc(midmailstr1)>=45) and (asc(midmailstr1)<=126) loopint2=loopint2+1 midmailstr1=mid(convertstr1,mailLocation+loopint2,1) if midmailstr1="" then exit do loop secondSTR=mid(convertstr1,mailLocation,loopint2)endmailstr=firstSTR&secondSTR mailstr="<a href=mailto:"&endmailstr&">"&endmailstr&"</a>" finalstr=finalstr&mailstr convertstr1=mid(convertstr1,maillocation+loopint2) loopint1=1 loopint2=1 Loop end if finalstr=finalstr&convertstr1 URLconvert=finalstr end function %>

翔羽 · 发表于 2006-2-26 10:55:52

最简洁的多重查询的解决方案<hr/>[前言] 我们经常会遇到多重查询问题，而长长的SQL语句往往让人丈二和尚摸不着头脑。特别是客户端部分填入查询条件时，如用普通方法将更是难上加难。 以下巧妙地利用"where 1=1"的恒等式（事实上很多，让它值为TRUE即可）解决此问题。[正文概要]'subject 信息标题 'company 发布信息的公司名称 'content 发布信息的内容 'address 公司地址 'infomation 公司简介 'note 相关说明 以上值均由FORM提交，然后通过:subject=trim(Request.Form("subject"))等得到相应的值。<% '这个函数很关键！--------------------------- Function sql(a,b,sqls) if b<>"" then '如果客户端没有提交此值，则不会产生相应的SQL语句。 sqls=sqls & " and " & a & " like '%" & b & "%'" end if sql=sqls End Function '-----------------调用数据库 Set conn=Server.CreateObject("ADODB.Connection") DBpath=Server.MapPath("/database/mydb.mdb") Conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=;dbq=" & DBpath Set rs=Server.CreateObject("ADODB.Recordset") sqls="select * from mytable where 1=1 " '以下调用上面的函数即可,可以很多个调用（理论上是任意） sqls=sql("subject",subject,sqls) sqls=sql("company",company,sqls) sqls=sql("content",content,sqls) sqls=sql("address",address,sqls) sqls=sql("infomation",infomation,sqls) sqls=sql("note",note,sqls) sqls=sqls & " order by id desc" rs.open sqls,conn,3,2 %>

翔羽 · 发表于 2006-2-26 10:56:08

无限级分类<hr/>比较简单的一个页面,类似csdn论坛在ns下的左边列表描述:1.数据名:tree.mdb表名:tree表结构:id(自编) pid(数字) content(文本) link(文本)2.图片:endnode.gif collapsed.gif back.gif(均在img目录下,可自行修改)3.代码: <HTML> <HEAD> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <META NAME="GENERATOR" Content="Microsoft FrontPage 4.0"> <TITLE>无限级列表</TITLE>  <style> .node{ font-size:12px; padding:0 0 2 0; margin-left:10; height:22px; } img{ vertical-align:middle; width:11px; height:11px; } a{text-decoration:none;font-size:12px;color:black} .deeptree{ width:100%; height:100%; backgound-color:#f2f2f2; overflow:auto; }</style> </HEAD> <BODY bgcolor=#f2f2f2> <div class="deeptree"> <% newid=Request.QueryString("id") if newid="" or CInt(newid)<0 then newid=0 if isNumeric(newid) then listTree(CInt(newid)) end iffunction listTree(id) dim rs dim imgFolder,imgFile dim link,href,parentHref dim target,ahref,click target="main" '所指定的框架名 imgFolder="img/" '默认路径 set rs=conn.execute("select *,(select count(*) from tree where pid = T.id) as children,(select pid from tree where id="&id&") as parent from tree T where pid="&id) if not rs.eof then parentHref=Request.ServerVariables("URL")&"?id="&rs("parent") if id<>0 then Response.Write "<div class='node' nowrap=true><a href='"&parentHref&"' onfocus='blur()'><img src='"&imgFolder&"back.gif' border=0></a> <a href='"&parentHref&"'>上一级目录</a></div>"&VbCrLf do while not rs.eof if rs("children")>0 then img=imgFolder+"collapsed.gif" href=Request.ServerVariables("URL")&"?id="&rs("id") click="onclick=""location.href='"&href&"'""" else img=imgFolder+"endnode.gif" href="javascript:void(0)" end if if not isNull(rs("link")) then ahref=rs("link") else ahref="javascript:void(0)" target="_self" end if link="<a href='"&ahref&"' target='"&target&"' title='"&rs("content")&"' "&click&">"&rs("content")&"</a>" Response.Write "<div class='node' nowrap=true><a href='"&href&"' onfocus='blur()'><img src='"&img&"' border=0></a> "&link&"</div>" rs.movenext loop rs.close:set rs=nothing end if end function conn.close:set conn=nothing %></div> </BODY> </HTML> conn.inc:<% dim conn set conn = Server.CreateObject("ADODB.Connection") conn.Open "

rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("tree.mdb") & "

ersist Security Info=False" %>4.测试:ie6,ns7,mozilla下测试通过

翔羽 · 发表于 2006-2-26 10:56:33

无组件的数据库的备份与还原<hr/>看过数据库的备份与还原。大多数都是用组件来完成的。其实可通过sql语句来完成。 由于时间关系，未对参数进行验证和界面美化。代码仅供参考。 共计4个文件：下载地址：http://ad.ceh.com.cn/sql.rar conn.asp <% conn="

rovider=SQLOLEDB.1

ersist Security Info=false;Server=127.0.0.1;UID=sa;pwd=www.zhi.net;database=master" function rec(rs,sql) set rs = server.CreateObject("ADODB.Recordset") rs.Activeconnection = conn rs.Source = sql rs.CursorType = 0 rs.Cursorlocation = 3 rs.LockType = 1 rs.Open if rs.eof and rs.bof then rec= false else rec= true end if end function function cmd(sql) dim cmd1 set cmd1 = server.CreateObject("ADODB.Command") cmd1.ActiveConnection = conn cmd1.CommandText = sql cmd1.CommandType = 1 cmd1.CommandTimeout = 0 cmd1.Prepared = true cmd1.Execute() end function function cdb(rs) rs.close() set rs=nothing end function %> dev.asp  <% if request("AddDev") <> "" then sql="select name,phyname from master..sysdevices where status=16 and name='"&request("devname")&"'" rec chk,sql if chk.eof and chk.bof then sql = "sp_addumpdevice 'disk','"&request("devname")&"','"&request("phyname")&"'" cmd sql response.Write "<script language=javascript>window.location=reload;</script>" else response.Write "<script language=javascript>alert('数据库中已存在"&request("devname")&"设备！');window.location='cmd.asp';</script>" end if end if if request("deldev") <> "" then sql = "sp_dropdevice '"&request("devname")&"'" cmd sql response.Write "<script language=javascript>window.location=reload;</script>" end if rec li,"select name,phyname from master..sysdevices where status=16" if li.eof and li.bof then response.Write "请新建备份设备用来备份还原数据库" else %><style type="text/css">  </style> <table width="60%" border="0" cellspacing="0"> <tr> <td width="29%">名称：</td> <td width="71%">位置：</td> </tr> <% i=0 while not li.eof i=i+1 %> <tr> <td><%=li(0)%></td> <td><%=li(1)%> <a href='dev.asp?DelDev=1&devname=<%=li(0)%>'>删除此设备</a></td> </tr> <% li.movenext wend response.Write "<script language=javascript>top.document.all.dev.height='"&(i+1)*25&"';</script>" cdb li %> </table> <% end if %> default.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>  <% '************************************************* '数据库备份与还原 '编程：魔术师·杨(MagicYang.CN) '完成日期：2004-4-11 '说明：由于时间关系，未对数据做安全性验证。

翔羽 · 发表于 2006-2-26 10:56:50

'************************************************* %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>数据库的备份与还原</title> </head> <body> <%%> <table width="80%" border="0" align="center"> <tr> <td width="21%" valign="top">数据库设备：</td> <td width="79%"> <iframe name="dev" src="dev.asp" width="100%" height="200" frameborder="0" scrolling="no"></iframe> </td> </tr> <tr> <td>添加设备：</td> <td>设备名称： <input name="devname" type="text" id="devname" size="10" maxlength="10"></td> </tr> <tr> <td>&nbsp;</td> <td>文件路径： <input name="phyname" type="text" id="phyname" size="20" maxlength="50"> <input type="button" value="添加设备" onClick="document.all.dev.src='dev.asp?AddDev=1&devname='+document.all.devname.value+'&phyname='+document.all. phyname.value;"></td> </tr> <tr> <td valign="top">备份/还原：</td> <td> 数据库名称： <% rec li,"select name from master..sysdatabases where status=16" %> <select name="b_data"> <% while not li.eof response.Write "<option value="&li(0)&">"&li(0)&"</option>" li.movenext wend cdb li %> </select> 备份到设备：<% rec li,"select name,phyname from master..sysdevices where status=16" %> <select name="b_dev"> <% while not li.eof response.Write "<option value="&li(0)&">"&li(0)&"(文件："&li(1)&")</option>" li.movenext wend cdb li %> </select> <input name="按钮" type="button" value="备份数据库" onClick="window.location='cmd.asp?action=backup&database='+document.all.b_data.value+'&dev='+document.all. b_dev.value;"> &nbsp; <input name="按钮" type="button" value="还原数据库" onClick="window.location='cmd.asp?action=RESTORE&database='+document.all.b_data.value+'&dev='+document.all. b_dev.value;"> </td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> </table> </body> </html> cmd.asp  <% on error resume next if request("action") <> "" then if request("action")="backup" then sql ="BACKUP DATABASE "&request("database")&" To "& request("dev") cmd sql if err.number > 0 then response.Write "<script language=javascript>alert('数据库"&request("database")&"备份失败！');window.location='default.asp';</script>" else response.Write "<script language=javascript>alert('数据库"&request("database")&"备份成功！');window.location='default.asp';</script>" end if else sql ="RESTORE DATABASE "&request("database")&" From "& request("dev") cmd sql if err.number > 0 then response.Write "<script language=javascript>alert('数据库"&request("database")&"还原失败！');window.location='default.asp';</script>" else response.Write "<script language=javascript>alert('数据库"&request("database")&"还原成功！');window.location='default.asp';</script>" end if end if end if %>

翔羽 · 发表于 2006-2-26 10:57:08

无组件实现文件上传/下载<hr/>'================================================================== ' ' 用ASP实现无组件上传/下载文件 ' ' 功能简介 ' 将上传的文件数据保存到数据库中,可以处理表单中的多个上传文件的情况 ' 适用于各种数据库,使用ADO的方法连接数据库 ' 本示例中使用的是ACCESS数据库:zj.mdb ' 表:tb_img(id int(自增列),path text(255) 保存上传文件的目录 ' ,fname text(250) 保存上传的文件名,type test(250) 保存上传文件的类型 ' ,img ole对象保存上传的文件内容 ' ' '================================================================== '================================================================== ' ' 上传文件的HTML页: zj_up.htm ' '================================================================== <html> <head> <title>文件上传保存到数据库中</title> </head> <body> <form name="form1" enctype="multipart/form-data" method="post" action="zj_up.asp"> <input type="file" name="file"> <input type="submit" name="Submit" value="上传"> </form> </body> </html> '================================================================== ' ' 上传文件保存到数据库的ASP页: zj_up.asp ' '================================================================== <% Response.Expires=0 Function f_Bin2Str(ByVal sBin) Dim iI, iLen, iChr, iRe iRe = "" If Not IsNull(sBin) Then iLen = LenB(sBin) For iI = 1 To iLen iChr = MidB(sBin, iI, 1) If AscB(iChr) > 127 Then iRe = iRe & Chr(AscW(MidB(sBin, iI + 1, 1) & iChr)) iI = iI + 1 Else iRe = iRe & Chr(AscB(iChr)) End If Next End If f_Bin2Str = iRe End Function iConcStr = "

rovider=Microsoft.Jet.OLEDB.4.0

ersist Security Info=False" & _ ";Data Source=" & server.mappath("zj.mdb") iSql="tb_img" set iRe=Server.CreateObject("ADODB.Recordset") iRe.Open iSql,iConcStr,1,3 iLen=Request.TotalBytes sBin=Request.BinaryRead(iLen) iCrlf1 = ChrB(13) & ChrB(10) iCrlf2 = iCrlf1 & iCrlf1 iLen = InStrB(1, sBin, iCrlf1) - 1 iSpc = LeftB(sBin, iLen) sBin = MidB(sBin, iLen + 34) iPos1 = InStrB(sBin, iCrlf2) - 1 While iPos1 > 0 iStr = f_Bin2Str(LeftB(sBin, iPos1)) iPos1 = iPos1 + 5 iPos2 = InStrB(iPos1, sBin, iSpc) iPos3 = InStr(iStr, "; filename=""") + 12 If iPos3 > 12 Then iStr = Mid(iStr, iPos3) iPos3 = InStr(iStr, Chr(13) & Chr(10) & "Content-Type: ") - 2 iFn = Left(iStr, iPos3) If iFn <> "" Then iRe.AddNew ire("path")=left(iFn,instrrev(iFn,"\")) iRe("fname") = mid(iFn,instrrev(iFn,"\")+1) iRe("type") = Mid(iStr, iPos3 + 18) iRe("img").AppendChunk MidB(sBin, iPos1, iPos2 - iPos1) iRe.Update End If End If sBin = MidB(sBin, iPos2 + iLen + 34) iPos1 = InStrB(sBin, iCrlf2) - 1 Wend iRe.close set iRe=Nothing %>'================================================================== ' ' 下载数据的ASP页: zj_down.asp ' '================================================================== <% Response.Buffer=true Response.CleariConcStr = "

rovider=Microsoft.Jet.OLEDB.4.0

ersist Security Info=False" & _ ";Data Source=" & server.mappath("zj.mdb") set iRe=server.createobject("adodb.recordset") iSql="tb_img" iRe.open iSql,iconcstr,1,1 Response.ContentType=ire("type") Response.BinaryWrite iRe("img")iRe.close set iRe=Nothing %>

翔羽 · 发表于 2006-2-26 10:57:36

加速ASP程序的显示速度 <hr/>　　作为一个ASP程序员，你不会怀疑提高Web应用程序性能的重要性。为了让程序运行的更快一些，你可能一直忙于优化数据库或COM组件。如果这些你都做过了，你想到过靠加快最终生成HTML代码在浏览器中的显示速度来提高性能吗？对于最终用户来说，如果页面能显示的更快，你就能赢得更多的赞誉。　　提高HTML在浏览器中显示的速度可以通过一些鲜为人知的技术来实现。 　　1.使用表格嵌套？ 　　在页面中建立复杂的结构，一般通过在页面中放置HTML表格来实现。如果要建立一个这样的页面：这个页面有一个顶部导航栏一个左边导航栏，一个右边的内容区。可以用一个两行两列的大表格来建立它。第一行中，合并两个列，然后插入一个顶部导航栏。第二行左边的列中，插入一个表格来显示导航按钮。右边的栏中，放置一个表格来实际内容。(见图一)这样嵌套的表格生成的代码是这样的： 　<TABLE BORDER="0"> 　　<TR> 　　　<TD COLSPAN="2"></TD> 　　</TR> 　　<TR> 　　　<TD ALIGN="LEFT" VALIGN="TOP"></TD> 　　　<TD ALIGN="LEFT" VALIGN="TOP"></TD> 　　</TR> 　</TABLE> 　　但是，实际上，浏览器找到<TABLE>标签的时候并不是立刻把页面显示到屏幕上，除非它找到相应的结束标签</TABLE>。所以，如果你的整个页面在一个表格里的话，在收到最后一个</TABLE>之前，什么也不会显示出来，这样，这个页面将在整个文件全部下载以后才能被用户所看到。在页面数据量比较大的时候（比如搜索引擎的搜索结果），这个特性会导致暂时的停顿。为了防止出现这种情况，可以在制作的时候把页面分成许多小的表格。在每一个<TABLE>到相应的</TABLE>这一部分HTML代码下载完的时候，浏览器就会把它显示出来。在访问者看来页面是渐渐的，一部分一部分，越来越多的出现在屏幕上的。感觉上，这样的页面显示速度比下载完整个文件再一次显示出来更快。 　　按照这个原则来研究前面的例子，应该把页面中整个的大表分成三个单独的表。用第一个表显示顶部的导航栏，调节它的宽度，使它足够容纳所有的内容，在一个<TABLE></TABLE>代码段中完成它。页面下半部分，左边第二个表排成一列。使用第三个表容纳实际内容。(见图二)因为每一个部分都是一个完整的表格，所以，每一部分代码下载后都会立刻被显示出来。这样，顶部和左边的导航栏将比页面的其它部分更显显示出来。用户会在这个时候想象页面开始下载，很快就能显示在屏幕上。这样比起让用户在较长时间内一直面对一个空白屏幕要好得多。 　　修改过的代码是这样的： 　<TABLE BORDER="0" WIDTH="100%"> 　　<TR> 　　　<TD ALIGN="CENTER" VALIGN="TOP"></TD> 　　</TR> 　</TABLE> 　<TABLE BORDER="0" ALIGN="LEFT"> 　　<TR> 　　　<TD ALIGN="LEFT" VALIGN="TOP"></TD> 　　</TR> 　</TABLE> 　<TABLE BORDER="0"> 　　<TR> 　　　<TD ALIGN="LEFT" VALIGN="TOP"></TD> 　　</TR> 　</TABLE> 　　2.也要记住关闭其他的标记 　　在上面的例子中，我们仅仅早一些关闭<TABLE>标记，就能让页面在浏览器显示的更快些。以此类推，还有一些类似的标记也有同样的特性。 　　比如产生列表框和组合框<OPTION>标记和产生列表项的<LI>标记。通常，ASP程序员存取数据库，并把数据送入通过<OPTION>建立的列表框或组合框中，这时候在代码中写上一个关闭<OPTION>标记，这样简单的改变也能使页面在浏览器中显示的更快。 　　不要使用这样的代码： 　Do while not objRS.EOF 　　strOptionList = strOptionList & "<OPTION VALUE=""" & objRS("ID") &_""">"& _objRS("

roductName") 　　objRS.MoveNext 　Loop 　Response.Write "<SELECT SIZE=""1"">" & strOptionList & "</SELECT>" 　　要使用这样的代码： 　　Do while not objRS.EOF 　　　strOptionList = strOptionList & "<OPTION VALUE=""" & objRS("ID") & _ """>" & objRS("

roductName") & "</OPTION>" 　　　objRS.MoveNext 　　Loop 　　Response.Write "<SELECT SIZE=""1"">" & strOptionList & "</SELECT>" 　　不要使用这样的代码： 　　<UL> 　　<LI>Apples 　　<LI>Oranges 　　<LI>Bananas 　　</UL> 　　使用这样的代码: 　　<UL> 　　　<LI>Apples</LI> 　　　<LI>Oranges</LI> 　　　<LI>Bananas</LI> 　　</UL> 　　现在看看，你的页面在浏览器中是不是显示的快了？ 　　请不要轻视这些改变对提高ASP程序性能的重要性。也许，在你能找到的“技巧与提示”一类的书或在线资料中，很少提到过通过优化HTML代码来使你的程序运行的更快。但是，在实际中应用这些技术，确实能使程序性能得到很大的提高。

帐号		自动登录	找回密码
密码			马上注册



软考应考经验分享交流	IT项目管理师电子资料	系分·项管·信工·必读	会声会影下载
IT项管考前一个月复习安排	分享历届IT项管真题答案	历年软考分数线大全	IT项目管理新手看什么书？
清华、电工教材比较	国家信息技术紧缺人才	哪些软考证书可以挂靠?	项目管理发展史
信息系统项目管理师挂靠一年多少钱？	信息系统项目管理师考试费用及收费依据（汇总）

[转帖]ASP编程常用的代码

浏览过的版块