admin_skin.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 449 行 · 第 1/2 页
ASP
449 行
		<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=inuser2">
  <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("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 rs=connskin.execute("select * from skin where type='user'")
%>
<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=inuserok">
  <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("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") %>&nbsp;</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("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 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") %>&nbsp;</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%>
</body>
</html>
admin_skin.asp - 源码说明

本页面展示了「是个不错的文件代码,希望大家好好用,」中的 admin_skin.asp 源码文件，采用 ASP 编程语言编写，共 449 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与代码相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

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