admin_skin.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 449 行 · 第 1/2 页

ASP
449 行
字号
12
<!--#include file="inc/inc_sys.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>oBlog--系统模板管理</title>
<link rel="stylesheet" href="images/style.css" type="text/css" />
<script src="images/menu.js" type="text/javascript"></script>
</head>
<body>
<SCRIPT language=javascript>
function unselectall()
{
    if(document.form.chkAll.checked){
	document.form.chkAll.checked = document.form.chkAll.checked&0;
    } 	
}

function CheckAll(form)
{
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.Name != "chkAll")
       e.checked = form.chkAll.checked;
    }
}
</SCRIPT>
<%
dim action
Action=trim(request("Action"))

select case Action
	case "outuser"
		call outuser()
	case "outuserok"
		call outuserok()
	case "inuser1"
		call inuser1()
	case "inuser2"
		call inuser2()
	case "inuserok"
		call inuserok()
	case "outsys"
		call outsys()
	case "outsysok"
		call outsysok()
	case "insys1"
		call insys1()
	case "insys2"
		call insys2()
	case "insysok"
		call insysok()
end select

sub outuserok()
	dim mdbname,rs,connskin,fso
	dim skinid,i,rsout
	mdbname=trim(request("mdbname"))	
	set fso=Server.CreateObject("Scripting.FileSystemObject")
    if fso.FileExists(Server.MapPath(mdbname))=False then
    Response.Write("<script language=javascript>alert('“"&mdbname&"”不存在！');history.back();</script>")
    Response.End
    end if
	Set connskin = Server.CreateObject("ADODB.Connection")
	connskin.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(mdbname)
	set rsout=server.createobject("adodb.recordset")
	rsout.open "select * from skin",connskin,2,3
	skinid=split(request("id"))
	for i=0 to ubound(skinid)
		set rs=oblog.execute("select * from oblog_userskin where id="&clng(skinid(i)))
		rsout.addnew
		rsout("type")="user"
		rsout("skinname")=rs("userskinname")
		rsout("skinmain")=rs("skinmain")
		rsout("skinshowlog")=rs("skinshowlog")
		rsout("skinauthor")=rs("skinauthor")
		rsout("skinauthorurl")=rs("skinauthorurl")
		rsout("skinpic")=rs("skinpic")
		rsout.update
	next
	rsout.close
	set rsout=nothing
	set rs=nothing
	response.Write("导出成功！")
end sub

sub inuserok()
	dim mdbname,rs,connskin
	dim skinid,i,rsin
	mdbname=trim(request("mdbname"))	
	Set connskin = Server.CreateObject("ADODB.Connection")
	connskin.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(mdbname)
	set rsin=server.createobject("adodb.recordset")
	if not IsObject(conn) then link_database
	rsin.open "select top 1 * from oblog_userskin",conn,2,3
	skinid=split(request("id"))
	for i=0 to ubound(skinid)
		set rs=connskin.execute("select * from skin where type='user' and id="&clng(skinid(i)))
		rsin.addnew
		rsin("userskinname")=rs("skinname")
		rsin("skinmain")=rs("skinmain")
		rsin("skinshowlog")=rs("skinshowlog")
		rsin("skinauthor")=rs("skinauthor")
		rsin("skinauthorurl")=rs("skinauthorurl")
		rsin("skinpic")=rs("skinpic")
		rsin.update
	next
	rsin.close
	set rsin=nothing
	set rs=nothing
	response.Write("导入成功！")
end sub

sub outsysok()
	dim mdbname,rs,connskin,fso
	dim skinid,i,rsout
	mdbname=trim(request("mdbname"))
	set fso=Server.CreateObject("Scripting.FileSystemObject")
    if (fso.FileExists(Server.MapPath(mdbname))) Then
	Set connskin = Server.CreateObject("ADODB.Connection")
	connskin.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(mdbname)
	set rsout=server.createobject("adodb.recordset")
	rsout.open "select top 1 * from skin",connskin,2,3
	skinid=split(request("id"))
	for i=0 to ubound(skinid)
		set rs=oblog.execute("select * from oblog_sysskin where id="&clng(skinid(i)))
		rsout.addnew
		rsout("type")="sys"
		rsout("skinname")=rs("sysskinname")
		rsout("skinmain")=rs("skinmain")
		rsout("skinshowlog")=rs("skinshowlog")
		rsout("skinauthor")=rs("skinauthor")
		rsout.update
	next
	rsout.close
	set rsout=nothing
	set rs=nothing
	response.Write("导出成功！")
	 Else
    Response.Write("<script language=javascript>alert('“"&mdbname&"”不存在！');history.back();</script>")
    Response.End
	End if
end sub

sub insysok()
	dim mdbname,rs,connskin
	dim skinid,i,rsin
	mdbname=trim(request("mdbname"))	
	Set connskin = Server.CreateObject("ADODB.Connection")
	connskin.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(mdbname)
	set rsin=server.createobject("adodb.recordset")
	if not IsObject(conn) then link_database
	rsin.open "select * from oblog_sysskin",conn,2,3
	skinid=split(request("id"))
	for i=0 to ubound(skinid)
		set rs=connskin.execute("select * from skin where type='sys' and id="&clng(skinid(i)))
		rsin.addnew
		rsin("sysskinname")=rs("skinname")
		rsin("skinmain")=rs("skinmain")
		rsin("skinshowlog")=rs("skinshowlog")
		rsin("skinauthor")=rs("skinauthor")
		rsin.update
	next
	rsin.close
	set rsin=nothing
	set rs=nothing
	response.Write("导入成功！")
end sub
%>
<%
sub outuser()
dim rs
set rs=oblog.execute("select * from oblog_userskin ")
%>
<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 name="form" method="post" action="admin_skin.asp?action=outuserok">
  <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" Class="border">
    <tr class="topbg">
      <td width="63" align="center" >选中</td>
      <td width="120"> <div align="center">ID</div></td>
      <td width="288" > <div align="center">名称</div></td>
      <td width="292" > <div align="center">作者</div></td>
    </tr>
    <%
while not rs.eof	
%>
    <tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
      <td width="63" align="center"><input name='ID' type='checkbox' onclick="unselectall()" id="ID" value='<%=cstr(rs("id"))%>'></td>
      <td width="120"> <div align="center"><%= rs("id") %>&nbsp;</div></td>
      <td width="288" > <div align="center"><%= rs("userskinname") %></div></td>
      <td > <div align="center"><%= rs("skinauthor") %></div></td>
    </tr>
    <%
rs.movenext
wend
%>
    <tr>
      <td height="40" colspan="4" align="center" class="tdbg"> <div align="left">
          <input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
          选中所有模板　导出数据库名：
          <input name="mdbname" type="text" id="mdbname" value="../skin/skin.mdb" size="20" maxlength="50">
          <input type="submit" name="Submit" 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 inuser1()
%>
<div id="main_body">
	<ul class="main_top">
12

admin_skin.asp - 源码说明

本页面展示了「是个不错的文件代码,希望大家好好用,」中的 admin_skin.asp 源码文件，采用 ASP 编程语言编写，共 449 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与代码相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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