📄 admin_skin.asp
字号:
</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">
<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">
<%If Action ="inuser1" Then %>
<form name="form" method="post" action="admin_skin.asp?action=inuser2">
<%Else%>
<form name="form" method="post" action="admin_skin.asp?action=inteam2">
<%End if%>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" Class="border">
<tr>
<td width="763" height="40" align="center" class="tdbg"> <div align="left">
导入数据库名：
<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 inuser2()
dim connskin,rs,mdbname,fso
mdbname=Trim(Request("mdbname"))
set fso=Server.CreateObject(oblog.CacheCompont(1))
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 rs=connskin.execute("select * from skin where type='"&stype&"'")
%>
<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">
<% If stype = "user" Then %>
<form name="form" method="post" action="admin_skin.asp?action=inuserok">
<%Else%>
<form name="form" method="post" action="admin_skin.asp?action=inteamok">
<%End if%>
<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") %> </div></td>
<td width="288" > <div align="center"><%= rs("skinname") %></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 type="submit" name="Submit" value=" 导入模板 ">
<input type="hidden" name="mdbname" value="<%=mdbname%>">
</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 outsys()
dim rs
set rs=oblog.execute("select * from oblog_sysskin ")
%>
<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=outsysok">
<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") %> </div></td>
<td width="288" > <div align="center"><%= rs("sysskinname") %></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 insys1()
%>
<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=insys2">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" Class="border">
<tr>
<td width="763" height="40" align="center" class="tdbg"> <div align="left">
导入数据库名：
<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 insys2()
dim connskin,rs,mdbname,fso
mdbname=Trim(Request("mdbname"))
set fso=Server.CreateObject(oblog.CacheCompont(1))
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 rs=connskin.execute("select * from skin where type='sys'")
%>
<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=insysok">
<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") %> </div></td>
<td width="288" > <div align="center"><%= rs("skinname") %></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 type="submit" name="Submit" value=" 导入模板 ">
<input type="hidden" name="mdbname" value="<%=mdbname%>">
</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
Set oblog = Nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -