setup1.asp

个人求职网源代码

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

DB = "liuyan/FSB.mdb"
userid=request.querystring("userid")
if userid="" or not isnumeric(userid)=true then
userid="1"
else
userid=int(userid)
end if
dsconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open dsconnstr
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()
%>


<%
end sub
%>