listjobs.asp

来自「人才招聘系统,用asp做的」· ASP 代码 · 共 36 行

<!--#include file=../conn.asp-->
<%
dim jobid,rs,sql,filename,mbsys
jobid=request("jobid")
if len(jobid)<>10 then
response.write "<li>参数错误！"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select mbsys from [person] where jobid='"&jobid&"'" 
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write "<li>参数错误！"
response.end
else
'mbsys=rs("mbsys")
if rs("mbsys")=0 then
response.redirect "skin/6.asp?jobid="&jobid&""
end if
mbsys=rs("mbsys")
end if
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from [moban] where id="&cstr(mbsys)
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.redirect "skin/7.asp?jobid="&jobid&""
else
filename=rs("filename")
response.redirect "skin/"&trim(filename)&"?jobid="&jobid&""
end if
rs.close
set rs=nothing
closedb
%>