<%@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">員工信息確認(rèn)</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>擔(dān)任職務(wù)：</strong></td>
    <td><%= rs("v_duty") %></td>
  </tr>
  <tr> 
    <td><strong>常駐工作地點(diǎn)：</strong></td>
    <td><%= rs("v_WorkPlace") %></td>
  </tr><form action="user_reg_2.asp" method="post" name="form1" target="_self">
  <tr> 
    <td>隨機(jī)驗(yàn)證號(hào)</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>請(qǐng)?jiān)俅悟?yàn)證您的基本信息，如果正確，繼續(xù)</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("請(qǐng)按要求輸入<strong>工號(hào)</strong>和<strong>真實(shí)姓名</strong><br>")
response.Write("<input type=button onClick=""self.location.href='user_reg_1.asp'"" value='返 回'>")
response.End()
end if
%>