wanteduser.asp

来自「职位管理用户管理登陆管理工作管理信息管理」· ASP 代码 · 共 83 行

ASP

83 行

<%@ 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>&nbsp;</P>
    <P>
     
</FORM></P>
</BODY>
</HTML>

wanteduser.asp - 源码说明

本页面展示了「职位管理用户管理登陆管理工作管理信息管理」中的 wanteduser.asp 源码文件，采用 ASP 编程语言编写，共 83 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与用户相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?