user_reg_check1.asp

北京华信东方网络办公系统

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../dbase.asp"-->
<% Randomize 
if request.Form("workcode") <> "" and request.Form("truename") <> ""then
dim rs
set rs=server.CreateObject("adodb.recordset")
sql="SELECT v_UserTrueName, v_DepartmentName, v_duty, v_WorkPlace FROM hxdf_user_info WHERE c_UserID like '"& request.Form("workcode") &"'"
rs.open sql,conn,1,1
if rs.eof then
response.Write("输入的信息有误")
response.Write("<input type=button onClick=""self.location.href='user_reg_1.asp'"" value='返 回'>")
response.End()
else
if rs("v_UserTrueName")<>request.Form("truename") then
response.Write("输入的信息有误")
response.Write("<input type=button onClick=""self.location.href='user_reg_1.asp'"" value='返 回'>")
response.End()
else%>
<table width="500" border="1" align="center" cellpadding="4" cellspacing="1" bordercolor="#99CCFF">
  <tr align="center"> 
    <td colspan="2">员工信息确认</td>
  </tr>
  <tr> 
    <td width="243"><strong>姓名：</strong></td>
    <td width="232"><%= rs("v_UserTrueName") %></td>
  </tr>
  <tr> 
    <td><strong>所在部门：</strong></td>
    <td><%= rs("v_DepartmentName") %></td>
  </tr>
  <tr> 
    <td><strong>担任职务：</strong></td>
    <td><%= rs("v_duty") %></td>
  </tr>
  <tr> 
    <td><strong>常驻工作地点：</strong></td>
    <td><%= rs("v_WorkPlace") %></td>
  </tr><form action="user_reg_2.asp" method="post" name="form1" target="_self">
  <tr> 
    <td>随机验证号</td>
    <td><input name="tempcode" type="text" size="6"> <%
	te = Int((9999 - 1000 + 1) * Rnd + 1000)
	response.Write(te)
	Session("rndcode")=te
 %></td>
  </tr>
  <tr> 
    <td><strong>请再次验证您的基本信息，如果正确，继续</strong></td>
    <td><input name="workcode" type="hidden" value="<%=request.Form("workcode")%>"><input type="submit" value="下一步">
	<input value="返  回" type="button" onclick="history.go(-1)"></td>
  </tr></form>
</table>

<%end if
end if
rs.close: set rs=nothing
else
response.Write("请按要求输入<strong>工号</strong>和<strong>真实姓名</strong><br>")
response.Write("<input type=button onClick=""self.location.href='user_reg_1.asp'"" value='返 回'>")
response.End()
end if
%>