user_setting.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 905 行 · 第 1/3 页
ASP
905 行
<td><input type="radio" value="1" name="en_blogteam" <%if rs("en_blogteam")<>0 then response.write "checked"%> />
是 <input type=radio value="0" name="en_blogteam" <%if rs("en_blogteam")=0 then response.write "checked"%> />否</td>
</tr>
<tr>
<td class="dTab11_body_td">是否隐藏转向url：
<p>开启后别人将看不到你的真实域名，只能看到你选择的二级域名。</p></td>
<td><input type="radio" value="1" name="hideurl" <%if rs("hideurl")=1 then response.write "checked"%> />
是 <input type="radio" value="0" name="hideurl" <%if rs("hideurl")=0 Or OB_IIF(rs("hideurl"),"")="" then response.write "checked"%> />否</td>
</tr>
<tr>
<td class="dTab11_body_td">分类日志是否以列表显示：
<p>开启后打开你的分类导航将看到日志标题的排列，关闭则显示日志内容。</p>
<span>(需要更新首页后才会生效)</span></td>
<td><input type="radio" value="1" name="sublist" <%if sublist=1 then response.write "checked"%> />
是 <input type="radio" value="0" name="sublist" <%if sublist=0 then response.write "checked"%> />否</td>
</tr>
<tr>
<td class="dTab11_body_td">首页日志是否以列表显示：
<p>开启后打开你的首页将看到最新日志标题的排列。</p>
<span>(需要更新首页后才会生效)</span></td>
<td><input type="radio" value="1" name="indexlist" <%if rs("indexlist")=1 then response.write "checked"%> />
是 <input type="radio" value="0" name="indexlist" <%if rs("indexlist")=0 then response.write "checked"%> />否</td>
</tr>
<tr>
<td class="dTab11_body_td">日志默认部分显示字数：
<p>首页文章列表页面显示的字数。设置成0可显示全文。</p>
<span>(需要更新首页后才会生效)</span></td>
<td><input name="user_showlogword_num" type="text" value="<%=rs("user_showlogword_num")%>" size="5" /></td>
</tr>
<tr>
<td class="dTab11_body_td">每页显示日志篇数：
<p>首页显示日志数量，请不要设置为0或者太大的数字。</p>
<span>(需要更新首页后才会生效)</span></td>
<td><input name="user_showlog_num" type="text" id="user_showlog_num" value="<%=rs("user_showlog_num")%>" size="5" /></td>
</tr>
<!-- <tr>
<td class="dTab11_body_td">每行显示相片数：
<p>相册页面没行显示照片数，建议设置成2。</p>
<span>(需要更新首页后才会生效)</span></td>
<td><input name="user_photorow_num" type="text" id="user_photorow_num" value="<%=rs("user_photorow_num")%>" size="5" /></td>
</tr>-->
<tr>
<td class="dTab11_body_td">显示最新回复条数：
<p>博客首页显示回复标题条数。</p>
<span>(需要更新首页后才会生效)</span></td>
<td><input name="user_shownewcomment_num" type="text" value="<%=rs("user_shownewcomment_num")%>" size="5" /></td>
</tr>
<tr>
<td class="dTab11_body_td">显示最新日志条数：
<p>博客首页显示最新日志条数。</p>
<span>(需要更新首页后才会生效)</span></td>
<td><input name="user_shownewlog_num" type="text" value="<%=rs("user_shownewlog_num")%>" size="5" /></td>
</tr>
<tr>
<td class="dTab11_body_td">显示最新留言条数：
<p>博客首页显示最新留言条数。</p>
<span>(需要更新首页后才会生效)</span></td>
<td><input name="user_shownewmessage_num" type="text" value="<%=rs("user_shownewmessage_num")%>" size="5" /></td>
</tr>
<tr>
<td class="dTab11_body_td">日志评论排列顺序：
<p>日志页面评论排列顺序，建议选择时间倒序。</p></td>
<td><input type="radio" value="1" name="comment_isasc" <%if rs("comment_isasc")=1 then response.write "checked"%> />时间顺序 <input type="radio" value="0" name="comment_isasc" <%if rs("comment_isasc")=0 then response.write "checked"%> />时间倒序</td>
</tr>
<tr>
<td class="dTab11_body_td">站点简介：
<p>写一点关于您博客站点的介绍。</p></td>
<td><textarea name="siteinfo" cols="40" rows="5"><%=oblog.filt_html(rs("siteinfo"))%></textarea></td>
</tr>
<tr>
<td colspan="2" class="dTab11_body_end"><input name="action" type="hidden" value="savesitesetup" /> <input type="submit" value=" 更新 " />
</td>
</tr>
</table>
</form>
</div>
<%
Set rs = Nothing
End Sub
Sub savesitesetup()
Dim user_domain, user_domainroot, blogname, user_classid, en_blogteam, user_showlogword_num, user_showlog_num, user_shownewcomment_num, user_shownewlog_num, user_shownewmessage_num, hideurl, comment_isasc, siteinfo, user_photorow_num, custom_domain
Dim rs, blog
user_domain = LCase(Trim(request("user_domain")))
user_domainroot = Trim(request("user_domainroot"))
blogname = EncodeJP(Trim(request("blogname")))
user_classid = Trim(request("user_classid"))
en_blogteam = Trim(request("en_blogteam"))
user_showlogword_num = Trim(request("user_showlogword_num"))
user_showlog_num = Trim(request("user_showlog_num"))
'user_photorow_num = Trim(request("user_photorow_num"))
user_shownewcomment_num = Trim(request("user_shownewcomment_num"))
user_shownewlog_num = Trim(request("user_shownewlog_num"))
user_shownewmessage_num = Trim(request("user_shownewmessage_num"))
hideurl = Trim(request("hideurl"))
comment_isasc = Trim(request("comment_isasc"))
siteinfo = EncodeJP(Trim(request("siteinfo")))
custom_domain = Trim(request("custom_domain"))
If Trim(oblog.CacheConfig(4)) <> "" And oblog.CacheConfig(5) = 1 And oblog.l_Group(6,0) = 1 Then
If user_domain = "" Or oblog.strLength(user_domain) > 20 Then oblog.adderrstr ("域名不能为空(不能大于14个字符)！")
If user_domain <> request("old_userdomain") And oblog.strLength(user_domain) < 4 Then oblog.adderrstr ("域名不能小于4个字符！")
'If oblog.chk_regname(user_domain) Then oblog.adderrstr ("此域名系统不允许注册！")
If oblog.chk_badword(user_domain) > 0 Then oblog.adderrstr ("域名中含有系统不允许的字符！")
If oblog.chkdomain(user_domain) = False Then oblog.adderrstr ("域名不合规范，只能使用小写字母，数字！")
If user_domainroot = "" Then oblog.adderrstr ("域名根不能为空！")
If oblog.CheckDomainRoot(user_domainroot) = False Then oblog.adderrstr ("域名根不合法！")
End If
If oblog.strLength(siteinfo) > 255 Then oblog.adderrstr ("站点简介不能大于255个字符！")
If oblog.chk_badword(blogname) > 0 Then oblog.adderrstr ("blog名中含有系统不允许的字符！")
If Not IsNumeric(user_showlogword_num) Then
oblog.adderrstr ("日志默认部分显示字数必须为数字！")
End If
If oblog.CacheConfig(48)="1" Then
Dim rsreg
Set rsreg=oblog.execute("select Count(userid) From oblog_user Where blogname='" & oblog.filt_badstr(blogname) & "' and userid<> " & oblog.l_uid)
If rsreg(0)>0 Then
oblog.adderrstr ("您使用的博客名称: " & blogname & " 已被他人使用，请更换博客名称")
End If
rsreg.Close
End If
If Not IsNumeric(user_showlog_num) Then
oblog.adderrstr ("每页显示日志数量必须为数字！")
Else
user_showlog_num = CLng(user_showlog_num)
If user_showlog_num > 50 Then oblog.adderrstr ("每页显示日志数量必须小于50！")
End If
'If Not IsNumeric(user_photorow_num) Then
' oblog.adderrstr ("每行显示相片数量必须为数字！")
' Else
' user_photorow_num = CLng(user_photorow_num)
' If user_photorow_num > 50 Then oblog.adderrstr ("每行显示相片数量必须小于50！")
' End If
If Not IsNumeric(user_shownewcomment_num) Then
oblog.adderrstr ("显示最新回复条数必须为数字！")
Else
user_shownewcomment_num = CLng(user_shownewcomment_num)
If user_shownewcomment_num > 50 or user_shownewcomment_num<1 Then oblog.adderrstr ("显示最新回复条数不能大于50或者小于1！")
End If
If Not IsNumeric(user_shownewlog_num) Then
oblog.adderrstr ("显示最新日志条数必须为数字！")
Else
user_shownewlog_num = CLng(user_shownewlog_num)
If user_shownewlog_num > 50 or user_shownewlog_num<1 Then oblog.adderrstr ("显示最新日志条数不能大于50或者小于1！")
End If
If Not IsNumeric(user_shownewmessage_num) Then
oblog.adderrstr ("显示最新留言条数必须为数字！")
Else
user_shownewmessage_num = CLng(user_shownewmessage_num)
If user_shownewmessage_num > 50 or user_shownewmessage_num<1 then oblog.adderrstr ("显示最新留言条数不能大于50或者小于1！")
End If
If Trim(oblog.CacheConfig(4)) <> "" And oblog.CacheConfig(5) = 1 And oblog.l_Group(6,0) = 1 Then
Set rs = oblog.execute("select userid from oblog_user where user_domain='" & oblog.filt_badstr(user_domain) & "' and user_domainroot='" & oblog.filt_badstr(user_domainroot) & "' and userid<>" & oblog.l_uid)
If Not rs.EOF Or Not rs.bof Then oblog.adderrstr ("系统中已经有这个域名存在，请更改域名！")
End If
If true_domain = 1 And custom_domain <> "" Then
If oblog.chk_badword(custom_domain) > 0 Then oblog.adderrstr ("绑定的顶级域名中含有系统不允许的字符！")
Set rs = oblog.execute("select userid from oblog_user where custom_domain='" & oblog.filt_badstr(custom_domain) & "'" & " and userid<>" & oblog.l_uid)
If Not rs.EOF Or Not rs.bof Then oblog.adderrstr ("系统中已经有其他人绑定了这个顶级域名，请更改域名或者联系管理员！")
End If
If oblog.errstr <> "" Then oblog.showusererr: Exit Sub
If hideurl = "" Or IsNull(hideurl) Then hideurl = 0
Set rs = server.CreateObject("adodb.recordset")
rs.open "select * from oblog_user where userid=" & oblog.l_uid, conn, 1, 3
If Not rs.EOF Then
rs("blogname") = oblog.filt_astr(blogname, 50)
If Trim(oblog.CacheConfig(4)) <> "" And oblog.CacheConfig(5) = 1 And oblog.l_Group(6,0) = 1 Then
rs("user_domain") = user_domain
rs("user_domainroot") = user_domainroot
End If
If oblog.l_Group(7,0) = 1 Then
If true_domain = 1 And oblog.l_ulevel = 8 Then
rs("custom_domain") = custom_domain
End If
End If
rs("user_classid") = user_classid
rs("en_blogteam") = en_blogteam
rs("user_showlogword_num") = user_showlogword_num
rs("user_showlog_num") = user_showlog_num
'rs("user_photorow_num") = user_photorow_num
rs("user_shownewcomment_num") = user_shownewcomment_num
rs("user_shownewlog_num") = user_shownewlog_num
rs("user_shownewmessage_num") = user_shownewmessage_num
rs("hideurl") = hideurl
rs("comment_isasc") = comment_isasc
rs("siteinfo") = siteinfo
rs("isubbedit") = OB_IIF(request.Form("isubbedit"),0)
rs("user_info") = CInt(request.Form("sublist")) & "$0"
rs("indexlist")=cint(request.Form("indexlist"))
rs.Update
rs.Close
End If
Set rs = Nothing
Set blog = New class_blog
blog.userid = oblog.l_uid
blog.update_blogname
Set blog = Nothing
oblog.showok "保存设置成功!", ""
End Sub
Sub saveblogstar()
Dim rs, picurl, bloginfo, blogname
picurl = Trim(request("picurl"))
bloginfo = Trim(request("bloginfo"))
blogname = Trim(request("blogname"))
If picurl = "" Or oblog.strLength(picurl) > 250 Then oblog.adderrstr ("图片连接地址不能为空,且不能大于250个字符！")
If bloginfo = "" Or oblog.strLength(bloginfo) > 250 Then oblog.adderrstr ("站点介绍不能为空,且不能大于250个字符！")
If blogname = "" Or oblog.strLength(blogname) > 250 Then oblog.adderrstr ("博客名不能为空,且不能大于50个字符！")
If oblog.errstr <> "" Then oblog.showusererr: Exit Sub
Set rs = server.CreateObject("adodb.recordset")
rs.open "select top 1 * from oblog_blogstar Where userid=" & oblog.l_uid, conn, 1, 3
If rs.EOF Then
rs.addnew
rs("userid") = oblog.l_uid
End If
rs("picurl") = picurl
rs("info") = bloginfo
If Trim(oblog.CacheConfig(4)) <> "" And oblog.CacheConfig(5) = 1 Then
rs("userurl") = "http://" & oblog.l_udomain
Else
rs("userurl")=oblog.CacheConfig(3)&oblog.l_udir&"/"&oblog.l_ufolder&"/index."&f_ext
End If
rs("blogname") = blogname
rs.Update
rs.Close
Set rs = Nothing
oblog.showok "提交完成，请等待管理员审核通过。", ""
End Sub
Sub blogstar()
Dim rs, strTitle, strBlogName, strPicUrl, strBlogInfo, intState
Set rs = server.CreateObject("ADODB.RecordSet")
rs.open "select * from oblog_blogstar Where userid=" & oblog.l_uid, conn, 1, 1
If rs.EOF Then
strTitle = "你目前还没有申请"
intState = -1
Else
strPicUrl = rs("picurl")
strBlogName = rs("blogname")
strBlogInfo = rs("info")
intState = rs("ispass")
If intState = 1 Then
strTitle = "你目前已经是博客之星，资料不可更改"
Else
strTitle = "你目前正在等待审核中，可以修改之前提交的资料"
End If
End If
rs.Close
Set rs = Nothing
%>
<div id="dTab17" class="Box">
<form method="post" action="user_setting.asp?action=saveblogstar">
<table class="dTab17_body" align="center" border="0" cellpadding="0" cellspacing="1">
<tr>
<td colspan="2" class="dTab17_body_top" style="width:100%;">申请博客之星: <%=strTitle%></td>
</tr>
<tr>
<td class="dTab17_body_td">博客名字：
<p>blog介绍请不要超过50字。</p></td>
<td><input type="text" maxlength="50" size="60" name="blogname" value="<%=strBlogname%>" /></td>
</tr>
<tr>
<td class="dTab17_body_td">图片地址：
<p>图片地址可以放上你的照片，站点logo或者站点缩略图。(图片尺寸最好缩小到130*100左右，以便管理员操作。)</p></td>
<td><input type="text" maxlength="250" size="60" name="picurl" value="<%=strPicUrl%>" /></td>
</tr>
<tr>
<td class="dTab17_body_td">blog介绍：
<p>图片地址可以放上你的照片，站点logo或者站点缩略图。</p></td>
<td><textarea name="bloginfo" cols="60" rows="5"><%=strBlogInfo%></textarea></td>
</tr>
<tr>
<td></td>
<td>
<%
Select Case intState
Case -1
%>
<input type="submit" value="提交申请资料"></ul>
<%
Case 0
%>
<input type="submit" value="修改申请资料"></ul>
<%
Case 1
%>
已经被确认为博客之星，资料不可更改，如果需要修改或撤销请与管理员联系。
<%End Select%>
</td>
</tr>
</table>
</form>
</div>
<%
End Sub
Sub userpassword()
if is_ot_user=1 then
response.Redirect(ot_modifypass1)
end if
Dim rs
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?