setup.asp

我的课程设计

<%
dim conn,sqlstr,DBPath
dim bodymax,name,url,gbook_url,password,count,today_count,today_time,setup_ip,setup_time


	''''''''''更改数据库路径''''''''''''
DBPath = Server.MapPath("#gqlz.asp")

''''''''''''''以下无需修改'''''''''''''''''
Connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& DBPath
Set conn = Server.CreateObject("ADODB.Connection")
Conn.open Connstr
sql="select * from admin"
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1

gbook_name = Rs("gbook_name")
passwords = Rs("password")
name = Rs("name")
url = Rs("url")
bodymax = Rs("bodymax")
pagesize = Rs("pagesize")
today_count = Rs("today_count")
today_time = Rs("today_time")
setup_ip = Rs("setup_ip")
setup_time = Rs("setup_time")
Rs.close
set Rs = nothing
sub error(message)
%>
<script>alert('<%=message%>');history.back();</script><script>window.close();</script>
<%
response.end
end sub
sub error1(message)
%>
<script>alert('<%=message%>');history.go(-2);</script><script>window.close();</script>
<%
response.end
end sub
sub htmlend()
%>
<br>
</BODY></HTML>
<%
end sub
%>