复制代码 代码如下:

<%

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

%>