admin_htmldel.asp
来自「本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置」· ASP 代码 · 共 261 行
ASP
261 行
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<script language="javaScript" src="../js/js.js"></script>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<tr>
<td height="34" align="center" valign="middle" bgcolor="#1C3566"><b>
<a href="admin_HTMLdel.asp?info=webindex" target="right">
<font color="#FFFFFF">首页删除</font></a><font color="#FFFFFF">
| </font> <a href="admin_HTMLdel.asp?info=booklist" target="right">
<font color="#FFFFFF">列表页删除</font></a><font color="#FFFFFF">
| </font> <a href="admin_HTMLdel.asp?info=booklook" target="right">
<font color="#FFFFFF">资料页删除</font></a><font color="#FFFFFF">
| </font> <a href="admin_HTMLdel.asp?info=bookindex" target="right">
<font color="#FFFFFF">目录页删除</font></a><font color="#FFFFFF">
| </font> <a href="admin_HTMLdel.asp?info=bookall" target="right">
<font color="#FFFFFF">全文页删除</font></a><font color="#FFFFFF">
| </font> <a href="admin_HTMLdel.asp?info=bookzhang" target="right">
<font color="#FFFFFF">分卷页删除</font></a><font color="#FFFFFF">
| </font> <a href="admin_HTMLdel.asp?info=bookpage" target="right">
<font color="#FFFFFF">章节页删除</font></a><font color="#FFFFFF"> </font>
</b>
</td>
</tr>
</table>
<br>
<%
Select Case request.querystring("info")
Case "webindex"
Call webindex()
Case "booklist"
Call booklist()
Case "booklook"
Call booklook()
Case "bookindex"
Call bookindex()
Case "bookall"
Call bookall()
Case "bookzhang"
Call bookzhang()
Case "bookpage"
Call bookpage()
end select
Sub webindex()%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#555555" height="100%">
<form method="post" action="admin_HTMLdeldo.asp?info=webindex">
<tr>
<td width="100%" bgcolor="#1C3566"height="30">
<p align="center"><b><font color="#FFFFFF">删除网站首页HTML</font></b></td>
</tr>
<tr>
<td width="100%" bgcolor="#DFDFDF"><input type="hidden" name="info" value="webindex">
<p align="center"><input name="change" class="button" value="删除网站首页" type="submit"></p>
</td>
</tr>
</form>
</table>
<%end sub
Sub booklist()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<tr>
<td height="34" align="center" valign="middle" bgcolor="#1C3566"><b><font color="#FFFFFF">作品列表页HTML删除</font></b></td>
</tr>
</table>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<form method="get" action="admin_HTMLdeldo.asp?info=booklist">
<tr height="26">
<td width="50%">
<p align="right">作品列表页面：</td>
<td width="50%"> <select name="classid" class="form" size="1">
<option value="0">作品总列表</option>
<option value="to">作品排行榜</option>
<%set rs=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
sql="select typeid,list_tpye from list_type"
else
sql="select typeid,list_tpye from [list_type]"
end if
rs.open sql,conn,1,1
Do while not rs.eof
%>
<option value="<%=Cstr(rs("typeid"))%>">
<%=rs("list_tpye")%></option> <%
rs.MoveNext
Loop
rs.close
Set Rs=Nothing%>
<option value="ov">完成作品列表</option>
</select></td>
</tr>
<tr>
<td height="30" align="center" colspan="2"><input type="hidden" name="info" value="booklist">
<input class="button" type="submit" value="开始删除" name="B1">
</td>
</tr>
</form>
</table>
<%end sub
Sub booklook()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<tr>
<td height="34" align="center" valign="middle" bgcolor="#1C3566"><b><font color="#FFFFFF">作品资料页HTML删除</font></b></td>
</tr>
</table>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<form method="get" action="admin_HTMLdeldo.asp?info=booklook">
<tr height="26">
<td width="50%">
<p align="right">本地作品起始ID：</td>
<td width="50%"> <input class='form' type="Number" name="start" id="start" size="20"></td>
</tr>
<tr height="26">
<td width="50%">
<p align="right">本地作品结束ID：</td>
<td width="50%"> <input class='form' type="text" name="end" Id="end" size="20"></td>
</tr>
<tr>
<td height="30" align="center" colspan="2"><input type="hidden" name="info" value="booklook">
<input class="button" type="submit" value="开始删除" name="B1"> <input class="button" type="reset" value="重置设定" name="B2">
</td>
</tr>
</form>
</table>
<%end sub
Sub bookindex()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<tr>
<td height="34" align="center" valign="middle" bgcolor="#1C3566"><b><font color="#FFFFFF">作品目录页HTML删除</font></b></td>
</tr>
</table>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<form method="get" action="admin_HTMLdeldo.asp?info=bookindex">
<tr height="26">
<td width="50%">
<p align="right">本地作品起始ID：</td>
<td width="50%"> <input class='form' type="Number" name="start" id="start" size="20"></td>
</tr>
<tr height="26">
<td width="50%">
<p align="right">本地作品结束ID：</td>
<td width="50%"> <input class='form' type="text" name="end" Id="end" size="20"></td>
</tr>
<tr>
<td height="30" align="center" colspan="2"><input type="hidden" name="info" value="bookindex">
<input class="button" type="submit" value="开始删除" name="B1"> <input class="button" type="reset" value="重置设定" name="B2">
</td>
</tr>
</form>
</table>
<%end sub
Sub bookall()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<tr>
<td height="34" align="center" valign="middle" bgcolor="#1C3566"><b><font color="#FFFFFF">作品全文阅读页HTML删除</font></b></td>
</tr>
</table>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<form method="get" action="admin_HTMLdeldo.asp?info=bookall">
<tr height="26">
<td width="50%">
<p align="right">本地作品起始ID：</td>
<td width="50%"> <input class='form' type="Number" name="start" id="start" size="20"></td>
</tr>
<tr height="26">
<td width="50%">
<p align="right">本地作品结束ID：</td>
<td width="50%"> <input class='form' type="text" name="end" Id="end" size="20"></td>
</tr>
<tr>
<td height="30" align="center" colspan="2"><input type="hidden" name="info" value="bookall">
<input class="button" type="submit" value="开始删除" name="B1"> <input class="button" type="reset" value="重置设定" name="B2">
</td>
</tr>
</form>
</table>
<%end sub
Sub bookzhang()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<tr>
<td height="34" align="center" valign="middle" bgcolor="#1C3566"><b><font color="#FFFFFF">作品分卷阅读页HTML删除</font></b></td>
</tr>
</table>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<form method="get" action="admin_HTMLdeldo.asp?info=bookzhang">
<tr height="26">
<td width="50%">
<p align="right">本地作品起始ID：</td>
<td width="50%"> <input class='form' type="Number" name="start" id="start" size="20"></td>
</tr>
<tr height="26">
<td width="50%">
<p align="right">本地作品结束ID：</td>
<td width="50%"> <input class='form' type="text" name="end" Id="end" size="20"></td>
</tr>
<tr>
<td height="30" align="center" colspan="2"><input type="hidden" name="info" value="bookzhang">
<input class="button" type="submit" value="开始删除" name="B1"> <input class="button" type="reset" value="重置设定" name="B2">
</td>
</tr>
</form>
</table>
<%end sub
Sub bookpage()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<tr>
<td height="34" align="center" valign="middle" bgcolor="#1C3566"><b><font color="#FFFFFF">作品章节阅读页HTML删除</font></b></td>
</tr>
</table>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1f3566" bordercolordark="#FFFFFF">
<form method="get" action="admin_HTMLdeldo.asp?info=bookpage">
<tr height="26">
<td width="50%">
<p align="right">本地作品起始ID：</td>
<td width="50%"> <input class='form' type="Number" name="start" id="start" size="20"></td>
</tr>
<tr height="26">
<td width="50%">
<p align="right">本地作品结束ID：</td>
<td width="50%"> <input class='form' type="text" name="end" Id="end" size="20"></td>
</tr>
<tr>
<td height="30" align="center" colspan="2"><input type="hidden" name="info" value="bookpage">
<input class="button" type="submit" value="开始删除" name="B1"> <input class="button" type="reset" value="重置设定" name="B2">
</td>
</tr>
</form>
</table>
<%end sub%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?