當年偶寫的asp程

2021-04-23 20:06:59 字數 1192 閱讀 6912

當年偶用vbscript寫的asp程式,好不容易從電腦上翻了出來,在ado.net大行其道的今天,偶確要研究一下先進的ado技術,真有點時空錯亂的感覺

dim conn  

dim connstr

set conn=server.createobject("adodb.connection")

if err then

err.clear

else

conn.open connstr

if err then

err.clear

end if

end if

set rs=server.createobject("adodb.recordset")

sql="select * from news"

rs.open sql,conn,1,3

rs.addnew

rs("main")=trim(request("s1")) 

rs("content")=trim(request("s2"))

rs("picexplain")=trim(request("s3"))

rs("type")=trim(request("c1"))

rs("source")=trim(request("t1"))

rs("manager")=request.cookies("username")

rs("time")=now

rs.update

rs.close

set rs=server.createobject("adodb.recordset")

sql="select * from news where id="&n

rs.open sql,conn,1,3

if not rs.eof then

rs.delete

end if

set rs=server.createobject("adodb.recordset")

sql="select * from news where type='"&z&"' order by id desc"

rs.open sql,conn,1,1

do while not (rs.eof or err) %>

<%=rs("main")%>

rs.movenext    

loop   

乙個用c 寫的掃瞄asp原始碼漏洞的應用程式 2

主要方法 protected void btngo click object sender,system.eventargs e 定義分割符為 char line 定義分割符為 string arrstring strurl.split line 求asp檔案全名 string strfilenam...

乙個用c 寫的掃瞄asp原始碼漏洞的應用程式 續

主要方法 protected void btngo click object sender,system.eventargs e 定義分割符為 char line 定義分割符為 string arrstring strurl.split line 求asp檔案全名 string strfilenam...

乙個用c 寫的掃瞄asp原始碼漏洞的應用程式 續

主要方法 protected void btngo click object sender,system.eventargs e 定義分割符為 char line 定義分割符為 string arrstring strurl.split line 求asp檔案全名 string strfilenam...