admin_userskin.asp

本息统基于中国网站技术人员最熟悉WindowsNT环境和Asp语言

	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
	oblog.showok "通过审核成功",""
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
	oblog.showok "取消审核成功",""
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
	oblog.showok "保存成功",""
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
	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("skinauthorurl")=trim(request("skinauthorurl"))
	rs.update
	rs.close
	set rs=nothing
	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")))
%>
  <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border" >
    <tr class="topbg"> 
      
    <td height="22" colspan=2 align=center><strong>修改用户模版</strong></td>
    </tr>
    <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>

<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 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>

<%
set rs=nothing
end sub

sub addskin()
%>
  
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border" >
  <tr class="topbg"> 
    <td height="22" align=center><strong>添加用户模版</strong></td>
  </tr>
  <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;
	 <a href="admin_adduserskin.asp?add=first"><strong>2.52模式</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 width="769" 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>

<%
end sub
%>