update_access.asp

说明网络硬盘的使用用的是多种语言,不过不是很完善

<%
if request.Form<>"" then
on error resume next
Set Conn=Server.CreateObject("ADODB.Connection") 
connstr ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath(request("reg"))
Conn.Open connstr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请检查数据库路径是否正确。"
		Response.End
	End If

exec="CREATE TABLE UPTasks (id int IDENTITY (1,1) NOT null,[Name] varchar(255),Virual varchar(255),Suffix varchar(10),[Size] integer,Loaded integer,threads integer,SDate datetime,FDate datetime)"
conn.execute(exec)

response.write("数据库升级成功！")
response.End()
end if
%>	
<div align="center">
  <h3><strong>《桃源网络硬盘.Net》客户端数据库升级文件</strong></h3>
  <form id="form1" name="form1" method="post" action=""><p>请输入您的网络硬盘数据库地址及名称：
    <input name="reg" type="text" id="reg" value="reg.mdb" />
  （web.config中的数据库路径）</p>
    <p>
      <input type="submit" name="Submit" value="升级库结构" />
</p>
  </form>
</div>