📄 admin_siteconfig.asp

📁 网吧使用的导航web站点
💻 ASP
字号:
<!--#include file="mdb.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
dim pw1,pw2,pw3,pw4,pw5,action
currentadmin=Session("Admin")
pw1=request("pw1")
pw2=request("pw2")
pw3=request("pw3")
pw4=request("pw4")
pw5=request("pw5")
action=request("action")
if action="doit" then
if pw1="" then
	Response.Write "请输入新的网站名称"
	Response.End
end if
if pw2="" then
	Response.Write "请输入新的网站地址"
	Response.End
end if
if pw3="" then
	Response.Write "请输入新的站长邮箱"
	Response.End
end if
set r=server.createobject("adodb.recordset")
r.open "select * from title",conn,1,3
if not r.eof then
	r("site")=pw1
	r("siteurl")=pw2
	r("email")=pw3
	r("Copyright")=pw4
	r("login")=pw5
	r.update
	Response.Write "网站信息配置已成功更改！"
	Response.End
else
	Response.Write "无法完成请求！"
	Response.End
end if
	r.close
	set r=nothing
end if
dim site,siteurl,email,copyright,login
sql="select * from title"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
site=rs("site")
siteurl=rs("siteurl")
email=rs("email")
Copyright=rs("Copyright")
login=rs("login")
rs.close
set rs=nothing
%>
<html>
<head>
<title>网站配置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</head>
<body>
<div align="center">
  <center>
  <p>　</p>
  <form action="Admin_SiteConfig.asp" method="post">
<table width="90%" border="0" cellspacing="1" cellpadding="8" align="center" bgcolor="#999999">
  <tr> 
    <td bgcolor="#cccccc" align="center" colspan="2">网站信息配置</td>
  </tr>
  <tr> 
    <td bgcolor="#eeeeee"><br>网站名称：</td>
    <td bgcolor="#eeeeee"><input type="text" name="pw1" value=<%=site%>>&nbsp;&nbsp;<font color="#FF0000">*</font></td>  
  </tr>
  <tr> 
    <td bgcolor="#eeeeee">网站地址：</td>
    <td bgcolor="#eeeeee"><input type="text" name="pw2" value=<%=siteurl%>>&nbsp;&nbsp;<font color="#FF0000">*</font>&nbsp;请填写网址站的地址
    </td>
  </tr>
  <tr> 
    <td bgcolor="#eeeeee">站长邮箱：&nbsp;</td>
    <td bgcolor="#eeeeee"><input type="text" name="pw3" value=<%=email%>>&nbsp;&nbsp;<font color="#FF0000">*</font></td>  
  </tr>
  <tr> 
    <td bgcolor="#eeeeee">新站登陆：</td>
    <%
    if login=1 then
	Response.Write "<td bgcolor='#eeeeee'><input type='radio' value='1' name='pw5' checked>&nbsp;&nbsp;打开<input type='radio' name='pw5' value='0'>&nbsp;&nbsp;关闭"
     else
	Response.Write "<td bgcolor='#eeeeee'><input type='radio' value='1' name='pw5'>&nbsp;&nbsp;打开<input type='radio' name='pw5' value='0' checked>&nbsp;&nbsp;关闭" 
 end if
 %>
      &nbsp;&nbsp;&nbsp;说明：选择“关闭”则不允许新站登陆
  </tr>
  <tr> 
    <td bgcolor="#eeeeee">版权信息：</td>
    <td bgcolor="#eeeeee"><textarea cols="60%" rows="5" name="pw4"></textarea>
    </td>
  </tr>
  <tr> 
    <td bgcolor="#eeeeee">　</td>
    <td bgcolor="#eeeeee"><input type="submit">                                 
    </td>
  </tr>
  <tr>
<td align="center" bgcolor="#eeeeee" colspan="2">[<font color=#002288> <a href="http://www.HOTwz.com" target="_blank">热门网址</a></font>]</td>
</tr>
</table>
<input type="hidden" value="doit" name="action">                              
</form>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -