admin_userskin.asp

电子备课系统

	rs("userskinname")=Trim(Request("userskinname"))
	rs("skinauthor")=Trim(Request("skinauthor"))
	rs("skinmain")=Request("skinmain")
	rs("skinshowlog")=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
	EventLog "进行了修改用户模板操作（文本方式），目标模板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
	EventLog "进行了删除用户模板操作，目标模板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("classid")=Trim(Request("classid"))
	rs("skinauthorurl")=Trim(Request("skinauthorurl"))
	rs.update
	rs.close
	set rs=nothing
	ReCountSkins
	EventLog "进行了添加用户模板操作",oblog.NowUrl&"?"&Request.QueryString
	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>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
	</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.ShowMsg "模板转移成功",""
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 WHERE itype = 0",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 itype = 0 AND classid=" & rst(0)
		Else
			oblog.Execute "Update oblog_skinclass Set icount=0 WHERE itype = 0 AND classid=" & rst(0)
		End If
		rst.MoveNext
	Loop
	oblog.execute "Update oblog_userskin Set classid=0 Where classid Not In (select classid from oblog_skinclass WHERE itype = 0 )"
	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>
  <%If Not rstClass.Eof Then%>
    <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>&nbsp;&nbsp;|&nbsp;&nbsp;
      	<%
      	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
%>
<%End if%>
 </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 itype=0 AND classname='" & classname & "'",conn,1,3
		'是否重名
		If Not rst.Eof Then
			rst.Close
			Set rst=Nothing
			'oblog.ShowMsg "目标名称与现有分类名称重复","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 itype=0 AND 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.ShowMsg "分类操作成功",""
	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 itype=0 AND 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.ShowMsg "目标分类中有模板数据,请将该分类中的模板转移到其他分类然后再删除","admin_userskin.asp?action=skinclass"
	Else
		rst.Delete
		Set rst=Nothing
		oblog.execute("update oblog_userskin Set classid=0 where classid=" & classid)
		oblog.ShowMsg "分类操删除成功","admin_userskin.asp?action=skinclass"
	End If
End Sub
Set oblog = Nothing
%>