📄 m_userskin.asp

📁 电子备课系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
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 savedefault()
	If Request.QueryString <>"" Then Exit Sub
	dim isdefaultID
	isdefaultID=Trim(Request("checkbox"))
	if instr(isdefaultID,",")>0 then
		oblog.showMsg "用户默认模板只可以选择一个！",""
	elseif isdefaultID="" then
		oblog.showMsg "请指定要设定为默认的模板！",""
	end if
	oblog.execute("update oblog_userskin set isdefault=0")
	oblog.execute("update oblog_userskin set isdefault=1 where id="&isdefaultID)
	WriteSysLog "进行了设定默认用户模板操作，目标模板ID："&isdefaultID&"",""
	Response.Write"<script language=JavaScript>"
	Response.Write"alert(""修改成功！"");"
	Response.Write"window.history.go(-1);"
	Response.Write"</script>"
end sub

sub passskin()
	dim id
	id=Trim(Request("checkbox"))
	if instr(id,",")>0 then
	id=Replace(id," ","")
	oblog.execute("update oblog_userskin set ispass=1 where id in ("&id&")")
	elseif id="" then
	id=CLng(Request("id"))
		oblog.execute("update oblog_userskin set ispass=1 where id="&id)
	else
    	oblog.execute("update oblog_userskin set ispass=1 where id="&id)
	end if
	ReCountSkins
	WriteSysLog "进行了通过审核用户模板操作，目标模板ID："&id&"",oblog.NowUrl&"?"&Request.QueryString
	oblog.ShowMsg "通过审核成功",""
end sub

sub unpassskin()
	dim id
	id=Trim(Request("checkbox"))
	if instr(id,",")>0 then
	id=Replace(id," ","")
	oblog.execute("update oblog_userskin set ispass=0 where id in ("&id&")")
	elseif id="" then
		id=CLng(Request("id"))
		oblog.execute("update oblog_userskin set ispass=0 where id="&id)
	else
		oblog.execute("update oblog_userskin set ispass=0 where id="&id)
	end if
	ReCountSkins
	WriteSysLog "进行了取消审核用户模板操作，目标模板ID："&id&"",oblog.NowUrl&"?"&Request.QueryString
	oblog.ShowMsg "取消审核成功",""
end sub


sub saveconfig()
	dim rs,sql
	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()
	set rs=Server.CreateObject("adodb.recordset")
	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("userskinname")=Trim(Request("userskinname"))
	rs("skinauthor")=Trim(Request("skinauthor"))
	rs("skinmain")=Request("skinmain")
	rs("skinshowlog")=Request("skinshowlog")
	rs("skinpic")=Trim(Request("skinpic"))
	rs("skinauthorurl")=Trim(Request("skinauthorurl"))
	rs.update
	rs.close
	set rs=nothing
	ReCountSkins
	WriteSysLog "进行了修改用户模板操作（文本方式），目标模板ID："&Request.QueryString("id")&"",oblog.NowUrl&"?"&Request.QueryString
	oblog.ShowMsg "保存成功",""
end sub

sub delconfig()
    dim id
	id=Trim(Request("checkbox"))
	if instr(id,",")>0 then
	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
	WriteSysLog "进行了删除用户模板操作，目标模板ID："&id&"",oblog.NowUrl&"?"&Request.QueryString
	oblog.ShowMsg "删除成功",""
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("skinauthorurl")=Trim(Request("skinauthorurl"))
	rs.update
	rs.close
	set rs=nothing
	ReCountSkins
	WriteSysLog "进行了添加用户模板操作",oblog.NowUrl&"?"&Request.QueryString
	Response.Redirect "m_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="m_userskin.asp?action=modiskin&id=<%=rs("id")%>">修改模板</a>　　<a href="m_userskin.asp?action=showskin&ispass=1">返回管理菜单</a>
      <a href="m_skin_help.asp" target="_blank"><strong>模板标记帮助</strong></a></td>
    </tr>
</table>

<form method="POST" action="m_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 width="769" height="22" class="topbg"><strong>修改模板</strong></td>
    </tr>
    <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")%>>
        <br>
        作者连接：
        <input name="skinauthorurl" type="text" id="skinauthorurl" size="50" value="<%=rs("skinauthorurl")%>">
         <br>
        预览图片<strong>：
        <input name="skinpic" type="text" id="skinpic" size="50" 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="m_userskin.asp?action=showskin"><strong>返回管理菜单</strong></a>　　 <a href="m_skin_help.asp" target="_blank"><strong>模板标记帮助</strong></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
	</div></td>
  </tr>
</table>

<form method="POST" action="m_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">
        <br>
        作者连接<strong>：
        <input name="skinauthorurl" type="text" id="skinauthorurl" size="50" value="">
        </strong> <br>
        预览图片<strong>：
        <input name="skinpic" type="text" id="skinpic" size="50">
        </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
Function sClasses()
Dim rstClass
Set rstClass=Server.CreateObject("Adodb.RecordSet")
rstClass.Open "select * From oblog_skinclass Where iType=0",conn,1,3
If Not rstClass.Eof Then
	Do While Not rstClass.Eof
		sClasses= sClasses & "<option value=" & rstClass("classid") & " >" & rstClass("classname") & "(" & rstClass("icount") & ")</option>" & vbcrlf
		rstClass.MoveNext
	Loop
	rstClass.MoveFirst
End if
End Function 
Set oblog = Nothing
%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -