📄 userviewmessage.asp
字号:
<%@ Language=VBScript %>
<%
set rec=server.CreateObject("adodb.recordset")
rec.ActiveConnection="dsn=findjob"
rec.Source="select * from usercom where user='" & session("useronline") & "' and comtouser=1"
rec.Open ,,1,1
if rec.BOF and Request.QueryString("page")=1 then
Response.Redirect "mainFrame.asp?message=你没有被招聘录用的消息"
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<FORM action="userviewmessage.asp" method=POST id=form1 name=form1>
<P>
<font size=4 face=幼圆 color=Goldenrod><%Response.Write session("username")%>的录用/招聘情况</font>
</P>
<P>
<%
rec.PageSize=1
if Request.ServerVariables("http_method")="GET" then
'第一次请求，页面的值为1
page=cint(request("page"))
end if
if Request.Form("submit")="后一个" then
page=request("page") + 1
end if
if Request.Form("submit")="前一个" then
page=request("page")-1
end if
rec.AbsolutePage=page
if page>1 then
Response.Write "<INPUT type=submit value=前一个 id=submit2 name=submit>"
else
Response.Write "<INPUT type=submit value=前一个 id=submit2 name=submit disabled=true>"
end if
if page<rec.PageCount then
Response.Write "<INPUT type=submit value=后一个 id=submit1 name=submit>"
else
Response.Write "<INPUT type=submit value=后一个 id=submit1 name=submit disabled=true>"
end if
Response.Write "<INPUT type=hidden value=" & page & " id=hid3 name=page>"
tempcomid=rec("comid")
tempmessage=rec("message")
rec.Close
rec.Source="select * from cominfo where comid='" & tempcomid & "'"
rec.Open ,,1,3
%>
<P></P>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=75%>
<TR>
<TD>公司名称：<%=rec("comname")%></TD></TR>
<TR>
<TD>
<DIV align=center>公司的通知</DIV></TD></TR>
<TR>
<TD><pre><%=tempmessage%></pre></TD></TR></TABLE></P>
<P> </P>
<%
rec.Close
set rec=nothing
%>
</FORM>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -