複製代碼代碼如下:
<%
db="market.asp"'這裡改成您的數據庫地址
setconn=server.createobject("Adodb.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(db)
conn.openconnstr
conn.execute("createtablenotdownload(notdownoleobject)")
setrs=server.createobject("adodb.recordset")
sql="select*fromnotdownload"
rs.opensql,conn,1,3
rs.addnew
rs("notdown").appendchunk(chrB(asc("<"))&chrB(asc("%")))
rs.update
rs.close
setrs=nothing
conn.close
setconn=nothing
%>