📄 admin_skin_load.asp
字号:
<!-- #include file="Conn.asp" -->
<script language="JavaScript">
<!--
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>
<%
On Error Resume Next
admintop()
Dim admin_flag
admin_flag=",47," '修改
if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
adminflag()
Else
%>
<table border="0" cellspacing="1" cellpadding="0" height="0" align=center width="98%" bgcolor="#183789">
<tr>
<td>
<table border="0" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" align="center" width="100%">
<%
Dim Temp,sname,act,mdbname,sql
dim action,StyleConn,Rs,ID
Select Case Request("Action")
Case "load"
Load()
Case "EditName"
EditName()
Case "SaveEditName"
SaveEditName()
Case "DataPost"
DataPost()
Case "yasuo"
yasuo()
Case Else
Main
End Select
Sub DataPost
Dim Msg
ID=Request("ID")
mdbname=request("skinmdb")
If Request("To")="InputSkin" Then
SkinConnection(mdbname)
If Request("submit")="删除" Then
StyleConn.Execute("Delete From [56770_skins] Where s_id in ("&ID&")")
response.write"<tr><td colspan=10 class=classtop height=27>模版成功删除！</td></tr>"
response.write"<tr><td colspan=10 class=classtd><li><a href=admin_skin_load.asp?action=LoadThis><<返回</a></td></tr>"
Else
Set Rs=StyleConn.Execute(" select * from [56770_skins] where s_id in ("&id&") order by s_id ")
While Not Rs.Eof
Conn.Execute("Insert Into [56770_skins](s_name,s_width,s_check,s_ml,s_56770_1,s_56770_2,s_56770_3,s_56770_4,s_56770_5,s_56770_6,s_56770_7,s_56770_8,s_56770_9,s_56770_10,s_56770_11,s_56770_12,s_56770_13,s_56770_14,s_56770_15,s_56770_16,s_56770_17,s_56770_18,s_56770_19,s_56770_20,s_56770_21,s_56770_22,s_56770_23,s_56770_24,s_56770_25,s_picsize,s_topnum) values('"&rs("s_name")&"','"&rs("s_width")&"',0,'"&rs("s_ml")&"','"&rs("s_56770_1")&"','"&rs("s_56770_2")&"','"&rs("s_56770_3")&"','"&rs("s_56770_4")&"','"&rs("s_56770_5")&"','"&rs("s_56770_6")&"','"&rs("s_56770_7")&"','"&rs("s_56770_8")&"','"&rs("s_56770_9")&"','"&rs("s_56770_10")&"','"&rs("s_56770_11")&"','"&rs("s_56770_12")&"','"&rs("s_56770_13")&"','"&rs("s_56770_14")&"','"&rs("s_56770_15")&"','"&rs("s_56770_16")&"','"&rs("s_56770_17")&"','"&rs("s_56770_18")&"','"&rs("s_56770_19")&"','"&rs("s_56770_20")&"','"&rs("s_56770_21")&"','"&rs("s_56770_22")&"','"&rs("s_56770_23")&"','"&rs("s_56770_24")&"','"&rs("s_56770_25")&"','"&rs("s_picsize")&"','"&rs("s_topnum")&"')")
Rs.Movenext
Wend
response.write"<tr><td colspan=10 class=classtop height=27>模版导入成功！</td></tr>"
response.write"<tr><td colspan=10 class=classtd><li><a href=admin_skin.asp><<返回模板首页</a></td></tr>"
End If
Else
SkinConnection(mdbname)
Set Rs=Conn.Execute(" select * from [56770_skins] where s_id in ("&id&") order by s_id ")
While Not Rs.Eof
StyleConn.Execute("Insert Into [56770_skins](s_name,s_width,s_check,s_ml,s_56770_1,s_56770_2,s_56770_3,s_56770_4,s_56770_5,s_56770_6,s_56770_7,s_56770_8,s_56770_9,s_56770_10,s_56770_11,s_56770_12,s_56770_13,s_56770_14,s_56770_15,s_56770_16,s_56770_17,s_56770_18,s_56770_19,s_56770_20,s_56770_21,s_56770_22,s_56770_23,s_56770_24,s_56770_25,s_picsize,s_topnum) values('"&rs("s_name")&"','"&rs("s_width")&"',0,'"&rs("s_ml")&"','"&rs("s_56770_1")&"','"&rs("s_56770_2")&"','"&rs("s_56770_3")&"','"&rs("s_56770_4")&"','"&rs("s_56770_5")&"','"&rs("s_56770_6")&"','"&rs("s_56770_7")&"','"&rs("s_56770_8")&"','"&rs("s_56770_9")&"','"&rs("s_56770_10")&"','"&rs("s_56770_11")&"','"&rs("s_56770_12")&"','"&rs("s_56770_13")&"','"&rs("s_56770_14")&"','"&rs("s_56770_15")&"','"&rs("s_56770_16")&"','"&rs("s_56770_17")&"','"&rs("s_56770_18")&"','"&rs("s_56770_19")&"','"&rs("s_56770_20")&"','"&rs("s_56770_21")&"','"&rs("s_56770_22")&"','"&rs("s_56770_23")&"','"&rs("s_56770_24")&"','"&rs("s_56770_25")&"','"&rs("s_picsize")&"','"&rs("s_topnum")&"')")
Rs.Movenext
Wend
response.write"<tr><td colspan=10 class=classtop height=27>模版导出成功！</td></tr>"
response.write"<tr><td colspan=10 class=classtd><li><a href=admin_skin.asp><<返回模板首页</a></td></tr>"
End If
Set Rs=Nothing
End Sub
Sub SaveEditName
TName=Trim(Request("TNAME"))
mdbname=request("skinmdb")
ID=Request("ID")
If TName="" Then
response.write "<tr><td colspan=10 class=classtop height=27>出错了</td></tr>"
response.write"<tr><td colspan=10 class=classfooter height='27'><li>请输入模版名称!</td></tr>"
response.write"<tr><td colspan=10 class=classfooter height='27'><li><a href=javascript:history.back()><<返回上一页</a></td></tr>"
Exit Sub
End If
Sql="Update [56770_skins] Set s_name='"&Replace(TName,"'","''")&"' where s_id="&ID
If Request("To")="InputSkin" Then
SkinConnection(mdbname)
StyleConn.Execute(Sql)
Else
Conn.Execute(SQL)
End If
response.write"<tr><td colspan=10 class=classtop height=27>模版名更新成功！</td></tr>"
response.write"<tr><td colspan=10 class=classtd><li><a href=admin_skin.asp><<返回模板首页</a></td></tr>"
End Sub
Sub EditName
mdbname=request("skinmdb")
ID=Request("ID")
If Request("To")="InputSkin" Then
SkinConnection(mdbname)
set Rs=StyleConn.Execute("select s_id,s_name from [56770_skins] Where s_id="&ID)
Else
set Rs=Conn.Execute("select s_id,s_name from [56770_skins] where s_id="&ID)
mdbname="../Skins/56770_skins.asa"
End If
%>
<tr>
<td height="27" class="classtop" colspan="42">更改模版名</td>
</tr>
<form action="?action=SaveEditName" method=post>
<tr class="classtd">
<td width=40% height="25">模版原名：</td>
<td width=60%><%=Rs(1)%></td>
</tr>
<tr class="classtd">
<td width=40% height="25">模版新名：</b></td>
<td width=60%><input type="text" name="TNAME" size="30" value="" class="form"></td>
</tr>
<td class="classfooter" height="27" valign=middle colspan=2 align=center>
<input type="submit" value="更新" name="B1" class="button">
<input TYPE="hidden" NAME="skinmdb" VALUE="<%=mdbname%>">
<input TYPE="hidden" NAME="id" VALUE="<% =Rs(0) %>">
<input TYPE="hidden" NAME="To" VALUE="<% =Request("To")%>">
</td></tr>
</form>
<%End Sub
Sub Main
If Request("action")="LoadThis" Then
sname="导入"
act="InputSkin"
mdbname=trim(Request.form("skinmdb"))
If mdbname="" Then
response.write "<tr><td colspan=10 class=classtop height=27>出错了</td></tr>"
response.write"<tr><td colspan=10 class=classtd height='27'><li>没有找到要导入的模板!</td></tr>"
response.write"<tr><td colspan=10 class=classfooter height='27'><li><a href=admin_skin_load.asp><<返回</a></td></tr>"
Exit Sub
End If
Else
sname="导出"
act="OutSkin"
End If
%>
<tr>
<td height="27" class="classtop" colspan="4"><%=sname%> 模版列表</td>
</tr>
<tr class="classtop">
<td width="10%" align="center" height="25"><font color="#000077"><b>序号</b></font></td>
<td width="*" align="center"><font color="#000077"><b>模版名称</b></font></td>
<td width="20%" align="center"><font color="#000077"><b>操作</b></font></td>
<td align="center" width="15%"><font color="#000077"><b>选择</b></font></td>
</tr>
<form action="?action=DataPost&To=<%=Act%>" method=post name=even>
<%
If act="InputSkin" Then
SkinConnection(mdbname)
set Rs=StyleConn.Execute("select s_id,s_name from [56770_skins] order by s_id Asc")
Else
set Rs=Conn.Execute("select s_id,s_name from [56770_skins] order by s_id Asc")
mdbname="../Skins/56770_skins.asa"
End If
Dim Temp,i
Temp=Rs.GetRows()
For i=0 To Ubound(Temp,2)
%>
<tr class="classtd">
<td align="center" height="25"><%=Temp(0,i)%></td>
<td align="center"><%=Temp(1,i)%></td>
<td align="center"><A HREF="?Action=EditName&ID=<%=Temp(0,i)%>&skinmdb=<%=mdbname%>&To=<%=Act%>">改名</A> <%If act="InputSkin" Then%>| <A HREF="?Action=DataPost&To=<%=Act%>&ID=<%=Temp(0,i)%>&submit=删除&skinmdb=<%=mdbname%>">删除</a><%End If%></td>
<td align="center"><INPUT TYPE="checkbox" NAME="ID" value="<%=Temp(0,i)%>"></td>
</tr>
<%
Next
%>
<tr>
<td colspan="4" align=center class="classfooter" height="27">
<%=sname%>的数据库：<input type="text" name="skinmdb" size="30" value="<%=mdbname%>">
<input type="submit" name="submit" value="<%=sname%>">
<%If act="InputSkin" Then%><input type=submit name=Submit value=删除 onclick="{if(confirm('注意：所删除的模版将不能恢复！')){this.document.even.submit();return true;}return false;}" class="button"><%End If%> <input type=checkbox name=chkall value=on onclick="CheckAll(this.form)">全选</td>
</tr>
<%
End Sub
Sub Load()
%>
<tr>
<td height="27" class="classtop" colspan="2">导入 模版数据</td>
</tr>
<form action="?action=LoadThis" method=post>
<tr class=classtd>
<td width="40%" height="25">导入模版数据库名：</td>
<td width="60%">
<input name="skinmdb" size="30" value="../Skins/56770_skins.asa"> </td>
</tr>
<tr>
<td class=classtd valign=middle colspan=2 align=center height="27">
<input type="submit" value="下一步" name="B1" class="button"></td></tr>
</form>
<%End Sub%>
<%Sub yasuo%>
<form action="?action=yasuo" method=post>
<tr>
<td class="classtop" height="27" colspan="2">
<div align="center"><strong>压缩数据库</strong>[需要FSO权限]</div></td>
</tr>
<tr class="classtf">
<td height="25" colspan="2">
<font color="RED">注意：此功能需要服务器给予FSO权限支持，否则不能使用！
</font></td>
</tr>
<tr>
<td height="25" width="15%" class="classtd" align="right">数据库名称：</td>
<td height="25" class="classtd" align="left"> <input type="text" name="dbpath" value="../Skins/56770_skins.asa" size="30" class="form">
<%
dim dbpath,boolIs97
dbpath = request("dbpath")
boolIs97 = request("boolIs97")
If dbpath <> "" Then
dbpath = server.mappath(dbpath)
response.write(CompactDB(dbpath,boolIs97))
End If
%>
</td>
</tr>
<tr>
<td height="30" colspan="2" class="classfooter" align="center">
<input type="submit" name="submit" value="压缩数据库" class="button">
</td>
</tr>
</form>
<%End Sub
'=====================压缩参数=========================
Function CompactDB(dbPath, boolIs97)
Dim fso, Engine, strDBPath,JET_3X
strDBPath = left(dbPath,instrrev(DBPath,"\"))
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(dbPath) Then
fso.CopyFile dbpath,strDBPath & "temp.mdb"
Set Engine = CreateObject("JRO.JetEngine")
If boolIs97 = "True" Then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb"
End If
fso.CopyFile strDBPath & "temp1.mdb",dbpath
fso.DeleteFile(strDBPath & "temp.mdb")
fso.DeleteFile(strDBPath & "temp1.mdb")
Set fso = nothing
Set Engine = nothing
CompactDB = "数据库压缩成功!" & vbCrLf
Else
CompactDB = "数据库名称或路径不正确. 请重试!" & vbCrLf
End If
End Function
%>
</table>
</td>
</tr>
</table>
<%
end if
Sub SkinConnection(mdbname)
On Error Resume Next
Set StyleConn = Server.CreateObject("ADODB.Connection")
StyleConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdbname)
If Err Then
response.write "<tr><td colspan=10 class=classtop height=27>出错了</td></tr>"
response.write"<tr><td colspan=10 class=classtd height='27'><li>"&mdbname&"数据库不存在!</td></tr>"
response.write"<tr><td colspan=10 class=classtd height='27'><li><a href=javascript:history.back()><<返回上一页</a></td></tr>"
End If
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -