📄 adminset.asp
字号:
<!--#include file="checkthis.asp" -->
<!--#include file="data/conn.asp" -->
<html>
<head>
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="INDEX.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.xzy {border: <%=xcolor%> solid; border-width: 0px 1px 1px}
-->
</style>
</head>
<body bgcolor="<%=bgcolor%>" text="#000000">
<!--#include file="top.asp" --></td>
</tr>
</table>
<table width="750" border="0" cellspacing="0" cellpadding="5" align="center" bgcolor="#FFFFFF">
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="50" valign="top"><!--#include file="admintop.asp" --></td>
</tr>
</tr>
</table> <%
Function CheckStr(byVal ChkStr) '检查无效字符
Dim Str:Str=ChkStr
Str=Trim(Str)
If IsNull(Str) Then
CheckStr = ""
Exit Function
End If
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="(\r\n){3,}"
Str=re.Replace(Str,"$1$1$1")
Set re=Nothing
Str = Replace(Str,"'","''")
Str = Replace(Str, "select", "select")
Str = Replace(Str, "join", "join")
Str = Replace(Str, "union", "union")
Str = Replace(Str, "where", "where")
Str = Replace(Str, "insert", "insert")
Str = Replace(Str, "delete", "delete")
Str = Replace(Str, "update", "update")
Str = Replace(Str, "like", "like")
Str = Replace(Str, "drop", "drop")
Str = Replace(Str, "create", "create")
Str = Replace(Str, "modify", "modify")
Str = Replace(Str, "rename", "rename")
Str = Replace(Str, "alter", "alter")
Str = Replace(Str, "cast", "cast")
CheckStr=Str
End Function
if Request.QueryString("type")="Info" Then
Dim a,b,c,d,e,f,g,h,j,k,l,m
a=CheckStr(Request.Form("title"))
b=CheckStr(Request.Form("homeURL"))
c=CheckStr(Request.Form("webname"))
j=CheckStr(request.form("copyright"))
k=CheckStr(Request.Form("user"))
l=CheckStr(Request.Form("pass"))
'SQL="UPDATE Personalinfo SET title='"&a&"',homeURL='"&b&"',webname='"&c&"',bgcolor='"&d&"',indeximg='"&e&"',qqmsn='"&f&"',tel='"&g&"',beian='"&h&"',copyright='"&j&"',user='"&k&"',pass='"&l&"',userpass='"&m&"'"
'response.write sql
'response.end
Conn.ExeCute("UPDATE PersonalInfo SET title='"&a&"',homeURL='"&b&"',webname='"&c&"',copyright='"&j&"',[user]='"&k&"',[pass]='"&l&"'")
Response.Write("<center><a href=""adminset.asp"">基本信息修改成功，请点击返回</a><center>")
else
%>
<form name="Info1" method="post" action="adminset.asp?type=Info">
<table align="center" bgcolor="#ffffff" border="0" width=760 cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor="#ffffff" class="sfh" align="center" colspan=2>网站参数设置</td></tr>
<tr bgcolor="#ffffff"><td align="right" width="20%">网站标题: </td><td><input maxLength="50" name="Title" size="40" Value="<%=title%>"></td></tr>
<tr bgcolor="#ffffff"><td align="right" width="20%">网站名称: </td><td><input maxLength="50" name="webname" size="40" Value="<%=desktoptitle%>"></td></tr>
<tr bgcolor="#ffffff"><td align="right">网站网址: </td><td><input maxLength="60" name="homeurl" size="60" Value="<%=homeurl%>">(带"http://")</td></tr>
<tr bgcolor="#ffffff"><td align="right">版权信息: </td><td><textarea rows="8" name="copyright" cols="80" ><%=copyright%></textarea></td></tr>
<tr bgcolor="#ffffff"><td align="right">管理员名称: </td><td>
<input maxLength="16" name="user" size="15" Value="<%=usr%>"></td></tr>
<tr bgcolor="#ffffff"><td align="right">管理员密码: </td><td><input type="password" maxLength="20" name="pass" size="20" Value="<%=psd%>">(直接填入新密码,20位字符内)</td></tr>
<tr bgcolor="#ffffff"><td colspan=2 align="center">
<input type="submit" value=" 确定 ">
</td></tr></table>
</form><br>
<%
end if
%>
</td>
</tr>
</table>
<!--#include file="foot.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -