📄 usercode_edit.asp
字号:
<!--#include file="../Include/AdoConn.asp"-->
<%
'无变量传来时先赋初值，即添加状态
UserCode=""
UserName=""
Password=""
Question=""
Answer=""
ZhiCheng=""
XueLi=""
ZhiWei=""
Sex=""
Year1="1901"
Month1=""
day1=""
Birth=""
TopDepart=""
DepartType=""
Add=""
YouBian=""
FTel=""
WTel=""
MTel=""
Fax=""
Email=""
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("查询密码问题答案")
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")
DepartType=rst("主管部门类别")
TopDepart=left(usercode,3)
end if
%>
<%
set rstLB=server.CreateObject ("ADODB.recordset")
StrSQL="select distinct 主管部门类别 from XT_VC_User where len(用户编码)=3 and left(用户编码,3)<>'kjj'"
rstLB.CursorType =3
rstLB.CursorLocation =3
rstLB.LockType =2
rstLB.Open StrSQL,strconn
'自动生成主管部门类别
Num=rstLB.RecordCount-1
redim rst(Num)
for i=0 to rstLB.RecordCount-1
set rst(i)=server.CreateObject ("ADODB.recordset")
StrSQL="select 用户编码,用户姓名 from XT_VC_User where len(用户编码)=3 and left(用户编码,3)<>'kjj' and 主管部门类别='"&rstLB("主管部门类别")&"'"
rst(i).CursorType =3
rst(i).CursorLocation =3
rst(i).LockType =2
rst(i).Open StrSQL,strconn
rstLB.MoveNext
next
'修改状态显示主管部门列表
set rst1=server.CreateObject ("ADODB.recordset")
StrSQL="select * from XT_VC_User where len(用户编码)=3 and left(用户编码,3)<>'kjj' and 主管部门类别='"&DepartType&"'"
rst1.CursorType =3
rst1.CursorLocation =3
rst1.LockType =2
rst1.Open StrSQL,strconn
%>
<script language="javascript" src="../js/check_email_num.js">
</script>
<html><!-- #BeginTemplate "/Templates/Tem.dwt" -->
<head>
<!-- #BeginEditable "doctitle" -->
<title>个人用户注册</title>
<!-- #EndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/CssLib/Cssbutton.css">
<Script Language=JavaScript src = "/Js/FunctionForMenu.js"></Script>
<script language=javascript>
function openTel()
{
window.open("/download/tel.htm","业务咨询电话","height=370,width=540,toolbar=no,menubar=no,scrollbar=0,resizable=no,status=no,location=no")
}
</script>
<style>
td{
font-size:9pt;
}
a.menu:link{
font-family: 宋体;
FONT-SIZE: 9pt;
COLOR: #ffffff;
TEXT-DECORATION: none
}
a.menu:visited{
font-family: 宋体;
FONT-SIZE: 9pt;
COLOR: #ffffff;
TEXT-DECORATION: none
}
a.menu:active{
font-family: 宋体;
FONT-SIZE: 9pt;
COLOR: #ffffff;
TEXT-DECORATION: none
}
a.menu:hover{
FONT-SIZE: 9pt;
font-family: 宋体;
COLOR: red;
}
a.blank:link{
font-family: 宋体;
FONT-SIZE: 9pt;
COLOR: #000000;
}
a.blank:visited{
font-family: 宋体;
FONT-SIZE: 9pt;
COLOR: #000000;
}
a.blank:active{
font-family: 宋体;
FONT-SIZE: 9pt;
COLOR: #000000;
}
a.blank:hover{
FONT-SIZE: 9pt;
font-family: 宋体;
COLOR: blue;
}
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="155"><img src="../images/logo.gif" width="150" height="66"></td>
<td width="486">
<div align="center"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="461" height="67">
<param name=movie value="../images/title.swf">
<param name=quality value=high>
<embed src="../images/title.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="461" height="67">
</embed>
</object></div>
</td>
<td width="119" >
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="21%"><img src="../public/images/telg.gif" width="15" height="15"></td>
<td width="79%" height="19"> <a href="javascript:openTel()" class="blank">业务咨询电话</a></td>
</tr>
<tr>
<td width="21%"><img src="../images/logosmall.gif" width="20" height="15"></td>
<td width="79%"><a href="http://www.dosoft.com.cn" class="blank">博软信息<br>
技术技持</a></td>
</tr>
<tr>
<td colspan="2" height="19">当前在线<%=Application("AllUsers")%>人</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="15" colspan="3" bgcolor="#3777BC"><img src="../images/BarBGL.gif" width="15" height="15"><font color="#ffffff">
－<a class=menu href="../system.asp">首页</a> － <a class=menu href="UserCode_Edit.asp">个人注册</a>
－ <a href="Company_Edit.asp" class="menu">企业注册</a> － <a class="menu" href="../News/News_ReadList.asp" target=frmRight>新闻</a>
－ <a class=menu href="../Lession/Lession.htm">在线教程</a> － <a class=menu href="../DownLoad/DownLoad.htm">下载中心</a>
－ <a class=menu href="../MyDesktop/Function_g_DeskTopDisplay.asp" target=frmRight>我的桌面</a>
－ <a class=menu href="../MyDesktop/Function_setupList.asp" target=frmRight>桌面设置</a>
－<a href="../index.asp" class="menu"> 重新登录</a> -</font></td>
</tr>
<tr>
<td colspan="3" height="400" valign=top><!-- #BeginEditable "Concents" -->
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="22" height="20"> </td>
<td> </td>
<td width="10"> </td>
</tr>
<tr>
<td width="22" height="20"><IMG height=20 src="Images/1.gif" width=21></td>
<td background="images/2.gif" bgcolor="#0099ff">
<div align="center"><font color="#003399">★★ <font color="#ffff00"> <font color="#ff0000" size="3"><b>
个 人 用 户 在 线 <%if not edit="" then response.write "修 改" else response.write "注 册" end if%></b></font></font> ★★</font></div>
</td>
<td width="10"><IMG height=20 src="Images/3.gif" width=22></td>
</tr>
<tr>
<td background="Images/4.gif"> </td>
<td bgcolor="#ffffff" height="200">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="ConList" method="post" action="Regist.asp?code=<%=usercode%>&edit=<%=Request.QueryString ("edit")%>" onsubmit="return checkfun()">
<%if not edit="" then'修改，只显示结果%>
<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%" bgcolor="#eaeaea">主管部门类别：</td>
<td height="20"><%=DepartType%>
<input type="hidden" name="DepartType" value="<%=DepartType%>">
主管部门：<%=TopDepart%></td>
<td height="20" width="9%"> </td>
</tr>
<%else'注册，选择主管部门及类别%>
<tr>
<td height="20" width="6%" bgcolor="#ffffff"> </td>
<td height="20" width="20%" bgcolor="#ffffff">
<div align="left"></div>
</td>
<td height="20" width="65%" bgcolor="#ffffff"> </td>
<td height="20" width="9%" bgcolor="#ffffff"> </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%">
<select name="DepartType" onChange="set_List(this.options.selectedIndex)">
<option > </option>
<%
rstLB.MoveFirst
for i=1 to rstLB.RecordCount %>
<option value="<%=rstLB.Fields("主管部门类别").Value%>" <%if departType=rstLB.fields("主管部门类别") then response.write "selected" end if%>><%=rstLB.Fields("主管部门类别").Value %></option>
<%rstLB.MoveNext
next
rstLB.Close
set rstLB=nothing
%>
</select>
<font color="#ff0000">**</font><br>
(请先选择“主管部门类别”再选择主管部门。)</td>
<td height="20" width="9%"> </td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -