常用代码
文章平均质量分 54
aspczlover
这个作者很懒,什么都没留下…
展开
-
关闭窗口,立即注销登陆
logout.asp是注销页面 if (event.clientX>document.body.clientWidth &&event.clientY{//return("确实要关闭窗口1?");closesystem();}function closesystem(){ window.open(logout.asp?closeflag=0,closesystem,loc原创 2004-10-02 04:08:00 · 1178 阅读 · 0 评论 -
图片的导入导出
response.buffer=trueformsize=request.totalbytes formdata=request.binaryread(formsize) bncrlf=chrb(13) & chrb(10) divider=leftb(formdata,clng(instrb(formdata,bncrlf))-1) datastart=instrb(formdata,bncrl原创 2004-10-02 05:38:00 · 740 阅读 · 0 评论 -
读取一个EXCEL的文件,然后将其转化成HTML的表格
Set xlApp = server.CreateObject("Excel.Application") strsource = "c:/test.xls" Set xlbook = xlApp.Workbooks.Open(strsource) Set xlsheet = xlbook.Worksheets(1) i=1 response.write "" while xlshe原创 2004-10-02 04:57:00 · 1440 阅读 · 0 评论 -
把request复给相应名称的变量
FOR each item in Request.form Execute item &"="""& Request.Form(item) &""""Next原创 2004-10-02 05:43:00 · 572 阅读 · 0 评论 -
取消缓存
最好的方案应该是:混合运用客户端脚本和服务器端脚本。 javascript:window.history.forward(1); //-->原创 2004-10-02 05:35:00 · 745 阅读 · 0 评论 -
n 行n列的显示数据
rs.open sql,conn,1,1 i=1 do while not rs.eof if i mod 3 = 1 then response.write "" end if %> if i mod 3 =0 then 每行三列 response.write "" end ifrs.movenexti = i + 1if i = 4 t原创 2004-10-02 05:32:00 · 790 阅读 · 0 评论 -
vbscript自动配置IIS
源程序如下:(客户端脚本,已在Win2000通过)strServerName ="localhost"strRootPath="g:/documents" 虚拟目录路径strVRName="Test" 虚拟目录名称strDefaultDoc="index.asp" 起始文档Dim objIISMsgBox "IIS://" & strServerName & "/W3SVC原创 2004-10-02 05:13:00 · 1261 阅读 · 0 评论 -
怎样取得网页中的HTML源代码
客户端的用xmlhttp获取数据用innertext得到源码 xmlhttp sub b3_onclick Dim objXMLHTTP, xml Set xml = CreateObject("Microsoft.XMLHTTP") xml.Open "GET", "http://www.eyou.com", False xml.Send demo.innerte原创 2004-10-02 04:54:00 · 1104 阅读 · 0 评论 -
特定时间执行某程序
方法一:用windows的计划任务比如想执行asp网页的地址为http://localhost/nncc2new/refresh.asp保存如下代码为do.vbs,在计划任务里执行do.vbsDim IE Set IE = CreateObject("InternetExplorer.Application") 运行你的asp文件 ie.navigate("http://localho原创 2004-10-02 04:44:00 · 830 阅读 · 0 评论 -
用脚本语言读取客户端注册表
Set Sh = CreateObject("WScript.Shell")key = "HKEY_CURRENT_USER/"Sh.RegWrite key & "WSHTest/","testkeydefault"Sh.RegWrite key & "WSHTest/string1","testkeystring1" WScript.Echo Sh.RegRead(key & "WSH原创 2004-10-02 05:41:00 · 718 阅读 · 0 评论