📄 selfusercode_edit.asp
字号:
<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<%
'无变量传来时先赋初值，即添加状态
UserCode=""
UserName=""
Password=""
Question=""
Answer=""
selfDepart=""
ZhiCheng=""
XueLi=""
ZhiWei=""
Sex=""
Year1="1901"
Month1=""
day1=""
Birth=""
TopDepart=""
Add=""
YouBian=""
FTel=""
WTel=""
MTel=""
Fax=""
Email=""
UserType=""
LianXIRen=""
edit=""
'取得传来变量
strsqlzh=Request.QueryString("strsql")
UserCode=Request.Querystring("code")
page=Request.Querystring("page")
edit=Request.Querystring("edit")
if not UserCode="" then
set rst=server.createobject("ADODB.recordset")
Strsql="select * from xt_tc_User where 用户编码='"&UserCode&"'"
rst.open Strsql,strconn
UserCode=rst("用户编码")
UserName=rst("用户姓名")
Password=rst("密码")
Question=rst("查询密码问题")
Answer=rst("查询密码问题答案")
selfDepart=rst("部门编码")
Sex=rst("性别")
Birth=rst("出生年份")
year1=year(Cstr(birth))
month1=month(Cstr(birth))
day1=day(Cstr(birth))
XueLi=rst("学历")
ZhiCheng=rst("职称")
ZhiWei=rst("职位")
Add=rst("通讯地址")
YouBian=rst("邮编")
FTel=rst("家庭电话")
WTel=rst("办公电话")
MTel=rst("移动电话")
Fax=rst("传真")
Email=rst("Email")
UserType=rst("用户类型")
LianXIRen=rst("企业联系人")
end if
if left(session("usercode"),3)="Kjj" then'科技局内部人员
set rst1=server.CreateObject ("ADODB.recordset")
StrSQL="select * from XT_VC_depart"
rst1.CursorType =3
rst1.CursorLocation =3
rst1.LockType =2
rst1.Open StrSQL,strconn
end if
%>
<script language="javascript" src="../js/check_email_num.js">
</script>
<html>
<head>
<title>内部用户在线注册</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../CssLib/Cssbutton.css">
</head>
<body text="#000000" bgcolor="#ffffff">
<img src="Images/title_edit_user.gif" width="200" height="27"><font color="#00CCFF" size="1">★★★★★<font color="#00CCFF" size="1">★★★★★</font><font color="#00CCFF" size="1">★★★★★</font><font color="#00CCFF" size="1">★★★★★</font>★★</font><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="22" height="20"><img src="../public/images/edit_bg_zs.gif" width="21" height="20"></td>
<td background="../public/images/bg_left.gif" bgcolor="#0099FF">
<div align="center"></div>
</td>
<td width="10"><img src="../public/images/edit_bg_ys.gif" width="21" height="20"></td>
</tr>
<tr>
<td background="../public/images/bg_left.gif"> </td>
<td bgcolor="#FFFFFF" height="200">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="ConList" method="post" action="../user/Regist.asp?strsql=<%=server.URLEncode(strsqlzh)%>&code=<%=usercode%>&edit=<%=request.querystring("edit")%>&page=<%=Cstr(request.querystring("page"))%>" onSubmit="return checkfun()">
<% if edit="edit" then %>
<tr>
<td height="19" width="6%" bgcolor="#ffffff"> </td>
<td height="19" width="20%" bgcolor="#ffffff">
<div align="left"></div>
</td>
<td height="19" width="65%" bgcolor="#ffffff"> </td>
<td height="19" width="9%" bgcolor="#ffffff"> </td>
</tr>
<tr>
<td height="20" width="6%" bgcolor="#eaeaea"> </td>
<td height="20" width="20%" bgcolor="#eaeaea">
<div align="left">用户编码</div>
</td>
<td height="20" width="65%" bgcolor="#eaeaea"> <%=Usercode%></td>
<td height="20" width="9%" bgcolor="#eaeaea"> </td>
</tr>
<tr bgcolor="#ffffff">
<td height="20" width="6%"> </td>
<td height="20" width="20%">
<div align="left"></div>
</td>
<td height="20" width="65%"> </td>
<td height="20" width="9%"> </td>
</tr>
<%end if%>
<tr bgcolor="#eaeaea">
<td height="20" width="6%" bgcolor="#eaeaea"> </td>
<td height="20" width="20%" bgcolor="#eaeaea">用户类型</td>
<td height="20" width="65%"><font color="#ff0000">
<input type="radio" name="UserType" value="个人"<% if UserType="个人" then response.write "checked" end if%><%if UserType="" then response.write "checked" end if%>>
</font>个人
<input type="radio" name="UserType" value="企业"<% if UserType="企业" then response.write "checked" end if%>>
企业 <font color="#ff0000">**</font> （**为必填项，下同）</td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="#ffffff">
<td height="20" width="6%"> </td>
<td height="20" width="20%">
<div align="left"></div>
</td>
<td height="20" width="65%"> </td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="#eaeaea">
<td height="20" width="6%" bgcolor="#eaeaea"> </td>
<td height="20" width="20%" bgcolor="#eaeaea">
<div align="left">姓名</div>
<% '各个输入框的最大长度均已经设定好，不又再校验%>
</td>
<td height="20" width="65%">
<input name="Name" maxlength=10 value="<%=userName%>">
<font color="#ff0000">**</font> </td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="white">
<td height="20" width="6%"> </td>
<td height="20" width="20%" bgcolor="white">
<div align="left"></div>
</td>
<td height="20" width="65%"> </td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="#eaeaea">
<td height="20" width="6%" bgcolor="#eaeaea"> </td>
<td height="20" width="20%" bgcolor="#eaeaea">
<div align="left">密码</div>
</td>
<td height="20" width="65%" bgcolor="#eaeaea">
<% if not edit="" then %>
<input type="text" name="password" maxlength=6 value="<%=Password%>">
<% else %>
<input type="password" name="Password" maxlength=6>
<%end if%>
<font color="#ff0000">**</font></td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="white">
<td height="20" width="6%"> </td>
<td height="20" width="20%">
<div align="left"></div>
</td>
<td height="20" width="65%"> </td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="#eaeaea">
<td height="20" width="6%"> </td>
<td height="20" width="20%" bgcolor="#eaeaea">
<div align="left">确认密码</div>
</td>
<td height="20" width="65%">
<input type="password" name="Password2" maxlength=6>
<font color="#ff0000">**</font> </td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="white">
<td height="20" width="6%"> </td>
<td height="20" width="20%">
<div align="left"></div>
</td>
<td height="20" width="65%"> </td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="#eaeaea">
<td height="20" width="6%"> </td>
<td height="20" width="20%" bgcolor="#eaeaea">
<div align="left">查询密码问题</div>
</td>
<td height="20" width="65%">
<input name="Question" size="30" maxlength=200 value="<%=question%>">
<font color="#ff0000">**</font> </td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="white">
<td height="20" width="6%"> </td>
<td height="20" width="20%">
<div align="left"></div>
</td>
<td height="20" width="65%"> </td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="#eaeaea">
<td height="20" width="6%" bgcolor="#eaeaea"> </td>
<td height="20" width="20%" bgcolor="#eaeaea">查询密码问题答案</td>
<td height="20" width="65%">
<input name="Answer" size="30" maxlength=200 value="<%=answer%>">
<font color="#ff0000">**</font> </td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="#ffffff">
<td height="20" width="6%"> </td>
<td height="20" width="20%"> </td>
<td height="20" width="65%"> </td>
<td height="20" width="9%"> </td>
</tr>
<% if left(session("usercode"),3)="Kjj" then '科技局内部人员注册时显示此项%>
<tr bgcolor="#eaeaea">
<td height="20" width="6%"> </td>
<td height="20" width="20%" bgcolor="#eaeaea">部门</td>
<td height="20" width="65%">
<select name="selfDepart">
<%if not rst1.eof then
for i=1 to rst1.RecordCount
%>
<option value="<%=rst1("部门编码")%>" <%if selfDepart=rst1("部门编码") then response.write "selected" end if%>><%=rst1("部门名称")%></option>
<%rst1.movenext
next
end if
rst1.close
set rst1=nothing
%>
</select>
(科技局内部人员填此项) </td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="#ffffff">
<td height="20" width="6%"> </td>
<td height="20" width="20%"> </td>
<td height="20" width="65%"> </td>
<td height="20" width="9%"> </td>
</tr>
<%end if%>
<tr bgcolor="#eaeaea">
<td height="20" width="6%"> </td>
<td height="20" width="20%" bgcolor="#eaeaea">联系人姓名</td>
<td height="20" width="65%">
<input name="LianXiRen" maxlength=5 value="<%=LianXiRen%>">
(企业用户必填此项) </td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="#ffffff">
<td height="20" width="6%"> </td>
<td height="20" width="20%"> </td>
<td height="20" width="65%"> </td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="#eaeaea">
<td height="20" width="6%" bgcolor="#eaeaea"> </td>
<td height="20" width="20%" bgcolor="#eaeaea">
<div align="left">性别</div>
</td>
<td height="20" width="65%">
<select name="sex">
<option value="男" <%if sex="男" then response.write "selected" end if%>>男</option>
<option value="女" <%if sex="女" then response.write "selected" end if%>>女</option>
</select>
</td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="#ffffff">
<td height="20" width="6%"> </td>
<td height="20" width="20%"> </td>
<td height="20" width="65%"> </td>
<td height="20" width="9%"> </td>
</tr>
<tr bgcolor="#eaeaea">
<td height="20" width="6%"> </td>
<td height="20" width="20%">出生年月</td>
<td height="20" width="65%">
<%'注意：1900年有其特殊之处，别忘了千年虫问题%>
<input name="year"maxlength=4 size="4" value="<%=year1%>">
年
<select name="Month">
<%for i=1 to 12%>
<option value="<%=i%>"<%if month1=i then response.write "selected" end if %>>
<%=i%></option>
<%next %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -