UploadDoc.aspx
上传用户:tiancihang
上传日期:2014-03-12
资源大小:21387k
文件大小:1k
- <%@ Page Language="VB" %>
- <%
- Dim conn, dbpath
- conn = Server.CreateObject("ADODB.Connection")
- dbpath = Server.MapPath("demodata/soademo.mdb")
- conn.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath)
- %>
- <%
- Dim strsql
- '********************************************************************
- '按页面提交方式提交文档
- ' 读数据库相关操作
- strsql = "update " & Request.QueryString("Type") & " set subject='" & Request.Form("inputSubject") & "' where ID=" & Request.QueryString("ID")
- conn.execute(strsql)
- conn.Close()
- ' 释放数据库连接对象
- conn = Nothing
- Response.Write("文件上传成功!")
- %>
- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
- <script runat="server">
- </script>
- <html xmlns="http://www.w3.org/1999/xhtml" >
- <head runat="server">
- <title>无标题页</title>
- </head>
- <body>
- <form id="form1" runat="server">
- <div>
- <a href="javascript:window.close();">关闭</a>
- </div>
- </form>
- </body>
- </html>