admin_userskin.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 706 行 · 第 1/2 页
ASP
706 行
id=replace(id," ","")
oblog.execute("delete from oblog_userskin where id in ("&id&")")
elseif id="" then
id=clng(request.QueryString("id"))
oblog.execute("delete from oblog_userskin where id="&id)
else
oblog.execute("delete from oblog_userskin where id="&id)
end if
ReCountSkins
oblog.showok "删除成功",""
end sub
sub modiconfig()
dim rs
set rs=oblog.execute("select * from oblog_userskin where id="&clng(request.QueryString("id")))
End Sub
sub saveaddskin()
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
if trim(request("userskinname"))="" then oblog.sys_err("模板名不能为空"):response.End()
if trim(request("skinmain"))="" then oblog.sys_err("主模板不能为空"):response.End()
if trim(request("skinshowlog"))="" then oblog.sys_err("副模板不能为空"):response.End()
sql="select * from oblog_userskin where id="&clng(request.QueryString("id"))
if not IsObject(conn) then link_database
rs.open sql,conn,1,3
rs.addnew
rs("userskinname")=trim(request("userskinname"))
rs("skinauthor")=trim(request("skinauthor"))
rs("skinmain")=trim(request("skinmain"))
rs("skinshowlog")=trim(request("skinshowlog"))
rs("skinpic")=trim(request("skinpic"))
rs("classid")=trim(request("classid"))
rs("skinauthorurl")=trim(request("skinauthorurl"))
rs.update
rs.close
set rs=nothing
ReCountSkins
response.Redirect "admin_userskin.asp?action=showskin"
end sub
sub modiskin()
dim rs
set rs=oblog.execute("select * from oblog_userskin where id="&clng(request.QueryString("id")))
%>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">修改用户模板</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border" >
<tr class="tdbg">
<td width="253" height="30"><strong>现在修改的模板是：<%=rs("userskinname")%></strong></td>
<td width="516" height="30">
<a href="admin_userskin.asp?action=modiskin&id=<%=rs("id")%>">修改模板</a> <a href="admin_userskin.asp?action=showskin&ispass=1">返回管理菜单</a>
<a href="admin_skin_help.asp" target="_blank"><strong>模板标记帮助</strong></a></td>
</tr>
</table>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">修改模板</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<form method="POST" action="admin_userskin.asp?id=<%=clng(request.QueryString("id"))%>" id="form1" name="form1" >
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr>
<td height="25" class="tdbg">模板名称：
<input name="userskinname" type="text" id="userskinname" value=<%=rs("userskinname")%>>
作者：
<input name="skinauthor" type="text" id="skinauthor" value=<%=rs("skinauthor")%>>
设定分类:
<select size=1 name="classid">
<option value="0" <%If OB_IIF(rs("classid"),0)=0 Then Response.Write " Selected" End If%>>------尚未分类------</option>
<%
Do While Not rstClass.Eof
%>
<option value="<%=rstClass("classid")%>" <%If CLng(OB_IIF(rstClass("classid"),0))=rs("classid") Then Response.Write " Selected" End If%>><%=rstClass("classname")%>(<%=rstClass("icount")%>)</option>
<%
rstClass.MoveNext
Loop%>
</select>
<br>
作者连接：
<input name="skinauthorurl" type="text" id="skinauthorurl" size="40" value="<%=rs("skinauthorurl")%>">
<br>
预览图片<strong>：
<input name="skinpic" type="text" id="skinpic" size="40" value="<%=rs("skinpic")%>">
</td>
</tr>
<tr>
<td height="25" class="tdbg"> <strong>主模板：</strong><br>
<textarea name="skinmain" cols="100" rows="12" id="edit"><%if rs("skinmain")<>"" then response.Write Server.HtmlEncode(rs("skinmain")) else response.Write("")%></textarea>
<br>
<br>
<strong>副模板： <br>
<textarea name="skinshowlog" cols="100" rows="12" id="skinshowlog"><%if rs("skinshowlog")<>"" then response.Write Server.HtmlEncode(rs("skinshowlog")) else response.Write("")%></textarea>
</strong></td>
</tr>
<tr>
<td class="tdbg"> <div align="center">
<input name="Action" type="hidden" id="Action" value="saveconfig">
<input name="cmdSave" type="submit" id="cmdSave" value=" 保存修改 " >
</div></td>
</tr>
</table>
</form>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<%
set rs=nothing
end sub
sub addskin()
%>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">添加用户模板</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border" >
<tr class="tdbg">
<td height="30"><div align="center"><a href="admin_userskin.asp?action=showskin"><strong>返回管理菜单</strong></a> <a href="admin_skin_help.asp" target="_blank"><strong>模板标记帮助</strong></a>
</div></td>
</tr>
</table>
<form method="POST" action="admin_userskin.asp" id="form1" name="form1" >
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr>
<td height="22" class="topbg"><strong>模板参数</strong></td>
</tr>
<tr>
<td height="25" class="tdbg">模板名称：
<input name="userskinname" type="text" id="userskinname">
作者：
<input name="skinauthor" type="text" id="skinauthor">
设定分类:
<select size=1 name="classid">
<option value="0">------尚未分类------</option>
<%=sClasses%>
</select>
<br>
作者连接<strong>：
<input name="skinauthorurl" type="text" id="skinauthorurl" size="40" value="">
</strong>
预览图片<strong>：
<input name="skinpic" type="text" id="skinpic" size="40">
</strong> </td>
</tr>
<tr>
<td height="25" class="tdbg"> <strong>主模板：</strong><br>
<textarea name="skinmain" cols="100" rows="12" id="edit"></textarea>
<br>
<br>
<strong>副模板： <br>
<textarea name="skinshowlog" cols="100" rows="12" id="skinshowlog"></textarea>
</strong></td>
</tr>
<tr>
<td class="tdbg"> <div align="center">
<input name="Action" type="hidden" id="Action" value="saveaddskin">
<input name="cmdadd" type="submit" id="cmdadd" value=" 添加 " >
</div></td>
</tr>
</table>
</form>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<%
end sub
Sub SaveMove()
dim id,ClassId
id=trim(request("checkbox"))
ClassId=Int(trim(request("classid")))
id=FilterIds(id)
If id<>"" Then
oblog.execute("Update oblog_userskin Set classid= " & ClassId & " where id in ("&id&")")
End If
ReCountSkins
oblog.showok "模板转移成功",""
End Sub
Sub ReCountSkins()
Dim rst,rst1
Set rst=Server.CreateObject("Adodb.Recordset")
Set rst1=Server.CreateObject("Adodb.Recordset")
'重新计数
rst.Open "Select classid From oblog_skinclass",conn,1,3
rst1.Open "Select Count(id) ,Classid From oblog_userskin Where ispass=1 Group By classid",conn,1,3
Do While Not rst.Eof
rst1.Filter="classid=" & rst(0)
If Not rst1.Eof Then
oblog.Execute "Update oblog_skinclass Set icount=" & rst1(0) & " Where classid=" & rst(0)
Else
oblog.Execute "Update oblog_skinclass Set icount=0 Where classid=" & rst(0)
End If
rst.MoveNext
Loop
Set rst=Nothing
Set rst1=Nothing
End Sub
Sub ShowClasses()
%>
<script language="javascript">
function checkClass(){
if(document.formC_0.classname1.value==""){
alert("请填写分类名称!");
document.formC_0.classname1.focus();
return false;
}
return true;
}
</script>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">模 板 分 类 维 护</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" Class="border">
<form name="formC_0" method="post" action="admin_userskin.asp?action=saveclass" onsubmit="return checkClass();">
<tr class="topbg">
<td height="25" colspan="7" >
<strong>新增分类:<input type="text" size=20 name="classname1" maxlength=20></strong>
<input type="submit" value="新增">
</td>
</tr>
</form>
<tr class="topbg">
<td width="20%" height="25" > <div align="center">分类编号</div></td>
<td width="40%" ><div align="center">分类名称</div></td>
<td width="15%" > <div align="center">模板数目</div></td>
<td width="25%" ><div align="center">操作</div></td>
</tr>
<%Do While Not rstClass.Eof %>
<form id="formC_<%=rstClass("classid")%>" name="formC_<%=rstClass("classid")%>" method="post" action="admin_userskin.asp?action=saveclass&classid=<%=rstClass("classid")%>">
<tr class="tdbg">
<td width="20%" height="25" > <div align="center"><%=rstClass("classid")%></div></td>
<td width="40%" ><div align="center"><input type="text" name="classname1" value="<%=rstClass("classname")%>"></div></td>
<td width="15%" > <div align="center"><%=rstClass("icount")%></div></td>
<td width="25%" ><div align="center">
<input type="submit" value="修改"></a> |
<%
If rstClass("icount")>0 Then
%>
<input type="button" value="删除" disabled>
<%
Else
%>
<input type="button" value="删除" onclick="if(confirm('确认要删除该分类吗?')==true) document.location.href='admin_userskin.asp?action=delclass&classid=<%=rstClass("classid")%>'">
<%
End If
%>
</div></td>
</tr>
</form>
<%
rstClass.Movenext
Loop
%>
</table>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<%
End Sub
Sub SaveClass()
Dim classid,classname,rst
classname=ProtectSql(Left(trim(request("classname1")),20))
classid=request("classid")
If classid<>"" Then classid=Int(classid)
If classname<>"" Then
Set rst=Server.CreateObject("ADODB.Recordset")
rst.Open "Select * From oblog_skinclass Where classname='" & classname & "'",conn,1,3
'是否重名
If Not rst.Eof Then
rst.Close
Set rst=Nothing
'oblog.showok "目标名称与现有分类名称重复","admin_userskin.asp?action=skinclass"
Response.Redirect "admin_userskin.asp?action=skinclass"
Exit Sub
End If
If classid="" Then
rst.AddNew
Else
rst.Close
rst.Open "Select * From oblog_skinclass Where classid=" & classid ,conn,1,3
End If
rst("classname")=classname
If classid="" Then
rst("icount")=0
rst("itype")=0
End If
rst.update
rst.Close
Set rst=Nothing
oblog.showok "分类操作成功",""
End If
End Sub
%>
<%
Sub DelClass()
Dim classid,rst
classid=request("classid")
If classid="" Then Exit Sub
If classid<>"" Then classid=Int(classid)
Set rst=Server.CreateObject("ADODB.Recordset")
rst.Open "Select * From oblog_skinclass Where classid=" & classid,conn,1,3
If rst.Eof Then
rst.Close
Set rst=Nothing
Response.Write "admin_userskin.asp?action=skinclass"
End If
If rst("icount")>0 Then
rst.Close
Set rst=Nothing
oblog.showok "目标分类中有模板数据,请将该分类中的模板转移到其他分类然后再删除","admin_userskin.asp?action=skinclass"
Else
rst.Delete
Set rst=Nothing
oblog.showok "分类操删除成功","admin_userskin.asp?action=skinclass"
End If
End Sub
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?