📄 responseview.asp
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>职位申请回复</title>
<link href=../style.css rel=STYLESHEET type=text/css>
</head>
<body>
<%
'从数据库中取得此申请信息，只有职位申请用户才可以看到回复内容
dim id,rs,sql
bb = Session("user_id")
id = request.QueryString("aid")
sql = "Select a.*,p.RealName,c.Company from Application a,Job j,Person p,Company c Where a.Appid = " & id
sql = sql & " And a.JobId=j.JobId And j.UserName=c.CName And a.UserName=p.UserName And a.UserName='"&bb&"'"
%>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,Conn,1,1
If rs.EOF Then
Response.Write "没有此回复。"
Else
%>
<table border="1" width="100%" cellspacing="1">
<tr>
<td width="100%">职位申请人：<%=rs("RealName")%></td>
</tr>
<tr>
<td width="100%">回复单位：<%=rs("Company")%></td>
</tr>
<tr>
<td width="100%">回复时间：<%=rs("RspDate")%></td>
</tr>
<tr>
<td width="100%"><%=rs("Response")%></td>
</tr>
</table>
<%End If%>
<p align="center"><a href="javascript:window.close()">[关闭]</a></p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -