<%
if request.querystring("pid")=1 then
session("currentpage")=session("currentpage")-1
elseif request.querystring("pid")=2 then
session("currentpage")=session("currentpage")+1
else
session("currentpage")=1
end if
%>
招生信息输入
<%
set Con=Server.CreateObject("ADODB.Connection")
Con.open"dsn=art;uid=art;pwd=art!!!"
temID=replace(trim(request.form("Name")),"'","@")
temPass=replace(trim(request.form("Passw")),"'","@")
if temID<>"" and temPass<>"" then
session("pass")=request.form("Passw")
session("id")=request.form("Name")
end if
'if session("currentpage")<>1 then
temID=session("id")
temPass=session("pass")
'end if
sq="select * from primemanager where ID='"&temID&"' and password='"&temPass&"' and ability in ('管理员','招生资源所有权限') "
set rs=Con.execute(sq)
if rs.EOF then
response.redirect "adm1.asp"
end if
rs.close
temIDI=request.form("IDI")
temTitle=request.form("Title")
if temTitle<>"" and session("currentpage")<=1 then
session("title")=temTitle
end if
temTitle=session("title")
if temTitle<>"" or session("currentpage")>1then
set rsi=Server.CreateObject("ADODB.RecordSet")
rsi.cursortype=3
rsi.open "select ID,rdate,rkey,title,rcontent from recruitinfo where title like '%"&temTitle&"%'",Con
if rsi.EOF then
response.redirect "adm1.asp"
end if
rsi.pagesize=1
rsi.absolutepage=session("currentpage")
else
sqi="select ID,rdate,rkey,title,rcontent from recruitinfo where ID='"&temIDI&"'"
set rsi=Con.execute(sqi)
end if
if rsi.eof then
response.redirect "adm1.asp"
end if
%>