📄 comviewmessage.asp
字号:
<%@ Language=VBScript %>
<%
set rec=server.CreateObject("adodb.recordset")
rec.ActiveConnection="dsn=findjob"
rec.Source="select * from usercom where comid='" & session("comonline") & "' and comtouser=2"
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="comviewmessage.asp" method=POST id=form1 name=form1><P>
<font size=4 face=幼圆 color=Goldenrod><%Response.Write session("comname")%>的录用/招聘情况</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>"
tempuser=rec("user")
tempmessage=rec("message")
rec.Close
rec.Source="select * from userinfo where user='" & tempuser & "'"
rec.Open ,,1,3
if rec.eof then
response.end
end if
%>
<P></P>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=75%>
<TR>
<TD>应聘者姓名：<%=rec("username")%></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 + -