📄 config.asp
字号:
<%@ codepage ="936" %>
<%
if instr(session("flag"),"51")=0 then
response.redirect "../login.asp"
response.end
end if
%>
<!--#Include File="conn.asp" -->
<!--#Include File="md5.asp" -->
<%
'============================================================
'基点广告系统--COAD
'文件名：config.asp
'版 本：1.0
'编写日期：2004-3-11
'------------------------------------------------------------
'Copyright (C) 2002-2004 CECEN.net. All rights reserved.
'提供: http://www.CECEN.net, 制作：http://www.CECEN.net
'============================================================
%>
<html>
<head>
<title>COAD System</title>
<meta http-equiv="Content-Type" content="text/html; charSet=gb2312">
<link href="COAD.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="760" height="50" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="f1f1f1">
<tr>
<td width="330"><img src="images/COAD_logo.gif" width="330" height="50"></td>
<td width="20" valign="bottom"><img src="images/COAD_bevel.gif" width="20" height="22"></td>
<td valign="bottom"><img src="images/COAD_link.gif" width="410" height="22" border="0" usemap="#Map"></td>
</tr>
</table>
<map name="Map">
<area shape="rect" coords="10,4,62,19" href="add.asp" onFocus="if(this.blur)this.blur()">
<area shape="rect" coords="83,4,135,19" href="list.asp" onFocus="if(this.blur)this.blur()">
<area shape="rect" coords="155,3,206,20" href="list.asp?action=stop" onFocus="if(this.blur)this.blur()">
<area shape="rect" coords="227,3,279,19" href="code.asp" onFocus="if(this.blur)this.blur()">
<area shape="rect" coords="300,3,349,19" href="config.asp" onFocus="if(this.blur)this.blur()">
<area shape="rect" coords="371,3,398,19" href="index.asp" onFocus="if(this.blur)this.blur()">
</map>
<br>
<table width="760" 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>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -