代码如下：<%set srmobj=server.CreateObject("adodb.stream")srmobj.type=1srmobj.mode=3srmobj.open()srmobj.Position=0srmobj.LoadFromFile server.MapPath("test.txt")srmobj.position=0srmobj.type=2srmobj.chars... Read More
posted @ 2007-07-06 12:31
老保
Views(375)
Comments(0)
Diggs(0)
1、lcase(string) 作用：将大写字母转换为小写字母；所有小写字母和非字母字符保持不变，string：字符串。2、asc（char xx） 获取字符的asc值。3、hex（） 把十进制数据转化为16进制数据。4、chr（） 获取asc值对应的字符。 Read More
posted @ 2007-07-06 12:22
老保
Views(145)
Comments(0)
Diggs(0)
代码如下：<%set xHttp=server.CreateObject("Microsoft.xmlhttp")formvalue="username=laobao"xHttp.open "POST","http://www.chinadxscy.com/getform.asp",falsexHttp.setRequestHeader "CONTENT-TYPE","application... Read More
posted @ 2007-07-06 12:14
老保
Views(771)
Comments(0)
Diggs(0)
代码如下<%function getHTTPPage(url) '通过组件Msxml2.XMLHTTP抓取网页内容on error resume next dim http set http=Server.createobject("Msxml2.XMLHTTP") Http.open "get",url,falseHttp.send() if Http.readystate<>... Read More
posted @ 2007-07-06 11:56
老保
Views(900)
Comments(0)
Diggs(0)
dim xurlxurl="http://www.chinadxscy.com/news/html/20070628201930.html"xstr="../../images/stm31.js"urlhead=left(xurl,(instr(replace(xurl,"//",""),"/")+1))urlpath=replace(left(xurl,instrRev(xurl,"/")),u... Read More
posted @ 2007-07-06 11:46
老保
Views(441)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号