📄 manageuserlist.asp
字号:
<!--#include file="connn.asp"-->
<!--#include file="functionn.asp"-->
<%
response.Clear()
id=testdb(request.QueryString("id"))
ManagerName=testdb(request.querystring("ManagerName"))
if session("LoginType")<>"系统管理员" then
response.write("<script>alert('对不起，只有系统管理员才有此权限!');window.history.back();</script>")
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理机票系统</title>
<link href="RLimages\user.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
/////Edited by zhouxiaolong
//-->
</script>
<style type="text/css">
<!--
td {
font-family: Verdana, "宋体", "新宋体", Tahoma;
font-size: 14px;
text-decoration: none;
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<%
'session("Adm_Remark")="supper"
if myPower="normal" then
ZXLpowerful=false
ReadStr="Readonly"
else
ReadStr=""
ZXLpowerful=true
end if
dim szSQL
set oRst=Server.CreateObject("AdoDb.recordset")
'tag = 1 and
szSQL="select * from webtestcustomerinfo order by adm_webSite desc"
oRst.Open szSQL,conn,3,3
while not oRst.eof or oRst.bof
ZXLCompanyName=trim(oRst("ZXLCompanyName"))
ZXLCompanyStr=trim(oRst("ZXLCompanyStr"))
ZXLCompanyStrStatus=trim(oRst("ZXLCompanyStrStatus"))
ZXLBankName=trim(oRst("ZXLBankName"))
ZXLBankAccount=trim(oRst("ZXLBankAccount"))
ZXLFaxNum=trim(oRst("ZXLFaxNum"))
ZXLTelService=trim(oRst("ZXLTelService"))
ZXLTelCenter=trim(oRst("ZXLTelCenter"))
ZXLCompanyEmail=trim(oRst("ZXLCompanyEmail"))
TestCustomerID=trim(oRst("TestCustomerID"))
UserreturnUrl=trim(oRst("UserreturnUrl"))
taxisWay=trim(oRst("taxisWay"))
ExpandAll=trim(oRst("ExpandAll"))
OrderBackPrescribe=trim(oRst("OrderBackPrescribe"))
ifOpenNewWin=trim(oRst("ifOpenNewWin"))
ifCloseWin=trim(oRst("ifCloseWin"))
UserPassword=trim(oRst("UserPassword"))
Adm_Status=trim(oRst("Adm_Status"))
Adm_Remark=trim(oRst("Adm_Remark"))
adm_times=trim(oRst("adm_times"))
adm_webSite=trim(oRst("adm_webSite"))
'end if
bc="bgcolor='#FFFFFF'"
%>
<table width="621" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="633" valign="top"><table width="621" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25" style="font-size:9pt"><br>
<strong>商户信息</strong>
<hr size="1"></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#3592F1" class="b-14"><div align="right">注：带*号的为必填项</div></td>
</tr>
</table>
<TABLE width=621 border=0 cellPadding=0 cellSpacing=1 bgcolor="#999999" id=TABLE1 style="FONT-SIZE: 9pt">
<form name="ZXLform" action="manageUserlist.asp" method="post">
<TBODY>
<TR bgColor=#C3E7F9>
<TH width="110" height="30">商户名</TH>
<TH width="508" height="30"><div align="left">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="4%" height="30"> </td>
<td width="96%"><%=TestCustomerID%></td>
</tr>
</table>
</div></TH>
<!-- <TH>有效</TH> -->
</TR> <TR bgColor=#C3E7F9>
<TH height="50">网址*</TH>
<TH height="30"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="4%" height="30"> </td>
<td width="96%"><input name="adm_webSite" type="text" id="adm_webSite" value="<%=adm_webSite%>" size="50"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="25"> show.asp页面地址，更改后请正确填写</td>
</tr>
</table></TH>
<!-- <TH>有效</TH> -->
</TR>
<%if not(instr(UserreturnUrl,"www.")>0 or instr(UserreturnUrl,"http://")>0) and not ZXLpowerful then noshowstr="style='display:none'"%>
<%if ZXLpowerful then%><%end if%>
<%if ZXLpowerful then%><%end if%>
<%if ZXLpowerful then%>
<%end if%>
<%
'oRst.Close
%>
<input type="hidden" name="Myaction" value="update">
<TR bgColor=#EEEEEE>
<TH height="30" colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="97%" height="30"><div align="right">
<input type="submit" name="Submit" value="确定">
<input type="reset" name="Reset" value="重置">
<input type="button" name="Button" onClick="Javascript:window.history.back(-1);" value="返回">
</div></td>
<td width="3%"> </td>
</tr>
</table></TH>
</TR>
</TBODY></form>
</TABLE>
<hr size="1">
<div align="center">
<BR>
</div></td>
</tr>
</table>
<%
oRst.MoveNext
pagesiz=pagesiz-1
wend
%>
</body>
</html>
<%
'oRst.close
if Request.ServerVariables("REQUEST_METHOD")="POST" and request.form("Myaction")="update" then
dim n
if oRst.eof then
oRst.movefirst
end if
UserPassword=data_pro(request.form("UserPassword"))
UserPassword1=data_pro(request.form("UserPassword1"))
if UserPassword<>UserPassword1 then response.write "<script language='javascript'>alert('两次输入密码不一样！');window.history.back(-1);</script>"
oRst("ZXLCompanyName")=data_pro(request.form("ZXLCompanyName"))
oRst("ZXLCompanyStr")=data_pro(request.form("ZXLCompanyStr"))
oRst("ZXLCompanyStrStatus")="欢迎使用"&data_pro(request.form("ZXLCompanyStr"))&"机票实时预订系统"
oRst("ZXLBankName")=data_pro(request.form("ZXLBankName"))
oRst("ZXLBankAccount")=data_pro(request.form("ZXLBankAccount"))
oRst("ZXLFaxNum")=data_pro(request.form("ZXLFaxNum"))
oRst("ZXLTelService")=data_pro(request.form("ZXLTelService"))
oRst("ZXLTelCenter")=data_pro(request.form("ZXLTelCenter"))
oRst("ZXLCompanyEmail")=data_pro(request.form("ZXLCompanyEmail"))
if myPower<>"normal" then
oRst("UserreturnUrl")=data_pro(request.form("UserreturnUrl"))
end if
oRst("taxisWay")=data_pro(request.form("taxisWay"))
oRst("ExpandAll")=data_pro(request.form("ExpandAll"))
oRst("OrderBackPrescribe")=data_pro(request.form("OrderBackPrescribe"))
if UserPassword=UserPassword1 and UserPassword<>"************" then
oRst("UserPassword")=UserPassword1
else
end if
oRst("adm_webSite")=data_pro(request.form("adm_webSite"))
if myPower<>"normal" then
oRst("ifOpenNewWin")=data_pro(request.form("ifOpenNewWin"))
oRst("Adm_Status")=data_pro(request.form("Adm_Status"))
oRst("Adm_Remark")=data_pro(request.form("Adm_Remark"))
oRst("ifCloseWin")=data_pro(request.form("ifCloseWin"))
end if
oRst.update
response.write "<script language='Javascript'>alert('数据更新成功！');window.location.href='manageUserlist.asp';</script>"
oRst.close
else
oRst.close
end if
set oRst=nothing
call conn_close()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -