· function getdata(what,whatid){ if (event.keyCode==13) ……<input name=SerialNum<%=i%> type=text onKeyDown=getdata(window.form1.SerialNum<%=i%>.value,<%=i%>)>
· <%Class ImgWHInfo '获取图片宽度和高度的类,支持JPG,GIF,PNG,BMP Dim ASO Private Sub Class_Initialize Set ASO=Server.CreateObject("ADODB.Stream") ASO.Mode=3 ASO.Type=1 ASO.Open End Sub Private Sub Class_Terminate Er...
· asp 中处理文件上传以及删除时常用的自定义函数<%'''''所有自定义的VBS函数'''function DeleteFile(Filename) ''删除文件 if Filename<>"" then Set fso = server.CreateObject("Scripting.FileSystemObject") if fso.FileExists(Filename) then fso.DeleteFile ...