📄 wanteduser.asp
字号:
<%@ Language=VBScript %>
<%
if session("namelist")="" then
'如果没有初步选定所需的人才，则提示要进行初步录用
Response.Redirect "mainFrame.asp?message=请先查看所有人才进行初步录用"
end if
if Request.ServerVariables("http_method")="POST" then
'以下为录用后的操作
set rec=server.CreateObject("adodb.recordset")
rec.ActiveConnection="dsn=findjob"
rec.Source="select * from usercom"
rec.Open ,,1,3
for each x in Request.Form("chkbox")
rec.AddNew
rec("comid")=session("comonline")
rec("user")=x
rec("comtouser")=1
rec("message")=Request.Form("message")
rec.Update
next
rec.Close
set rec=nothing
session("namelist")=""
Response.Redirect "mainFrame.asp?message=录取人数为" & Request.Form("chkbox").Count & "人"
end if
'以下为处理查看人才的请求
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<FORM action="wanteduser.asp" method=post id=form1 name=form1>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=72.45% >
<%
Response.Write "<caption><STRONG><FONT color=crimson face=幼圆 size=4>初步录用的人才</FONT></STRONG></caption>"
Response.Write "<TR><TD>录用</TD><TD>姓名</TD><TD>性别</TD><TD>年龄</TD><TD>专业</TD></TR>"
set conn=server.CreateObject("adodb.connection")
conn.ConnectionString="dsn=findjob"
conn.Open
strsql="select user,username,userage,usersex,usermajor from userinfo where user in (" & session("namelist") & ")"
set sqlresult=conn.Execute(strsql)
while not sqlresult.eof
Response.Write "<TR>"
Response.Write "<TD><INPUT type=checkbox id=checkbox1 name=chkbox checked value=" & sqlresult("user") & "></TD>"
Response.Write "<TD>" & sqlresult("username") & "</TD>"
Response.Write "<TD>" & sqlresult("usersex") & "</TD>"
Response.Write "<TD>" & sqlresult("userage") & "</TD>"
Response.Write "<TD>" & sqlresult("usermajor") & "</TD></TR>"
sqlresult.movenext
wend
conn.Close
set conn=nothing
%>
</TABLE>
<FONT color=crimson face=幼圆>
<P>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=75%>
<TBODY>
<TR>
<TD>
<DIV align=center>录用通知</FONT> </DIV></TD></TR>
<TR>
<TD>
<DIV align=center><TEXTAREA id=TEXTAREA1 name=message style="HEIGHT: 102px; WIDTH: 405px">xxx:
你已经被我公司初步录取，请于xx月xx日上午9:00带简历来
北京市xx路xx号来我公司面试。
2000.4.6
xx公司</TEXTAREA></DIV></TD></TR>
<TR>
<TD>
<DIV align=right>
<INPUT type="submit" value="正式录用" id=submit1 name=submit1></DIV></TD></TR></TBODY></TABLE></FONT></P>
<P> </P>
<P>
</FORM></P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -