摘要：
'http://www.xxxx.com/?thread-1-2.htmlurl=Request.ServerVariables("QUERY_STRING")bigID = "" '大类IDsmallID = "" '新闻ID'//判断是否含有 thread- 和 .htmlIf InStr(url, "thread-") > 0 And InStr(url, ".html") > 0 Then url = Replace(url, "th 阅读全文
摘要：
Function showsize(filename) FPath=server.mappath(filename) '本目录下 set fso=server.CreateObject("scripting.filesystemobject") If fso.fileExists(FPath) Then Set f = fso.GetFile(FPath) filetype=f.type filesize=f.size adddate=f.DateCreated ... 阅读全文
摘要：
'根据tag获取con的左侧字符串Function GetLeftPart(Con, tag) if instr(con,tag)>0 then GetLeftPart = Left(Con, InStr(Con, tag) - 1) else GetLeftPart = "" end ifEnd Function'根据tag1和tag2获取con的中间字符串Function GetBetweenPart(Con, tag1, tag2) if instr(con,tag1)>0 and instr(con,tag2)>0 then Get 阅读全文
摘要：
function http_GET(strUrl,strData) 'strUrl = "http://58.37.101.10/edit.asp" 'strData = "a=1&b=2" Dim objXMLHTTP, xml Set xml = Server.CreateObject("Microsoft.XMLHTTP") 'Set xml = Server.CreateObject("Msxml2.ServerXMLHTTP") httpsendurl = strUrl & 阅读全文
摘要：
'日志记录（文本追加生成）sub writeTxt(str,p) Set FSO=Server.CreateObject("Scripting.FileSystemobject") path=Server.MapPath(p) if FSO.FileExists(path) then Set text=FSO.OpenTextFile(path,8) else Set text=FSO.CreateTextFile(path,2) end if text.WriteLine(str) text.WriteLine("") ... 阅读全文
摘要：
Response.CodePage = 65001Response.Charset="UTF-8"'-------错误Miss---------On Error Resume Next'--------------------提交方式-------------if Request.ServerVariables("REQUEST_METHOD")="POST" then'--------------------链接数据库access------------- dim conn,connstr on error 阅读全文