- 博客(22)
- 收藏
- 关注
原创 把request复给相应名称的变量
FOR each item in Request.form Execute item &"="""& Request.Form(item) &""""Next
2004-10-02 05:43:00 572
原创 用脚本语言读取客户端注册表
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 717
原创 将某个表的Code字段变成自动编号字段
ALTER TABLE t1 drop column Code goALTER TABLE t1 add Code int identity(1,1)go
2004-10-02 05:39:00 730
原创 图片的导入导出
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
原创 取消缓存
最好的方案应该是:混合运用客户端脚本和服务器端脚本。 javascript:window.history.forward(1); //-->
2004-10-02 05:35:00 745
原创 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
原创 判断一个字符串里面包含有中文或者英文
class CNWord public str private sub Class_Initialize() set regEx =new RegExp regEx.IgnoreCase = True 设置是否区分大小写。 regEx.Global = True 设置全局可用性。 end sub private regEx Property get C
2004-10-02 05:30:00 1047
原创 获得数据库的空间大小,已使用的数据库空间大小
执行这个exec sp_spaceused测试代码set rs=server.CreateObject("adodb.recordset")sqlstr="exec sp_spaceused"rs.open sqlstr,conn,1,1if rs.eof=false thenresponse.write rs(0)&rs(1)&rs(2) 返回的测试值 test25.38 MB6.34
2004-10-02 05:25:00 711
原创 msxml3.dll 错误 '800c0005' 系统未找到指定的资源。
.send这里出错从其他机器上复制这三个文件msxml3.dll、msxml3a.dll和msxml3r.dll到C:/Windows/System32目录覆盖同名文件
2004-10-02 05:22:00 3715 1
原创 浏览器表格导出到Excel
浏览器表格导出到Excel 11 11 22 22 33 33 44 44 function AutomateExcel() {// Start Excel and get Application object.var oXL = new ActiveXObject("Excel.Application
2004-10-02 05:16:00 2024 1
原创 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
原创 客户端打开word并保存为html格式
function saveword(){ var wrd=new ActiveXObject("Word.Application") wrd.visible=true wrd.Documents.Open("e:/mydoc.doc") wrd.Application.Activate() wrd.ActiveDocument.SaveAs("e:/w
2004-10-02 05:09:00 867
原创 服务器端打开word
方法一str="hello world"Set objWordApp = Server.CreateObject("Word.Application") objWordApp.visible=trueSet objWordDoc=objWordApp.Documents.Open("e:/mydoc.doc") objWordApp.Selection.TypeText(str) objW
2004-10-02 05:08:00 1422 1
原创 将浏览器表格导入到word
%>Private Sub buildDoc(tbl) Dim objWordApp Dim objWordDoc Dim objParagraph Dim objRange Dim objTable Dim row, col Dim i, j row = tbl.rows.length col = tbl.rows.item(0).
2004-10-02 05:04:00 830
原创 将浏览器文本导入到word
function onDownloadDone(s) { content.value=s; }点击Text2Word,可以把这里的数据转成为Word.也可先导入文本件.点击浏览选择文本文件.再点击Text2Word,把文本文件的数据转成为Word.onDownloadDone)" size="20">value="Text2Word">value="导出该页
2004-10-02 05:02:00 900
原创 把一个网页文件的内容导入到word里
网页文件可能包括表格线,图片等 Set MyFileObject=CreateObject("Scripting.FileSystemObject")if Not MyFileObject.FolderExists("c:/导出word文档/") then MyFileObject.CreateFolder("c:/导出word文档/")end ifSet TextFile=MyFileOb
2004-10-02 05:01:00 1974 1
原创 读取一个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
原创 怎样取得网页中的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
原创 特定时间执行某程序
方法一:用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
原创 sql函数:汉字转换为拼音
sql数据库自定义一个函数把下面代码写进去功能是得到汉字拼音首字母 如下:create function fun_getPY(@str nvarchar(4000))returns nvarchar(4000)asbegindeclare @word nchar(1),@PY nvarchar(4000)set @PY=while len(@str)>0beginset @word
2004-10-02 04:27:00 1169
原创 汉字转换成拼音
比如想实现搜索“L”就能搜索出姓“刘的”“李的”“林的”测试response.write CheckStringFirst(“刘的“) 打印出LFunction CheckStringFirst(char) [45217,65184]为汉字,[65584,65593]为数字 char = Mid(char,1,1) FirstChar = 65536 + asc(char)
2004-10-02 04:23:00 816
原创 关闭窗口,立即注销登陆
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
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人