📄 config.asp
字号:
<!--#Include File="conn.asp" -->
<!--#Include File="md5.asp" -->
<html>
<head>
<title>Manage System V3.0</title>
<meta http-equiv="Content-Type" content="text/html; charSet=gb2312">
<link href="COAD.css" rel="stylesheet" type="text/css">
<%if session("userkey")<>4 then%>
<script language=javascript>
alert( "错误：您无权进行版面管理！" );
location.href = "javascript:history.back()"
</script>
<%end if%>
</head>
<body>
<table width="97%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
<tr>
<td height="25" bgcolor="#7C7CB5" ><div align="right"><A href="Admin_Exit.asp"><FONT color=#ffffff>退出网站</FONT></A> <A onclick="checkclick('您是否要打开本站首页？')" href="../index.asp" target=_blank><FONT color=#ffffff>网站首页</FONT></A></div></td>
</tr>
</table>
<table width="97%" bgcolor=#999999 cellspacing="1" cellpadding="5" align=center>
<tr bgcolor=#eeeeee>
<td colspan=2 align=right bgcolor="#eeeeee"><div align="center">┊ <a href="add.asp">添加广告</a> ┊ <a href="list.asp">广告列表</a> ┊ <a href="list.asp?action=stop">过期广告</a> ┊<a href="code.asp"> 广告代码</a> ┊ <a href="config.asp">广告设置</a> ┊</div></td>
</tr>
</table>
<br>
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="DDDDDD">
<tr>
<td bgcolor="f1f1f1"><%
If Request.Form("saveSet") <> "" Then Call saveSet()
Call main()
Sub main()
Set rs=Server.Createobject("adodb.recordset")
sql="select * from [config]"
rs.open sql,conn,1,1
%>
<br>
<table width="500" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#999999">
<form method="POST" action="?">
<tr align="center" bgcolor="c0c0c0">
<td colspan="2">
<div class="bar2">系 统 设 置</div></td>
</tr>
<tr>
<td width="100" height="25" align="right" bgcolor="e1e1e1">管理员名称：</td>
<td width="400" bgcolor="e6e6e6"><input name="AdminName" type="text" class="input1" value="<%=rs("UserName")%>" size="32"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="e1e1e1">管理员密码：</td>
<td bgcolor="e6e6e6"><input name="AdminPassword" type="password" class="input1" size="32" >
如不修改可不填写任何内容</td>
</tr>
<tr>
<td height="25" align="right" bgcolor="e1e1e1">网站名称：</td>
<td bgcolor="e6e6e6"><input name="webname" type="text" class="input1" value="<%=rs("WebName")%>" size="32"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="e1e1e1">网站地址：</td>
<td bgcolor="e6e6e6"><input name="weburl" type="text" class="input1" value="<%=rs("WebURL")%>" size="32"></td>
</tr>
<tr align="center" bgcolor="c0c0c0">
<td colspan="2"><input name="saveSet" type="Submit" class="input1" value="确 定">
<input name="B2" type="reSet" class="input1" value="重 置"></td>
</tr>
</form>
</table>
<br>
<%
rs.close
End Sub
Sub saveSet()
Set rs=Server.Createobject("adodb.recordset")
UserName = Request.Form("AdminName")
UserPass = Request.Form("AdminPassword")
WebName = Request.Form("WebName")
WebURL = Request.Form("WebURL")
sql="select * from [config]"
rs.open sql,conn,1,3
rs("username")=UserName
If UserPass<>"" Then rs("userpass")=MD5(UserPass)
rs("WebName")=WebName
rs("WebURL")=WebURL
rs.update
rs.close
Response.Write "<script>alert('恭喜!~修改成功!');</script>"
End Sub
Set rs=nothing
conn.close
Set conn=nothing
%></td>
</tr>
</table>
<br>
<table width="97%" height="83" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="DDDDDD">
<tr>
<td height="81" align="center" bgcolor="f1f1f1">
<!--#Include file="end.asp" --></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -