摘要：
播放 阅读全文
posted @ 2013-09-29 09:56
巫妖天下
阅读(652)
评论(0)
推荐(0)
摘要：
'-------------链接MSSQL,建立数据集-------------------------'引入Microsoft ActiveX Data Objects 2.5 LibraryDim Conn As New ADODB.ConnectionDim theSource As New ADODB.CommandDim theRS As New ADODB.RecordsetConn.Open "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Cat 阅读全文
posted @ 2013-09-08 20:15
巫妖天下
阅读(189)
评论(0)
推荐(0)
摘要：
'先引入Microsoft XML,v4.0Function PostXML(url As String, xml As String) As String Dim I As Integer 'xml = "" Dim h As MSXML2.ServerXMLHTTP40 Dim X As MSXML2.DOMDocument40 Set X = New MSXML2.DOMDocument40 X.loadXML xml Set h = New MSXML2.ServerXMLHTTP40 h.Open "POST", url, F. 阅读全文
posted @ 2013-09-08 20:13
巫妖天下
阅读(374)
评论(0)
推荐(0)
摘要：
'=======GET方式获取网页源代码================Function GetCode(Url As String, CodeBase As String) '第一个参数是地址,第二个参数是设置编码方式(GB2312或UTF-8). Dim xmlHTTP1 Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP") xmlHTTP1.Open "get", Url, True xmlHTTP1.send While xmlHTTP1.readyState 4 DoEvents .. 阅读全文
posted @ 2013-09-08 20:11
巫妖天下
阅读(904)
评论(0)
推荐(0)
摘要：
'url编码Function URLEncode(strParameter)Dim s As StringDim I As IntegerDim intValue As IntegerDim TmpData() As Byte s = "" TmpData = StrConv(strParameter, vbFromUnicode) For I = 0 To UBound(TmpData) intValue = TmpData(I) If (intValue >= 48 And intValu... 阅读全文
posted @ 2013-09-08 20:07
巫妖天下
阅读(277)
评论(0)
推荐(0)
摘要：
'Response.CacheControl = "no-cache" set xml = Server.CreateObject("MSXML2.domdocument") xml.load Server.MapPath("system.xml") '如果有错，报错if xml.parseError.errorCode 0 then Response.Write "xml.parseError.errorCode = " &xml.parseError.errorCode & &q 阅读全文
posted @ 2013-09-08 15:29
巫妖天下
阅读(398)
评论(0)
推荐(0)
摘要：
'tmp = ReadFileFrom("xxxx.html","utf-8")'Call WriteFileTo("../index.html",content,"utf-8")'********************************'fc：文件内容，f：文件路径，cset：文件编码'********************************Function WriteFileTo(f,fc,cset) Dim objStream Set objStream 阅读全文
posted @ 2013-09-08 15:23
巫妖天下
阅读(329)
评论(0)
推荐(0)
摘要：
'=========================' 获取以时间毫秒唯一数值'=========================Function GETTIMER() dim abc abc = now() GETTIMER = right(year(abc),2) & right("0" & month(abc),2) & right("0" & day(abc),2) & (timer()*100)End Function '=========================& 阅读全文
posted @ 2013-09-08 15:19
巫妖天下
阅读(153)
评论(0)
推荐(0)
摘要：
function UTF2GB(UTFStr) for Dig=1 to len(UTFStr) if mid(UTFStr,Dig,1)="%" then if len(UTFStr) >= Dig+8 then GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9)) Dig=Dig+8 else GBStr=GBStr & mid(UTFStr,Dig,1) end if else GBStr=GBStr & mid(UTFStr,Dig,1... 阅读全文
posted @ 2013-09-08 15:16
巫妖天下
阅读(442)
评论(0)
推荐(0)
摘要：
agent=request.servervariables("http_user_agent")股沟--------------Mozilla/5.0 (Windows NT 5.2) AppleWebKit/535.7 (KHTML, like Gecko) Chrome/16.0.912.63 Safari/535.7火狐--------------------------Mozilla/5.0 (Windows NT 5.2; rv:12.0) Gecko/20100101 Firefox/12.0360---------------------------Mozil 阅读全文
posted @ 2013-09-08 15:13
巫妖天下
阅读(520)
评论(0)
推荐(0)
浙公网安备 33010602011771号