最新发布
今日更新10篇
文章总数9066篇
详谈asp生成静态页方法
生成静态页的好处不用说，当今大型网站，为缓解服务器端的压力许的的页面都改用了静态的页面，并利用AJAX技术动态地更新其中的部分内容，如广告等。一个简单的不用模板可以直接生成HTML静态页的方法.如一个正常的index.asp动态页面，新建一个文件makeasp2html
超长文章分页并生成静态页实例
set rsn=server.CreateObject(adodb.recordset)sqln=select top 1 * from vArticle where apage=abnamersn.open sqln,conn,1,1if not rsn.eof thendo while not rsn.eofpage_n=len(rsn(aContent))-len(replace(rsn(aContent),[NextPage],))page_n=split(rsn(a
随机产生N位由数字和字母组成的密码 asp随机数
随机产生N位由数字和字母组成的密码 asp随机数%RandomizeDo While Len(pass)12 ’随机密码位数num1=CStr(Chr((57-48)*rnd+48)) ’0~9num2=CStr(Chr((90-65)*rnd+65)) ’A~Znum3=CStr(Chr((122-97)*rnd+97)) ’a~zpass=passnum1num2num3loop%%=pass%1、小于号
ASP计算当月天数
dd = Date() 今天dd = dateadd(m,1,dd) 月份加1dd = Cdate(Year(dd) – Month(dd) -1) 下月的第一天dd=dateadd(d,dd,-1) 本月的最后一天dd=day(dd) 本月的天数Response.Write(dd)
ASP导入Excel数据到SQL
form action=insert.asp method=post enctype=multipart/form-data name=form1 onSubmit=b1_onclick() table width=500 border=1 align=center cellpadding=0 cellspacing=0 tr td colspan=2 bgcolor=#999999 class=t选择文件/td /tr tr td colspan=2 class=t
IIS出现server application error的解决办法
Server Application ErrorThe server has encountered an error while loading2009-10-31 14:48The server has encountered an error while loading an application during the processing of your request. Please refer to the event log for more detail i
asp数组使用
在ASP编程中使用数组数组的定义DimMyArrayMyArray=Array(1,5,123,12,98)可扩展数组DimMyArray()fori=0to10ReDimPreserveMyArray(i)MyArray(i)=inext将一个字符串分割并返回分割结果的数组DimMyArrayMyArray=Split(tempcnt,chr(13)chr(10))ForI=Lbound(MyArray
ASP生成文件
Set fso = Server.CreateObject(Scripting.FileSystemObject) Set fout = fso.Createtextfile(server.mappath(..eshopviewrs(bname)),true)fout.writeline okfilefout.closeFiLePaTh = Server.MapPath(….commerceview)tempfnameSet fso = CreateObject(Scri
ASP生成静态页面
meta http-equiv=Content-Type content=text/html; charset=gb2312%FilePath = Server.MapPath(/)/index.htmresponse.Write(FilePath)Do_Url = http://Do_Url = Do_UrlRequest.ServerVariables(SERVER_NAME)/default.aspxstrUrl = Do_Urlresponse.Write(strUr
vbscript正则表达式测试方法
%For Each r In Request.QueryStringIf RegExpTest([%s;]+,Request.QueryString) thenResponse.Write(script language=javascriptalert(信息有误！);/script)Response.End()end IfNextvbscript正则表达式测试方法function RegExpTest(patrn, strng)Dim regEx