📄 admin_style_inout.asp
字号:
<%
'==================================
'=文 件 名：admin_style_inout.asp
'=适用版本：游戏天府WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.gotf.cn
'=文件功能：模板导出与导入管理
'=文件作者：游戏天府
'=发行时间：2007-02-01
'==================================
%>
<!--#include file="wapls_admin_conn.asp"-->
<!--#include file="wapls_admin_top.asp"-->
<%
if session("wapls_adminlogin")<>wapls_sessionvar then
errmsg="您没有登陆或不是管理员。请登陆。"
response.write "<script>window.alert('"&errmsg&"');window.location='admin_login.asp';</script>"
response.End
elseif cur_adminsuper<>1 then
errmsg=""&cur_adminname&"，您不是超级管理员，没有权限进行此操作！"
response.write "<script>window.alert('"&errmsg&"');window.location='javascript:history.go(-1);';</script>"
response.End
end if
%>
<%
'==================================
'=功 能：主调代码，相应功能皆有说明
'==================================
Select case request.QueryString("action")
case "skinout" '导出风格
call skinout()
case "skinin" '导入风格
call skinin()
case else
call skinin()
End Select
'==================================
'=过 程 名：skinout
'=功 能：导出风格
'==================================
sub skinout()
if request.form("skinout")="true" then
dim mb_id
if request.form("mb_id")<>"" then
mb_id=checksql("风格ID",request.form("mb_id"),0,8)
else
response.write"<script>alert('请选择风格。');location.href='javascript:history.go(-1);';</script>"
response.end
end if
sql="select * from wapls_mb where mb_id="&mb_id
set rs=Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
mb_name=rs("mb_name")
mb_err=rs("mb_err")
mb_column=rs("mb_column")
mb_user=rs("mb_user")
mb_diary=rs("mb_diary")
mb_link=rs("mb_link")
mb_gb=rs("mb_gb")
mb_search=rs("mb_search")
mb_other=rs("mb_other")
mb_logo=rs("mb_logo")
else
response.write"<script>alert('没有此风格或此风格已删除。');location.href='javascript:history.go(-1);';</script>"
response.end
end if
rs.close
set rs=nothing
database=checksql("导出风格数据库",request.Form("database"),1,50)
database="..\Skins\"&database
Driver="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database)
On Error Resume Next
set skinconn = server.CreateObject("ADODB.Connection")
skinconn.open Driver
sql="select * from wapls_mb"
set rs=Server.CreateObject("adodb.recordset")
rs.open sql,skinconn,1,3
rs.addnew
rs("mb_name")=mb_name
rs("mb_err")=mb_err
rs("mb_column")=mb_column
rs("mb_user")=mb_user
rs("mb_diary")=mb_diary
rs("mb_link")=mb_link
rs("mb_gb")=mb_gb
rs("mb_search")=mb_search
rs("mb_other")=mb_other
rs("mb_logo")=mb_logo
rs.update
rs.close
set rs=nothing
skinconn.close
set skinconn=nothing
response.write"<script>alert('【"&mb_name&"】风格导出成功！');location.href='?action=skinout';</script>"
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form action="" name="form1" method="post">
<tr class="tablebody">
<td class="td_title" colspan="3">网站风格管理 [<a href="?action=addstyle"><font color="#ffff00">导入新风格</font></a>]</td>
</tr>
<tr class="tablebody">
<td colspan="3" style="color:#0000ff">注意：<br>
1、导出数据库必须存在且路径必须正确；<br>
2、一次只能对一个风格进行导出操作；<br>
3、导出的数据库必须在网站Skins目录下，且不必写出Skins目录。</td>
</tr>
<tr align="center" class="tablebody">
<td width="13%" >编号</td>
<td width="70%" >界面风格名称</td>
<td width="20%" >操作</td>
</tr>
<%
dim n
sql="select * from wapls_mb"
set rs=Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
n=1
do while not rs.eof
dim all_m_name
all_m_name=rs("mb_name")
%>
<tr class="tablebody">
<td align="center"><%=n%></td>
<td> <%=all_m_name%></td>
<td align="center"><input type="radio" name="mb_id" value="<%=rs("mb_id")%>"></td>
<%
n=n+1
rs.movenext
loop
if rs.eof and rs.bof then
response.write"<option>暂时没有风格</option>"
end if
rs.close
set rs=nothing
%>
</td>
</tr>
<tr class="tablebody">
<td colspan="3" height="70"><p align="center">导出到数据库：<input name="database" type="text" value="#Skins.mdb"><input type="submit" name="Submit" value="提交"> <input name="skinout" type="hidden" value="true"></p></td>
</tr>
</table>
<br>
<%
end sub
'==================================
'=过 程 名：skinin()
'=功 能：导入风格
'==================================
sub skinin()
if request.Form("skinin")="true" then
dim mb_id
if request.form("mb_id")<>"" then
mb_id=checksql("风格ID",request.form("mb_id"),0,8)
else
response.write"<script>alert('请选择风格。');location.href='javascript:history.go(-1);';</script>"
response.end
end if
database=checksql("导入风格数据库",request.Form("database2"),1,50)
database="..\Skins\"&database
Driver="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database)
On Error Resume Next
set skinconn = server.CreateObject("ADODB.Connection")
skinconn.open Driver
sql="select * from wapls_mb where mb_id="&mb_id
set rs=Server.CreateObject("adodb.recordset")
rs.open sql,skinconn,1,1
if not (rs.eof and rs.bof) then
mb_name=rs("mb_name")
mb_err=rs("mb_err")
mb_column=rs("mb_column")
mb_user=rs("mb_user")
mb_diary=rs("mb_diary")
mb_link=rs("mb_link")
mb_gb=rs("mb_gb")
mb_search=rs("mb_search")
mb_other=rs("mb_other")
mb_logo=rs("mb_logo")
else
response.write"<script>alert('此风格数据库为空。');location.href='javascript:history.go(-1);';</script>"
response.end
end if
rs.close
set rs=nothing
skinconn.close
set skinconn=nothing
sql="select * from wapls_mb"
set rs=Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("mb_name")=mb_name
rs("mb_err")=mb_err
rs("mb_column")=mb_column
rs("mb_user")=mb_user
rs("mb_diary")=mb_diary
rs("mb_link")=mb_link
rs("mb_gb")=mb_gb
rs("mb_search")=mb_search
rs("mb_other")=mb_other
rs("mb_logo")=mb_logo
rs.update
rs.close
set rs=nothing
response.write"<script>alert('【"&mb_name&"】 风格导入成功！');location.href='?action=skinin';</script>"
end if
if request.form("skinlist")="true" then
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form action="" name="form1" method="post">
<tr class="tablebody">
<td class="td_title" colspan="3">导入风格列表</td>
</tr>
<tr class="tablebody">
<td colspan="3" style="color:#0000ff">注意：<br>
1、导出数据库必须存在且路径必须正确；<br>
2、一次只能对一个风格进行导出操作；<br>
3、导出的数据库必须在网站Skins目录下，且不必写出Skins目录。</td>
</tr>
<tr align="center" class="tablebody">
<td width="13%" >编号</td>
<td width="70%" >界面风格名称</td>
<td width="20%" >操作</td>
</tr>
<%
database=checksql("导入风格数据库",request.Form("database"),1,50)
database="..\Skins\"&database
Driver="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database)
On Error Resume Next
set skinconn = server.CreateObject("ADODB.Connection")
skinconn.open Driver
dim n
sql="select * from wapls_mb"
set rs=Server.CreateObject("adodb.recordset")
rs.open sql,skinconn,1,1
n=1
do while not rs.eof
dim all_m_name
all_m_name=rs("mb_name")
%>
<tr class="tablebody">
<td align="center"><%=n%></td>
<td> <%=all_m_name%></td>
<td align="center"><input type="radio" name="mb_id" value="<%=rs("mb_id")%>"></td>
<%
n=n+1
rs.movenext
loop
if rs.eof and rs.bof then
response.write"<option>暂时没有风格</option>"
end if
rs.close
set rs=nothing
skinconn.close
set skinconn=nothing
%>
</td>
</tr>
</table>
<br>
<div align="center"><input type="submit" name="Submit" value="导入"><input type="hidden" name="skinin" value="true"><input name="database2" type="hidden" value="<%=request.form("database")%>" size="30"></div></form>
<%else%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form action="" name="form1" method="post">
<tr class="tablebody">
<td class="td_title" colspan="2">风格导入</td>
</tr>
<tr class="tablebody">
<td style="color:#0000ff">注意：<br>
1、导出数据库必须存在且路径必须正确；<br>
2、一次只能对一个风格进行导出操作；<br>
3、导出的数据库必须在网站Skins目录下，且不必写出Skins目录。</td>
</tr>
<tr class="tablebody">
<td colspan="2" align="center" height="70">输入要导入的源数据库地址[数据来源] <input name="database" type="text" value="#Skins.mdb" size="30" maxlength="50"></td>
</tr>
<tr class="tablebody">
<td colspan="2" align="center">
<input name="submit" type="submit" value=" 确 认 ">
<input type="hidden" name="skinlist" value="true">
</td>
</tr>
</form>
</table>
<%
end if
end sub%>
<!--#include file="wapls_admin_bottom.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -