codedel1.asp

来自「20041230162250801409： 浙江省丽水市公铁联运有限公司OA系」· ASP 代码 · 共 15 行

  <%
On Error Resume Next

set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("../../data.mdb")
%>


<%  cxs=""
   dim sql
   dim rs
   set rs=server.CreateObject("adodb.recordset")
  Conn.execute("Update tuyun1 Set code ='"&cxs&"' ")
   response.Redirect ("code1.asp")
  %>