- 2025年05月12日
- 星期一
%dim rsdim sqldim countset rs=server.createobject(adodb.recordset)sql = select * from kml_sclassrs.open sql,conn,1,1%script language = JavaScriptvar onecount;onecount=0;subcat = new Array(); % count = 0 do while not rs.eof %subcat[%=count%]
Array()CInt()CStr()Date()DateAdd()Day()FormatCurrency()FormatDateTime()FormatNumber()FormatPercent()Instr()InstrRev()Int()IsArray()IsDate()IsNull()IsNumeric()IsObject()LBound()LCase()Len()LTrim()Mid()Minute()Month()Now()Right()Rnd()Round()R
下载AspJpeg v1.5.0.0,然后执行下载得到的文件,安装该组件。然后在ASP代码里增加一点点代码即可,增加的位置可以放在上传图片完成后,取得图片地址,进行修改。对于Z-Blog的使用者,直接将下面代码复制到c_system_lib.asp文件的TUpLoadFile类中的Upload函数
生成静态页的好处不用说,当今大型网站,为缓解服务器端的压力许的的页面都改用了静态的页面,并利用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随机数%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、小于号
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)
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
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编程中使用数组数组的定义DimMyArrayMyArray=Array(1,5,123,12,98)可扩展数组DimMyArray()fori=0to10ReDimPreserveMyArray(i)MyArray(i)=inext将一个字符串分割并返回分割结果的数组DimMyArrayMyArray=Split(tempcnt,chr(13)chr(10))ForI=Lbound(MyArray