?? 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=錄取人數(shù)為" & 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>專業(yè)</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:
你已經(jīng)被我公司初步錄取，請于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 + -