?? qwbm_setting.asp
字號:
<%@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 + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -