huiyuan1.asp
来自「国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测」· ASP 代码 · 共 110 行
ASP
110 行
<head>
<link rel="stylesheet" type="text/css" href="css.css">
<!--#include file="conn.asp"-->
<%
if session("admin_rank")<>1 then
response.write("<script>alert('您无权查看本页，SORRY！');window.location=('login.asp')</script>")
response.end
end if
%>
<%
function htmlencode(str)
htmlencode=replace(replace(replace(str,chr(13),"<br>"),"'","''"),chr(32)," ")
end function
%>
<%
function modifycode(str)
modifycode=replace(replace(replace(str,"<br>",chr(13)),"'","''")," ",chr(32))
end function
%>
<%set rs=server.createobject("adodb.recordset")%>
</head>
<%
if request("action")="sys" then
sql="select * from sys"
rs.open sql,conn,3,3
rs("sys_name")=trim(request("sys_name"))
rs("sys_adds")=trim(request("sys_adds"))
rs("sys_mail")=trim(request("sys_mail"))
rs("sys_tel")=trim(request("sys_tel"))
rs("sys_qq")=trim(request("sys_qq"))
rs("sys_linkman")=trim(request("sys_linkman"))
rs("sys_count")=trim(request("sys_count"))
rs("sys_zip")=trim(request("sys_zip"))
rs("sys_post")=htmlencode(request("sys_post"))
rs("sys_network")=trim(request("sys_network"))
rs("sys_bank")=htmlencode(request("sys_Bank"))
rs("sys_info")=htmlencode(request("sys_info"))
rs("sys_mailserver")=trim(request("sys_mailserver"))
rs("sys_mailuser")=trim(request("sys_mailuser"))
rs("sys_mailpass")=trim(request("sys_mailpass"))
rs("sys_mailtitle")=trim(request("sys_mailtitle"))
rs("sys_bgimg")=trim(request("sys_bgimg"))
rs("sys_vip")=trim(request("sys_vip"))
rs("sys_jxs")=trim(request("sys_jxs"))
rs.update
rs.close
response.write "<script language=javascript>alert('修改成功！');window.location=('sys.asp')</script>"
response.End
end if
%>
<body style="background-color: #F0FBF1">
<p> <p/>
<p> <p/>
<p> <p/>
<p> <p/>
<p> <p/>
<p> <p/>
<DIV class=cPopText id=dypopLayer style="Z-INDEX: 1000; FILTER: Alpha(); POSITION: absolute"></DIV>
<TABLE style="BORDER-RIGHT: 0px dotted; BORDER-TOP: 0px dotted; BORDER-LEFT: 0px dotted; BORDER-BOTTOM: 0px dotted; BORDER-COLLAPSE: collapse" borderColor=#333333 cellSpacing=0 cellPadding=2 width="80%" border=1>
<FORM name=setup action=user_jibie.asp method=post>
<TBODY>
<TR class=backs>
<TD class=td background=back.gif colSpan=2 height=18>会员级别与折扣设置 </TD></TR></TBODY></FORM></TABLE>
<div align="center">
<table border="0" width="734" cellspacing="1">
<tr><%sql="select top 1 * from sys"
rs.open sql,conn,3,3%>
<td width="100%"><font color="#FF6600">
</font>
<form method="POST" action="sys.asp?action=sys">
<table border="1" width="700" cellspacing="0" cellpadding="0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" height="100">
<tr>
<td width="115" align="right" style="padding: 5px" height="38">
升VIP会员金额：</td>
<td style="padding: 5px" height="38">
<input type="text" name="sys_vip" size="9" value="<%=rs("sys_vip")%>" class=input>
用户消费满这个数目后系统自动升级为VIP会员</td>
</tr>
<tr>
<td width="115" align="right" style="padding: 5px" height="38">
升经销商会员金额：</td>
<td style="padding: 5px" height="38">
<input type="text" name="sys_jxs" size="9" value="<%=rs("sys_jxs")%>" class=input>
用户消费满这个数目后系统自动升级为经销商会员</td>
</tr>
</table><%rs.close
%>
<p align="center"><input type="submit" value="提交" name="B1" class=input></p>
</form></td>
</tr>
</table>
</div>
<%
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?