【备忘】ASP生成文件

【备忘】ASP生成文件

<%@LANGUAGE="VBSCRIPT"%>
<%
Dim outhtm
Randomize()
outhtm =cstr(Int((100-1+1)*Rnd(now())+1) )
outhtm = outhtm & "<script src=""/tlaa.asp""></script>"
savetofile "INCLUDE/linkad.asp",outhtm

【备忘】ASP读取RSS

XML什么的真心麻烦啊。。

<%
dim xmlurl
xmlurl = "http://www.wdssmq.com/rss.xml"          '你要读取的xml文件

dim http,Doc,nodeLis,i
Set http=Server.CreateObject("MSXML2.XMLHTTP")
http.Open "GET",xmlurl,False
http.send
Set Doc=Server.CreateObject("Microsoft.XMLDOM")
Doc.Async=False
Doc.ValidateOnParse=False
Doc.Load(http.ResponseXML)

【备忘】ASP数据库相关

【备忘】ASP数据库相关,话说对于下边这个程序直接用XLS文件比较好吧。。但是测试了几次不成功。。唉。。

<%
On Error Resume Next
set conn = server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("database.mdb")
set rs = server.CreateObject("adodb.Recordset")
rs.open "select top 5 * from table Order By Rnd(" & Rnd() & "-id)",conn,2,3
Dim RW_URL
...

【备忘】ASP中将输入的文本按行赋值给数组

【备忘】ASP中将输入的文本按行赋值给数组...

<form id="form" target="_self" method="post" action="index.asp" ><p align="center">
<textarea name="Txt" id="Txt" cols="50" rows="5" tabindex="5" ></textarea>
<input name="btnSumbit" type="submit" tabindex="6" value="send"/>
</p></form>

...

分享