user_template.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 469 行 · 第 1/2 页
ASP
469 行
<!--#include file="user_top.asp"-->
<!--#include file="inc/class_blog.asp"-->
<%
dim action,iPage,sGuide
Action=trim(request("Action"))
iPage=12
If Action="modiconfig" Or Action="modiviceconfig" Then oblog.MakeEditorJs "",1
%>
</head>
<body style="overflow:hidden;" class="user_iframe">
<%
'设置每页模板显示显示数目
G_P_FileName="user_template.asp?page="
G_P_PerMax=12
'模板显示顺序,1:倒序,最新的在最前面;2:顺序,最老的在最前面
Const P_USER_TEMPLATE_ORDERBY=1
%>
<%
select case Action
case "saveconfig"
call saveconfig()
case "modiconfig"
call modiconfig()
case "savedefault"
call savedefault()
case "modiviceconfig"
call modiviceconfig()
case "saveviceconfig"
call saveviceconfig()
case "bakskin"
call bakskin()
case "good"
call good()
case Else
call showconfig()
End select
%>
</div>
</div>
</div>
</body>
</html>
<script language=javascript>
function VerIfySubmit()
{
If (document.oblogform.myTextArea.value == "")
{
alert("请输入模板内容!");
return false;
}
return true;
}
function setbak()
{
document.bakform.bak.value='bak';
}
function setrestore()
{
document.bakform.bak.value='restore';
}
function skin_help(action){
if (action==0){
var str="<div style='height:200px;overflow:auto'>主模版标签<hr />$show_log$ 重要，此标记显示日志主体部分，包括评论等信息。<br />$show_placard$ 此标记显示用户公告。 <br />$show_calendar$ 此标记显示日历。 <br />$show_newblog$ 此标记显示最新日志列表。 <br />$show_comment$ 此标记显示最新回复列表。<br />$show_subject$ 此标记显示专题分类。 <br />$show_subject_l$ 此标记横向显示专题分类。<br />$show_newblog$ 此标记显示最新日志列表。<br />$show_newmessage$ 此标记显示最新留言列表。<br />$show_info$ 此标记显示Blog名称，统计信息等。 <br />$show_login$ 此标记显示登陆窗口 <br />$show_links$ 此标记显示链接信息。<br />$show_blogname$ 此标记显示用户blog名称，若名称为空则显示用户id。<br />$show_search$ 此标记显示搜索表单。<br />$show_xml$ 此标记显示rss连接标志。<br />$show_blogurl$ 此标记显示博客链接。<br />$show_myfriend$ 此标签显示我的好友。<br />$show_mygroups$ 此标签显示我加入的群组。<br />$show_photo$ 此标签调用相册。</div>";
}else{
var str="<div style='height:150px;overflow:auto'>副模版标签<hr /> $show_topic$ 此标记显示日志题目。 <br />$show_loginfo$ 此标记显示日志作者，发表时间等信息。 <br />$show_logtext$ 此标记显示日志正文。 <br />$show_more$ 此标记显示阅读全文，引用等链接。 <br />$show_emot$ 此标记仅显示显示表情图标。<br />$show_author$ 此标记仅显示作者名。<br />$show_addtime$ 此标记仅显示发表时间。<br />$show_topictxt$ 此标记仅显示日志标题。</div>";
}
var oDialog = new dialog("<%=blogurl%>");
oDialog.init();
oDialog.event(str,'');
oDialog.button('dialogOk',"");
document.getElementById("ob_boxface").style.display="none";
}
</script>
<%
sub showconfig()
Dim rs,SkinStrings,defaultskin,rst,sql,sClasses,sqlclass,classid
Dim bookmark,sOrderby
Set rs=Server.CreateObject("Adodb.Recordset")
classid=Request("classid")
If classid<>"" Then classid=Int(classid)
If classid=0 Then classid=""
'取默认模板
rs.Open "select defaultskin from [oblog_user] where userid="&oblog.l_uid,conn,1,3
defaultskin=rs(0)
rs.Close
If classid<>"" Then sqlclass=" And classid=" & classid
'取该用户可用分类
If OB_IIF(oblog.l_Group(13,0),"")="" Then
sql="select * from oblog_userskin where ispass=1 " & sqlclass & " Order By Id"
Set rst=oblog.Execute("Select * From oblog_skinclass Where itype=0 And icount>0")
Else
sql="select * from oblog_userskin where ispass=1 And classid in (" & oblog.l_Group(13,0) &") " & sqlclass & " Order By Id"
Set rst=oblog.Execute("Select * From oblog_skinclass Where itype=0 And classid in (" & oblog.l_Group(13,0) &") And icount>0")
End If
Do While Not rst.Eof
sClasses=sClasses & "<option value=" & rst("classid") & ">" & rst("classname")& "(有" & rst("icount") &"个模板)</option>"
rst.Movenext
Loop
%>
<body style="overflow:hidden;" scroll="no">
<ul id="user_page_top">
<form name="formclass" method="post" action="user_template.asp">
<%
If defaultskin=0 Then
Response.Write "你当前还没有选择任何模板"
Else
Set rst=oblog.Execute("Select * From oblog_userskin Where id=" & defaultskin)
If Not rst.Eof Then
Response.Write "你当前选择的模板是：<a href='showskin.asp?id=" & rst("id") & "' target=_blank>" & "<font>" & rst("userskinname") &"</font></a>"
End If
Set rst=Nothing
End If
%>
<select name="classid">
<option value=0>---显示全部可用模板--</option>
<%=sClasses %>
</select>
<input type="submit" value="过滤">
</h1>
</form>
</ul>
<%
Dim lPage,lAll,lPages
If P_USER_TEMPLATE_ORDERBY=1 Then sOrderby=" Desc"
rs.Open sql & sOrderby,conn,1,3
lAll=INT(rs.recordcount)
If lAll=0 Then
rs.Close
Set rs=Nothing
%>
<div id="user_page_content">
<div id="content_li">
<ul class="content_li_conten">
<li class="t1"></li>
<li class="t3"> </li>
</ul>
<ul class="content_li_conten">
<li class="t1"></li>
<li class="t3"><%=sGuide & " 没有相关纪录" %></li></ul>
</div>
</div>
<%
Exit Sub
End If
'分页
If Request("page") = "" Or Request("page") ="0" then
lPage = 1
Else
lPage = Int(Request("page"))
End If
'设置缓存大小 = 每页需显示的记录数目
rs.CacheSize = iPage
rs.PageSize = iPage
rs.movefirst
lPages = rs.PageCount
If lPage>lPages Then lPage=lPages
rs.AbsolutePage = lPage
%>
<style type="text/css">
<!--
.dvhdr1 {width:auto;font-weight:400;}
.dvbdy1 {display:none;}
-->
</style>
<div id="showpage">
<%=MakeMiniPageBar(lAll,iPage,lPage,G_P_FileName)%>
</div>
<div id="user_template">
<%
SkinStrings="<ul>" & VBCRLF
SkinStrings = SkinStrings & GetSkinList(rs,defaultskin)
rs.Close
set rs=Nothing
SkinStrings = SkinStrings & "</ul>" & VBCRLF
Response.Write SkinStrings
SkinStrings=""
%>
<ul class="list_bot">
<input type="hidden" value="<%=request("u")%>">
</ul>
</div>
</div>
<%
set rs=nothing
End sub
sub savedefault()
dim rs,rsskin,isdefaultID
isdefaultID=clng(trim(request("radiobutton")))
set rsskin=oblog.execute("select skinmain,skinshowlog from oblog_userskin where id="&isdefaultID)
set rs=server.CreateObject("adodb.recordset")
rs.open "select user_skin_main,user_skin_showlog,defaultskin from [oblog_user] where userid="&oblog.l_uid,conn,1,3
rs(0)=rsskin(0)
rs(1)=rsskin(1)
rs(2)=isdefaultID
set rsskin=nothing
rs.update
rs.close
set rs=nothing
'如果是新手模式
If oblog.l_uNewbie=1 Then
'创建新的用户目录
If C_Reg_AutoCreate = 0 Then oblog.CreateUserDir oblog.l_uname, 1
oblog.execute "Update oblog_user Set newbie=0 Where userid=" & oblog.l_uid
updateindex()
oblog.showok "模板选择成功！",""
Else
updateindex()
oblog.showok "修改成功,首页已经更新，其他页面请手动更新！",""
End If
End sub
sub saveconfig()
dim rs,sql,sContent,iChk
If oblog.l_Group(14,0)=0 Then
oblog.showok "你所在的组不允许修改模板！","user_template.asp"
Exit Sub
End If
set rs=server.CreateObject("adodb.recordset")
sql="select user_skin_main from [oblog_user] where userid="&oblog.l_uid
rs.open sql,conn,1,3
sContent=oblog.filtpath(oblog.filt_badword(trim(request("myTextArea"))))
'内容检查
iChk=oblog.chk_badword(sContent)
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?