📄 responseedit.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 c.CName='"&bb&"'"
%>
<form name="myform" method="POST" action="ResponseSave.asp?aid=<%=id%>">
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,Conn,1,1
If rs.EOF Then
Response.Write "没有此回复。"
Response.End
Else
content = rs("Response")
If Len(content)>0 Then
content = Replace(content,"<br>",Chr(13))
content = Replace(content," "," ")
End If
%>
<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%" valign=top>回复内容<textarea rows="12" name="content" cols="55"><%=content%></textarea></td>
</tr>
</table>
<p align="center"><input type="submit" value=" 提 交 " name="B1">
<input type="reset" value=" 重写 " name="B2"></p>
<%End If%>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -