qwbm_setting.asp
来自「个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站」· ASP 代码 · 共 365 行
ASP
365 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="qwbm_conn.asp"--><!--#include file="qwbm_cheack.asp"--><!--#include file="qwbm_md5.asp"--><%
sub passobj(game)
dim gamecounts,gameobj
gamecounts=len(game)
if IsNumeric (game) then
call errbox("密码不能为全是数字\n\n出于对您的资料安全考虑，当前密码不能通过，请重新设置当前密码","","","","")
end if
if gamecounts < 5 then
call errbox("当前密码太短，请设置大于 六 位的密码","","","","")
end if
end sub
dim actions,asps
actions = trim(request("action"))
asps = trim(request("asp"))
if asps = "modepass" then
ho_pass1 = trim(request("re_pass1"))
if ho_pass1 = "" then
call errbox("老密码不能为空","","","","")
end if
ho_pass1 = md5(ho_pass1)
ho_pass = trim(request("re_pass"))
if ho_pass = "" then
call errbox("新密码不能为空","","","","")
end if
call passobj(ho_pass)
ho_pass2 = trim(request("re_pass2"))
if ho_pass <> ho_pass2 then
call errbox("两次密码输入不同。","","","","")
end if
ho_pass2 = md5(ho_pass2)
set prs=server.CreateObject("adodb.recordset")
prs.open "select qwbmupwds from qwbmxuser where qwbmuname='"& request.cookies(""& qwbmcms2 &"username") &"' and qwbmupwds='"& ho_pass1 &"'",conn,1,3
if prs.eof and prs.bof then
call errbox("原妈密码错误-----密码修改失败！！！","","","","")
else
prs("qwbmupwds") = ho_pass2
prs.update
call errbox("密码修改成功！！！","qwbm_setting.asp?action=password","","","")
end if
prs.close
set prs=nothing
end if
if asps = "bookset" then
bok = trim(request("bok"))
if bok = "" then
bok = 0
end if
bshenhe = trim(request("bshenhe"))
if bshenhe = "" then
bshenhe = 0
end if
set mrs=server.CreateObject("adodb.recordset")
mrs.open "select * from qwbmbookset",conn,1,3
mrs("btitle")=trim(request("btitle"))
mrs("bok")=bok
mrs("bshenhe")=bshenhe
mrs("bout")=trim(request("bout"))
mrs("bpages")=trim(request("bpages"))
mrs("blength")=trim(request("blength"))
mrs("bjgtime")=trim(request("bjgtime"))
mrs("bobject")=replace(trim(request("bobject")),vbcrlf,"<br />")
mrs.update
mrs.close
set mrs=nothing
call errbox("修改留言配置成功","qwbm_setting.asp?action=bookset","","","")
end if
if asps = "modeset" then
set mrs=server.CreateObject("adodb.recordset")
mrs.open "select * from qwbmset where id=1",conn,1,3
mrs("qwbmurl")=trim(request("qwbmurl"))
mrs("qwbmtitle")=trim(request("qwbmtitle"))
mrs("qwbmkeywords")=trim(request("qwbmkeywords"))
mrs("qwbmdescription")=trim(request("qwbmdescription"))
mrs("qwbmicp")=trim(request("qwbmicp"))
mrs("qwbmfooter")=replace(trim(request("qwbmfooter")),vbcrlf,"<br />")
mrs("qwbmrequest")=trim(request("qwbmrequest"))
mrs.update
mrs.close
set mrs=nothing
call errbox("修改网站基本信息成功","qwbm_setting.asp?action=setting","","","")
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>深山管理员信息管理页面</title>
<link rel="stylesheet" type="text/css" href="skin/01/images/css.css">
</head>
<body>
<%if actions = "setting" then%>
<script language="javascript" type="text/javascript">
function titlecheack(){
var form=document.titleform;
if (form.qwbmurl.value.replace(/ /g,"")==""){
alert("网站网址不能为空");
form.qwbmurl.focus();
return false;
}
if (form.qwbmtitle.value.replace(/ /g,"")==""){
alert("网站名称不能为空");
form.qwbmtitle.focus();
return false;
}
if (form.qwbmkeywords.value.replace(/ /g,"")==""){
alert("网站关键字不能为空");
form.qwbmkeywords.focus();
return false;
}
if (form.qwbmdescription.value.replace(/ /g,"")==""){
alert("网站描述不能为空");
form.qwbmdescription.focus();
return false;
}
if (form.qwbmicp.value.replace(/ /g,"")==""){
alert("ICP备案不能为空");
form.qwbmicp.focus();
return false;
}
if (form.qwbmfooter.value.replace(/ /g,"")==""){
alert("页面底部内容不能为空");
form.qwbmfooter.focus();
return false;
}
if (form.qwbmrequest.value.replace(/ /g,"")==""){
alert("要过滤的危险字符不能为空");
form.qwbmrequest.focus();
return false;
}
return true;
}
</script>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from qwbmset where id=1",conn,1,3%>
<div class="divm"><div class="divml"></div><div class="divmr">系统基本设置</div></div>
<form action="?action=setting&asp=modeset" method="post" name="titleform" id="titleform" onSubmit="return titlecheack();">
<table cellpadding="0" cellspacing="1" class="table1">
<tr>
<td class="td1">网站地址：</td>
<td class="td2">
<input name="qwbmurl" type="text" class="input" id="qwbmurl" value="<%=rs("qwbmurl")%>" size="50" />
网站网址：如：<span class="tdf1">http://www.qwbm.com</span></td>
</tr>
<tr>
<td class="td1">网站名称：</td>
<td class="td2">
<input name="qwbmtitle" type="text" class="input" id="qwbmtitle" value="<%=rs("qwbmtitle")%>" size="50" />
网站名称：如：<span class="tdf2">深山行者个人网站</span></td>
</tr>
<tr>
<td class="td1">网站键字：</td>
<td class="td2">
<input name="qwbmkeywords" type="text" class="input" id="qwbmkeywords" value="<%=rs("qwbmkeywords")%>" size="50" />
<span class="tdf6">这个是系统的设置，请务改变</span></td>
</tr>
<tr>
<td class="td1">网站描述：</td>
<td class="td2">
<input name="qwbmdescription" type="text" class="input" id="qwbmdescription" value="<%=rs("qwbmdescription")%>" size="50" />
<span class="tdf6">这个系统的设置，请务改变</span></td>
</tr>
<tr>
<td class="td1">网站备案 ICP：</td>
<td class="td2">
<input name="qwbmicp" type="text" class="input" id="qwbmicp" value="<%=rs("qwbmicp")%>" size="50" />
<span class="tdf1">ICP即国家信息产业部审核号</span></td>
</tr>
<tr>
<td colspan="2" class="td5"> </td>
</tr>
<tr>
<td class="td1">要过滤的危险字符：</td>
<td class="td2"><textarea name="qwbmrequest" cols="84%" rows="5" id="qwbmrequest"><%=rs("qwbmrequest")%></textarea></td>
</tr>
<tr>
<td class="td1">网站底部字样：</td>
<td class="td2">
<textarea name="qwbmfooter" cols="84%" rows="5" id="qwbmfooter"><%=replace(rs("qwbmfooter"),"<br />",vbcrlf)%></textarea><br />
支持HTML</td>
</tr>
<tr>
<td class="td2"> </td>
<td class="td2">
<input name="Submit" type="submit" class="submit1" value="提交">
<input name="Submit2" type="reset" class="submit1" value="重置"> </td>
</tr>
</table>
</form>
<%rs.close
set rs=nothing
end if%>
<%if actions = "bookset" then%>
<script language="javascript" type="text/javascript">
function titlecheack1111111(){
var form=document.titleform;
if (form.btitle.value.replace(/ /g,"")==""){
alert("留言板名称不能为空");
form.btitle.focus();
return false;
}
if (form.bpages.value.replace(/ /g,"")==""){
alert("留言每页显示条数不能为空");
form.bpages.focus();
return false;
}
if (form.blength.value.replace(/ /g,"")==""){
alert("留言长度不能为空");
form.blength.focus();
return false;
}
if (form.bjgtime.value.replace(/ /g,"")==""){
alert("留言两次时间间隔不能为空");
form.bjgtime.focus();
return false;
}
if (form.bobject.value.replace(/ /g,"")==""){
alert("过滤某些特殊字符");
form.bobject.focus();
return false;
}
return true;
}
</script>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from qwbmbookset",conn,1,3%>
<div class="divm"><div class="divml"></div><div class="divmr">留言板设置</div></div>
<form action="?action=bookset&asp=bookset" method="post" name="titleform" id="titleform" onSubmit="return titlecheack();">
<table cellpadding="0" cellspacing="1" class="table1">
<tr>
<td class="td1">留言板名称：</td>
<td class="td2">
<input name="btitle" type="text" class="input" id="btitle" value="<%=rs("btitle")%>" size="50" />
如：<span class="tdf2">深山行者个人留言板</span></td>
</tr>
<tr>
<td class="td1">是否打开评论：</td>
<td class="td2"><input name="bok" type="checkbox" value="1"<%if rs("bok")=1 then%> checked="checked"<%end if%> />
<span class="tdf6">如果关闭,用户将不可以留言</span></td>
</tr>
<tr>
<td class="td1">留言关闭时显示：</td>
<td class="td2">
<input name="bout" type="text" class="input" id="bout" value="<%=rs("bout")%>" size="50" />
<span class="tdf2">如果留言关闭，将显示当前内容</span></td>
</tr>
<tr>
<td class="td1">留言是否要审核：</td>
<td class="td2"><input name="bshenhe" type="checkbox" value="1"<%if rs("bshenhe")=1 then%> checked="checked"<%end if%> /></td>
</tr>
<tr>
<td class="td1">留言每页显示条数：</td>
<td class="td2">
<input name="bpages" type="text" class="input" id="bpages" value="<%=rs("bpages")%>" size="50" /></td>
</tr>
<tr>
<td class="td1">留言内容长度：</td>
<td class="td2">
<input name="blength" type="text" class="input" id="blength" value="<%=rs("blength")%>" size="50" /></td>
</tr>
<tr>
<td class="td1">留言两次时间间隔：</td>
<td class="td2">
<input name="bjgtime" type="text" class="input" id="bjgtime" value="<%=rs("bjgtime")%>" size="50" /></td>
</tr>
<tr>
<td colspan="2" class="td5"> </td>
</tr>
<tr>
<td class="td1">过滤某些特殊字符：</td>
<td class="td2"><textarea name="bobject" cols="84%" rows="5" id="bobject"><%=rs("bobject")%></textarea></td>
</tr>
<tr>
<td class="td2"> </td>
<td class="td2">
<input name="Submit" type="submit" class="submit1" value="提交">
<input name="Submit2" type="reset" class="submit1" value="重置"> </td>
</tr>
</table>
</form>
<%rs.close
set rs=nothing
end if%>
<%if actions = "password" then%>
<div class="divm"><div class="divml"></div><div class="divmr">修改密码</div></div>
<form id="form1" name="form1" method="post" action="?action=password&asp=modepass" onSubmit="return passcheack();">
<table cellpadding="0" cellspacing="1" class="table1">
<tr>
<td class="td1">老密码：</td>
<td class="td2"><input name="re_pass1" type="password" size="30" maxlength="50" class="adduserinput" id="re_pass1" /></td>
</tr>
<tr>
<td class="td1">新密码：</td>
<td class="td2"><input name="re_pass" type="password" class="adduserinput" size="30" maxlength="50" id="re_pass" /></td>
</tr>
<tr>
<td class="td1">确认密码：</td>
<td class="td2"><input name="re_pass2" type="password" class="adduserinput" size="30" maxlength="50" id="re_pass2" /></td>
</tr>
<tr>
<td class="td1"> </td>
<td class="td2"><input name="Submit" type="submit" class="submit1" value="提交"> <input name="Submit2" type="reset" class="submit1" value="重置"></td>
</tr>
</table>
</form>
<script language="javascript" type="text/javascript">
//更新用户密码时进行验证
function passcheack(){
var re_pass1 = document.getElementById("re_pass1");
var re_pass = document.getElementById("re_pass");
var re_pass2 = document.getElementById("re_pass2");
var re_code = document.getElementById("re_code");
if (re_pass1.value.replace(/ /g,"") == ""){
alert("老密码不能为空");
re_pass1.focus();
return false;
}
if (re_pass.value.replace(/ /g,"") == ""){
alert("新的密码不能为空");
re_pass.focus();
return false;
}
if (re_pass2.value.replace(/ /g,"") != re_pass.value.replace(/ /g,"")){
alert("两次密码不相同。");
re_pass2.focus();
return false;
}
if (re_code.value.replace(/ /g,"") == ""){
alert("验证码不能为空");
re_code.focus();
return false;
}
if (isNaN(re_code.value.replace(/ /g,""))){
alert("验证必须为数字");
re_code.focus();
return false;
}
return true;
}
</script>
<%end if%>
<%
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?