setup.asp

来自「个人求职网源代码」· ASP 代码 · 共 61 行

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

DBPath = Server.MapPath("FSB.mdb")

userid=request.querystring("userid")
if userid="" or not isnumeric(userid)=true then
userid="1"
else
userid=int(userid)
end if

Connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& DBPath
Set conn = Server.CreateObject("ADODB.Connection")
Conn.open Connstr
sql="select * from admin where id="&userid
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1

if Rs.eof or Rs.bof then
message=message&"该留言本不存在"
call error(""&message&"")
end if

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 htmlend()
%>
<div align="center">
  <center>
<table cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#4F4F4F" width="100%">
  <tr>
    <td width="100%" align="center" class="white">程序制作 <a target="_blank" href="http://www.ayxz.com">FSS</a> 使用版本 
  </tr>
</table>
  </center>
</div>

<%
end sub
%>