user_setting.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 905 行 · 第 1/3 页
ASP
905 行
<!--#include file="user_top.asp"-->
<!--#include file="inc/class_blog.asp"-->
<%
Dim DivId
DivId=Request("div")
If DivId="" Then DivId=11
DivId=Cint(DivId)
'没有出现编辑器的情况下进行脚本保护
If DivId="15" Or DivId="16" Then
Call oblog.makeEditorJs("edit",1)
End If
%>
</head>
<body style="overflow:auto!important;overflow:hidden;" scroll="no" style="background:#fff">
<ul class="user_setting_title" id="TabPage1">
<li id="Tab11" <%If divId=11 Then%>class="Selected"<%End If%>><a href="user_setting.asp?action=0&div=11" title="站点设置">站点设置</a></li>
<li id="Tab12" <%If divId=12 Then%>class="Selected"<%End If%>><a href="user_setting.asp?action=userpassword&div=12" title="密码设置">密码设置</a></li>
<li id="Tab13" <%If divId=13 Then%>class="Selected"<%End If%>><a href="user_setting.asp?action=userinfo&div=13" title="个人资料">个人资料</a></li>
<li id="Tab14" <%If divId=14 Then%>class="Selected"<%End If%>><a href="user_setting.asp?action=blogpassword&div=14" title="加密整站">加密整站</a></li>
<li id="Tab15" <%If divId=15 Then%>class="Selected"<%End If%>><a href="user_friendurl.asp" title="友情连接">友情连接</a></li>
<li id="Tab16" <%If divId=16 Then%>class="Selected"<%End If%>><a href="user_setting.asp?action=placard&div=16" title="博客公告">博客公告</a></li>
<li id="Tab17" <%If divId=17 Then%>class="Selected"<%End If%>><a href="user_setting.asp?action=blogstar&div=17" title="博客之星">博客之星</a></li>
<li id="Tab18" <%If divId=18 Then%>class="Selected"<%End If%>><a href="user_setting.asp?action=blogteam&div=18" title="共同撰写">共同撰写</a></li>
</ul>
<div id="user_setting_content">
<div id="cnt">
<%
Dim action
action = request("action")
Select Case action
Case "blogteam"
Call blogteam
Case "links"
Call links
Case "savelinks"
Call savelinks
Case "placard"
Call placard
Case "saveplacard"
Call saveplacard
Case "blogpassword"
Call blogpassword
Case "addblogpassword"
Call addblogpassword
Case "unblogpassword"
Call unblogpassword
Case "savesitesetup"
Call savesitesetup
Case "blogstar"
Call blogstar
Case "saveblogstar"
Call saveblogstar
Case "saveuserlostpass"
Call saveuserlostpass
Case "userpassword"
Call userpassword
Case "saveuserpassword"
Call saveuserpassword
Case "saveuserinfo"
Call saveuserinfo
Case "userinfo"
Call userinfo
Case Else
Call sitesetup
End Select
%>
</div>
</div>
</body>
</html>
<%
Sub blogteam()
%>
<div id="dTab18" class="Box">
<iframe class="FrmID" src="user_blogteam.asp" name="content2" frameborder="0" scrolling="auto"></iframe>
</div>
<%
End Sub
Sub saveplacard()
Dim rs, userplacard
userplacard = oblog.filt_astr(request.Form("edit"), 20000)
If oblog.l_Group(15,0)=0 Then userplacard = FilterJS(userplacard)
If oblog.chk_badword(userplacard) >0 Then
oblog.adderrstr ("站点公告中存在系统不允许的字符!")
oblog.showusererr
Exit Sub
End if
Set rs = server.CreateObject("adodb.recordset")
rs.open "select user_placard from [oblog_user] where userid=" & oblog.l_uid, conn, 1, 3
rs(0) = oblog.filtpath(userplacard)
rs.Update
rs.Close
Dim blog
Set blog = New class_blog
blog.userid = oblog.l_uid
blog.update_placard oblog.l_uid
Set rs = Nothing
oblog.showok "修改公告成功", ""
End Sub
Sub placard()
Dim rs
Set rs = oblog.execute("select user_placard from [oblog_user] where userid=" & oblog.l_uid)
%>
<div id="dTab12" class="Box">
<table class="dTab12_body" align="center" border="0" cellpadding="0" cellspacing="1">
<form name="oblogform" method="post" action="user_setting.asp?action=saveplacard">
<tr>
<td colspan="2" class="dTab12_body_top">博客公告</td>
</tr>
<tr>
<td class="dTab12_body_td">你可以在这里放置你的照片，关于你的介绍，或者你愿意放上去的任何信息。
</td>
</tr>
<tr>
<td>
<textarea id="edit" name="edit" style="width:60%;height:220px; display:none"><%=Server.HtmlEncode(OB_IIF(rs(0),""))%></textarea >
</td>
</tr>
<tr><td>
<input name="Action" type="hidden" id="Action" value="saveplacard" />
<input type="submit" name="Submit" value="提交修改" />
</td>
</tr>
</form>
</table>
</div>
<%
Set rs = Nothing
End Sub
Sub savelinks()
Dim rs, links
links = oblog.filt_astr(request.Form("edit"), 20000)
If oblog.l_Group(15,0)=0 Then links = FilterJS(links)
If oblog.chk_badword(links) >0 Then
oblog.adderrstr ("友情链接中存在系统不允许的字符!")
oblog.showusererr
Exit Sub
End if
Set rs = server.CreateObject("adodb.recordset")
rs.open "select user_links from [oblog_user] where userid=" & oblog.l_uid, conn, 1, 3
rs(0) = oblog.filtpath(links)
rs.Update
rs.Close
Dim blog
Set blog = New class_blog
blog.userid = oblog.l_uid
blog.update_links oblog.l_uid
Set rs = Nothing
oblog.showok "修改友情连接成功", ""
End Sub
Sub links()
Dim rs
Set rs = oblog.execute("select user_links from [oblog_user] where userid=" & oblog.l_uid)
%>
<div id="dTab12" class="Box">
<table class="dTab12_body" align="center" border="0" cellpadding="0" cellspacing="1">
<form name="oblogform" method="post" action="user_setting.asp">
<tr>
<td colspan="2" class="dTab12_body_top">友情连接</td>
</tr>
<tr>
<td class="dTab12_body_td">你可以先输入文字或者图片，然后用 <image src="images/wlink.gif" /> 按钮插入超级连接，推荐使用<a href="user_friendurl.asp">友情连接管理</a>。
</td>
</tr>
<tr>
<td> <textarea id="edit" name="edit" style="width:60%;height:220px; display:none"><%=Server.HtmlEncode(OB_IIF(rs(0),""))%></textarea >
</td>
</tr>
<tr>
<td>
<input name="Action" type="hidden" id="Action" value="savelinks" />
<input type="submit" name="Submit" value="提交修改" />
</td>
</tr>
</form>
</table>
</div>
<%
Set rs = Nothing
End Sub
Sub blogpassword()
%>
<div id="dTab14" class="Box">
<table class="dTab14_body" align="center" border="0" cellpadding="0" cellspacing="1">
<%
If oblog.l_Group(26,0)=1 Then
%>
<tr>
<td class="dTab14_body_td">整个blog站点的密码设定
<p>全站加密后，你所有日志都需要通过密码验证后才能访问。</br>
注意：设置完密码以后，需要<a href="user_update.asp">重新发布全站</a>！</p></td>
<td> <form name="form1" method="post" action="user_setting.asp?action=addblogpassword" >密码：<input type="password" name="password" /> <input type="submit" name="Submit" value="全站加密" /></form></td>
</tr>
<%Else%>
<tr>
<td class="dTab14_body_td">系统禁止进行整站加密</td>
<td>如果之前您启用了整站加密功能，之前加密的内容仍能通过原来的方式访问.</td>
</tr>
<%End If%>
<tr>
<td class="dTab14_body_td">解除我站点的密码保护</td>
<td><form name="form2" method="post" action="user_setting.asp?action=unblogpassword" /><input type="submit" name="Submit" value="解除我站点的密码保护" /></form></td>
</tr>
</table>
</div>
<%end sub
Sub addblogpassword()
If oblog.l_Group(26,0)=0 Then
oblog.showok "系统不允许整站加密!",""
Response.End
End If
Dim password, strtmp, upath, blog
password=Trim(request("password"))
if password="" then
oblog.showok "密码不能为空!",""
Response.End
end if
password = md5(password)
oblog.execute("update [oblog_user] set blog_password='"&password&"' where userid="&oblog.l_uid)
oblog.execute ("update [oblog_log] set blog_password=1 where userid=" & oblog.l_uid)
'strtmp="<script language=javascript>"&vbcrlf
'strtmp=strtmp&"var blogpassword=GetCookie('blogpassword')"&vbcrlf
'strtmp=strtmp&"if (blogpassword != '"&password&"')"&vbcrlf
'strtmp=strtmp&"{ window.location.replace('"&blogdir&"chkblogpassword.asp?userid="&oblog.l_uid&"');}"&vbcrlf
'strtmp=strtmp&"<script>"&vbcrlf
upath = server.MapPath(oblog.l_udir)
Call oblog.BuildFile(upath&"\"&oblog.l_ufolder&"\inc\chkblogpassword.htm","")
Set blog = New class_blog
blog.userid = oblog.l_uid
blog.update_index 0
blog.update_message 0
Set blog = Nothing
oblog.showok "设置整站密码成功,请重新更新全站才可获得安全的加密保护！", ""
End Sub
Sub unblogpassword()
Dim upath, blog
oblog.execute ("update [oblog_user] set blog_password='' where userid=" & oblog.l_uid)
oblog.execute ("update [oblog_log] set blog_password=0 where userid=" & oblog.l_uid)
upath = server.MapPath(oblog.l_udir)
Set blog = New class_blog
blog.userid = oblog.l_uid
blog.update_index 0
blog.update_message 0
Set blog = Nothing
oblog.showok "取消密码成功,请重新更新全站才可全部解密！", ""
End Sub
Sub sitesetup()
Dim rs, sstr, sublist, us, i,sstr1
If oblog.l_Group(6,0) = 0 Then sstr = "disabled"
If oblog.l_Group(7,0) = 0 Then sstr1 = "disabled"
Set rs = oblog.execute("select * from oblog_user where userid=" & oblog.l_uid)
us = rs("user_info")
If us = "" Or IsNull(us) Then
sublist = 0
Else
us = Split(us, "$")
If us(0) <> "" Then sublist = CInt(us(0)) Else sublist = 0
End If
%>
<div id="dTab11" class="Box">
<form name="oblogform" action="user_setting.asp" method="post">
<table class="dTab11_body" align="center" border="0" cellpadding="0" cellspacing="1">
<%if trim(oblog.cacheConfig(4))<>"" and oblog.cacheConfig(5)=1 then%>
<tr>
<td class="dTab11_body_td" >域名：
<p>请根据自己的喜好设置域名。</p></td>
<td><input name="user_domain" type="text" value="<%=oblog.filt_html(trim(rs("user_domain")))%>" size=10 maxlength=20 <%=sstr%> /> <select name="user_domainroot" <%=sstr%>><%=oblog.type_domainroot(rs("user_domainroot"))%></select><input type="hidden" name="old_userdomain" value="<%=oblog.filt_html(rs("user_domain"))%>"></td>
</tr>
<%end if%>
<%if true_domain=1 and oblog.l_Group(7,0)=1 then%>
<tr>
<td class="dTab11_body_td">绑定我的顶级域名：
<p>绑定前需确认域名ip已经解析到博客服务器。</p></td>
<td><input name="custom_domain" type="text" value="<%=oblog.filt_html(trim(rs("custom_domain")))%>" size=20 maxlength=50 <%=sstr1%> /></td>
</tr>
<%end if%>
<tr>
<td class="dTab11_body_td">站点名称：
<p>博客站点的名称。</p></td>
<td><input name="blogname" type="text" value="<%=oblog.filt_html(rs("blogname"))%>" size="30" maxlength="20" /></td>
</tr>
<tr>
<td class="dTab11_body_td">站点类别：
<p>你博客站点的类别，便于别人查找。</p></td>
<td><select name="user_classid" ><%=oblog.show_class("user",rs("user_classid"),0)%></select></td>
</tr>
<tr>
<td class="dTab11_body_td">允许将我加入博客团队：
<p>允许别人将自己加入他创建的团队。</p></td>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?