📄 mod_user.asp
字号:
<!--#include file="inc/Conn.asp" -->
<!--#include file="Admin_IsLogin.asp" --><%
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/Style.css" rel="stylesheet" type="text/css">
</SCRIPT>
</SCRIPT>
<script language="javascript">
<!--
function IsDigit(){
return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
// -->
</script>
</head>
<BODY bgcolor="D6DFF7" leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<br><%
if UCase(changechr(Request.QueryString("action"))) = "MODUSER" then
Dim rdsInfo
set rdsInfo = Server.CreateObject("ADODB.Recordset")
rdsInfo.Open "fyuser Where id= "&changechr(Request.Form("id")),Conn,3,3
rdsInfo("pass") = changechr(Request.Form("pass"))
rdsInfo("company") =changechr(Request.Form("company"))
rdsInfo("question") =changechr(Request.Form("question"))
rdsInfo("answer") = changechr(Request.Form("answer"))
rdsInfo("name") =changechr(Request.Form("name"))
rdsInfo("yxxl") =changechr(Request.Form("yxxl"))
rdsInfo("yxbj") =changechr(Request.Form("yxbj"))
rdsInfo("qq") = changechr(Request.Form("qq"))
rdsInfo("ch") = changechr(Request.Form("ch"))
rdsInfo("phone") = changechr(Request.Form("phone"))
rdsInfo("post") = changechr(Request.Form("post"))
rdsInfo("provinceCN") = changechr(Request.Form("TPL_prov"))
rdsInfo("capitalCN") = changechr(Request.Form("TPL_city"))
rdsInfo("mobile") = changechr(Request.Form("mobile"))
rdsInfo("fax") = changechr(Request.Form("fax"))
rdsInfo("email") = changechr(Request.Form("email"))
rdsInfo("web") = changechr(Request.Form("web"))
rdsInfo("address") = changechr(Request.Form("address"))
rdsInfo("message") = changechr(Request.Form("message"))
rdsInfo.Update
rdsInfo.Close
set rdsInfo = nothing
Response.write("<script>alert(""修改成功！"");location.href=""admin_user.asp"";</script>")
Response.end
else
%><%Dim inff
Dim rsd
Dim sql
inff=changechr(Request("Id"))
set rsd = Server.CreateObject("ADODB.Recordset")
sql = "Select * From fyuser Where id = "&inff
rsd.Open sql,Conn,1,1
%>
<table class=tableBorder width="95%" border=0 align="center" cellpadding=5 cellspacing=1>
<tbody>
<form name=form action=?action=moduser method=post><tr>
<th height=21 colspan="2" sytle="line-height:150%">【用户信息修改】</th>
</tr>
<tr>
<td width="23%" class=forumRow align="right">用户名：</td>
<td width="74%" class=forumRowHighlight><%=rsd("user")%></td>
</tr>
<tr>
<td width="23%" class=forumRow align="right">密码：</td>
<td width="74%" class=forumRowHighlight><INPUT name=id value="<%=inff%>" type="hidden">
<INPUT class=smallInput maxLength=20 name=pass value="<%=rsd("pass")%>" size="19">
不改勿动</td>
</tr>
<tr>
<td width="23%" class=forumRow align="right" height="31">密码提示问题：</td>
<td width="74%" class=forumRowHighlight height="31"><INPUT class=smallInput maxLength=20 name=question value="<%=rsd("question")%>"></td>
</tr>
<tr>
<td width="23%" class=forumRow align="right"><FONT
color=#000000>密码提示答案：</FONT></td>
<td width="74%" class=forumRowHighlight><INPUT class=smallInput value="<%=rsd("answer")%>" maxLength=20 name=answer></td>
</tr>
<tr>
<td width="23%" class=forumRow align="right"><FONT
color=#000000>联系人：</FONT></td>
<td width="74%" class=forumRowHighlight><INPUT class=smallInput value="<%=rsd("name")%>" maxLength=10 name=name>
<select size="1" name="ch">
<option value="先生" <%if rsd("ch")="先生" then%> selected <%end if%>>先生</option>
<option <%if rsd("ch")="女士" then%> selected <%end if%> value="女士">女士</option>
</select></td>
</tr>
<tr>
<td width="23%" class=forumRow align="right">
运行线路：</td>
<td width="74%" class=forumRowHighlight>
<INPUT class=smallInput maxLength=25 size=28 name=yxxl value="<%=rsd("yxxl")%>">专线用户才会有</td>
</tr>
<tr>
<td width="23%" class=forumRow align="right">
运行报价：</td>
<td width="74%" class=forumRowHighlight>
<INPUT class=smallInput maxLength=25 size=20 name=yxbj value="<%=rsd("yxbj")%>">专线用户才会有</td>
</tr>
<tr>
<td width="23%" class=forumRow align="right">
<p align="right">QQ：</td>
<td width="74%" class=forumRowHighlight>
<INPUT class=smallInput ONKEYPRESS="event.returnValue=IsDigit();" maxLength=25 size=20 name=qq value="<%=rsd("qq")%>"></td>
</tr>
<tr>
<td width="23%" class=forumRow align="right">电话：</td>
<td width="74%" class=forumRowHighlight><FONT
color=#990000>
<INPUT class=smallInput maxLength=20 size=23 ONKEYPRESS="event.returnValue=IsDigit();" name=phone value="<%=rsd("phone")%>"></FONT></td>
</tr>
<tr>
<td width="23%" class=forumRow align="right" height="31">邮编：</td>
<td width="74%" class=forumRowHighlight height="31"><INPUT class=smallInput ONKEYPRESS="event.returnValue=IsDigit();" maxLength=6 size=8 name=post value="<%=rsd("post")%>"></td>
</tr>
<tr>
<td width="23%" class=forumRow align="right">省/市：</td>
<td width="74%" class=forumRowHighlight>
<select name=TPL_prov class="wenbenkuang" onChange="setcity();">
<option value="浙江" <%if rsd("provinceCN")="浙江" then%> selected <%end if%>> Zhejiang 浙江</option>
<option value="安徽" <%if rsd("provinceCN")="安徽" then%> selected <%end if%>> Anhui 安徽</option>
<option value="北京" <%if rsd("provinceCN")="北京" then%> selected <%end if%>> Beijing 北京</option>
<option value="重庆" <%if rsd("provinceCN")="重庆" then%> selected <%end if%>> Chongqing 重庆</option>
<option value="福建" <%if rsd("provinceCN")="福建" then%> selected <%end if%>> Fujian 福建</option>
<option value="甘肃" <%if rsd("provinceCN")="甘肃" then%> selected <%end if%>> Gansu 甘肃</option>
<option value="广东" <%if rsd("provinceCN")="广东" then%> selected <%end if%>> Guangdong 广东</option>
<option value="广西" <%if rsd("provinceCN")="广西" then%> selected <%end if%>> Guangxi 广西</option>
<option value="贵州" <%if rsd("provinceCN")="贵州" then%> selected <%end if%>> Guizhou 贵州</option>
<option value="海南" <%if rsd("provinceCN")="海南" then%> selected <%end if%>> Hainan 海南</option>
<option value="河北" <%if rsd("provinceCN")="河北" then%> selected <%end if%>> Hebei 河北</option>
<option value="黑龙江" <%if rsd("provinceCN")="黑龙江" then%> selected <%end if%>>Heilongjiang 黑龙江</option>
<option value="河南" <%if rsd("provinceCN")="河南" then%> selected <%end if%>> Henan 河南</option>
<option value="9港" <%if rsd("provinceCN")="9港" then%> selected <%end if%>> Hongkong 9港</option>
<option value="湖北" <%if rsd("provinceCN")="湖北" then%> selected <%end if%>> Hubei 湖北</option>
<option value="湖南" <%if rsd("provinceCN")="湖南" then%> selected <%end if%>> Hunan 湖南</option>
<option value="江苏" <%if rsd("provinceCN")="江苏" then%> selected <%end if%>> Jiangsu 江苏</option>
<option value="江西" <%if rsd("provinceCN")="江西" then%> selected <%end if%>> Jiangxi 江西</option>
<option value="吉林" <%if rsd("provinceCN")="吉林" then%> selected <%end if%>> Jilin 吉林</option>
<option value="辽宁" <%if rsd("provinceCN")="辽宁" then%> selected <%end if%>> Liaoning 辽宁</option>
<option value="澳门" <%if rsd("provinceCN")="澳门" then%> selected <%end if%>> Macao 澳门</option>
<option value="内蒙古" <%if rsd("provinceCN")="内蒙古" then%> selected <%end if%>>Neimenggu 内蒙古</option>
<option value="宁夏" <%if rsd("provinceCN")="宁夏" then%> selected <%end if%>> Ningxia 宁夏</option>
<option value="青海" <%if rsd("provinceCN")="青海" then%> selected <%end if%>> Qinghai 青海</option>
<option value="山东" <%if rsd("provinceCN")="山东" then%> selected <%end if%>> Shandong 山东</option>
<option value="上海" <%if rsd("provinceCN")="上海" then%> selected <%end if%>> Shanghai 上海</option>
<option value="山西" <%if rsd("provinceCN")="山西" then%> selected <%end if%>> Shanxi 山西</option>
<option value="陕西" <%if rsd("provinceCN")="陕西" then%> selected <%end if%>> Shanxi 陕西</option>
<option value="四川" <%if rsd("provinceCN")="四川" then%> selected <%end if%>> Sichuan 四川</option>
<option value="台湾" <%if rsd("provinceCN")="台湾" then%> selected <%end if%>> Taiwan 台湾</option>
<option value="天津" <%if rsd("provinceCN")="天津" then%> selected <%end if%>> Tianjin 天津</option>
<option value="新疆" <%if rsd("provinceCN")="新疆" then%> selected <%end if%>> Xinjiang 新疆</option>
<option value="西藏" <%if rsd("provinceCN")="西藏" then%> selected <%end if%>> Xizang 西藏</option>
<option value="云南" <%if rsd("provinceCN")="云南" then%> selected <%end if%>> Yunnan 云南</option>
</select> <select name=TPL_city class="wenbenkuang">
</select> <script language="JavaScript" >
<!--
function setcity() {
switch (document.form.TPL_prov.value) {
case "" :
var cityOptions = new Array("", "");
break;
case "安徽" :
var cityOptions = new Array(
"Hefei 合肥(*)", "合肥",
"Anqing 安庆", "安庆",
"Bangbu 蚌埠", "蚌埠",
"Bozhou 亳州", "亳州",
"Chaohu 巢湖", "巢湖",
"Chuzhou 滁州", "滁州",
"Fuyang 阜阳", "阜阳",
"Guichi 贵池", "贵池",
"Huaibei 淮北", "淮北",
"Huaihua 淮化", "淮化",
"Huainan 淮南", "淮南",
"Huangshan 黄山", "黄山",
"Jiuhuashan 九华山", "九华山",
"Liuan 六安", "六安",
"Maanshan 马鞍山", "马鞍山",
"Suzhou 宿州", "宿州",
"Tongling 铜陵", "铜陵",
"Tunxu 屯溪", "屯溪",
"Wuhu 芜湖", "芜湖",
"Xuanchen 宣城", "宣城");
break;
case "北京" :
var cityOptions = new Array(
"Beijing 北京", "北京");
break;
case "重庆" :
var cityOptions = new Array(
"Chongqing 重庆", "重庆");
break;
case "福建" :
var cityOptions = new Array(
"Fuzhou 福州(*)", "福州",
"Fuan 福安", "福安",
"Longyan 龙岩", "龙岩",
"Nanping 南平", "南平",
"Ningde 宁德", "宁德",
"Putian 莆田", "莆田",
"Quanzhou 泉州", "泉州",
"Sanming 三明", "三明",
"Shaowu 邵武", "邵武",
"Shishi 石狮", "石狮",
"Tongan 永安", "永安",
"Wuyishan 武夷山", "武夷山",
"Xiamen 厦门", "厦门",
"Zhangzhou 漳州", "漳州");
break;
case "甘肃" :
var cityOptions = new Array(
"Lanzhou 兰州(*)", "兰州",
"Baiyin 白银", "白银",
"Dingxi 定西", "定西",
"Dunhuang 敦煌", "敦煌",
"Gannan 甘南", "甘南",
"Jinchang 金昌", "金昌",
"Jiuquan 酒泉", "酒泉",
"Linxia 临夏", "临夏",
"Pingliang 平凉", "平凉",
"Tianshui 天水", "天水",
"Wudu 武都", "武都",
"Xifeng 西峰", "西峰",
"Zhangye 张掖", "张掖");
break;
case "广东" :
var cityOptions = new Array(
"Guangzhou 广州(*)", "广州",
"Chaoyang 潮阳", "潮阳",
"Chaozhou 潮州", "潮州",
"Chenghai 澄海", "澄海",
"Dongguan 东莞", "东莞",
"Foshan 佛山", "佛山",
"Heyuan 河源", "河源",
"Huizhou 惠州", "惠州",
"Jiangmen 江门", "江门",
"Jieyang 揭阳", "揭阳",
"Kaiping 开平", "开平",
"Maoming 茂名", "茂名",
"Meizhou 梅州", "梅州",
"Qingyuan 清远", "清远",
"Shantou 汕头", "汕头",
"Shanwei 汕尾", "汕尾",
"Shaoguan 韶关", "韶关",
"Shenzhen 深圳", "深圳",
"Shunde 顺德", "顺德",
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -