📄 admin_links.asp

📁 本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。本人仅提供本系统相关的一些技术问题的解释、解答。
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!-- #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">
<script language="javaScript" src="../js/js.js"></script>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>

<body>

<div id=topmomo><a href="admin_links.asp?info=add">添加链接</a> 
		| <a href="admin_links.asp?info=list&cndb=txt">
		文字链接</a> | 
		<a href="admin_links.asp?info=list&cndb=logo">LOGO链接</a> 
		| <a href="admin_links.asp?info=list&cndb=all">
		所有链接</a>
		| <a href="admin_links.asp?info=classadd">
		添加链接分类</a> |  <a href="admin_links.asp?info=classaclass">
		合并链接分类</a> |  <a href="admin_links.asp?info=classlist">
		链接分类列表</a>
</div><br>
<%

Select Case request.querystring("info")
	Case "add"
		Call add()
	Case "list"
		Call list()
	Case "edit"
		Call edit()
	Case "classadd"
		Call classadd()
	Case "classlist"
		Call classlist()
	Case "classaclass"
		Call classaclass()
end select 
Sub classadd()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td class="thead" colspan="9" height="25" align="center"><b>
		<font color="#FFFFFF">添加连接分类</font></b></td>
	</tr>
	<form action="admin_Daily.asp?info=link_class_add" method="post" name="form">
		<tr>
			<td class="alt3">
					<div  id=panx>
				<table width="98%" border="0" cellspacing="1" cellpadding="1" align="center"class="panel">
					<tr>
						<td width="40%" height="45" align="right" class="alt2">
						<b>分类名称：</b><br>
						</td>
						<td width="60%" class="alt1">
						<input name="link_class" type="text" size="20" class="form" maxlength="14"></td>
					</tr>
					<tr>
						<td width="40%" height="45" align="right" class="alt2">
						<b>分类介绍：</b><br>
						</td>
						<td width="60%" class="alt1">
						<textarea name="link_info" class="form" cols="60" rows="5"></textarea></td>
					</tr>
				</table>
				</div>
			<div style="MARGIN-TOP: 6px;MARGIN-bottom: 6px" align="center">
				<input type="submit" class="button" value="提 交"> 　 
				<input type="reset" class="button" value="重 置"></div>
			</td>
		</tr>
	</form>
</table>
<%end sub

sub classlist%>
<script language="JavaScript">
<!--
function del(sortname) {
return(confirm('CnEndWeb（终点）提醒：\n\n真的要删除 [ ' + sortname + ' ] 吗？\n\n注意，仅此一次确认！\n'));
}
//-->
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td class="thead" align="center" height="25" colspan="7"><b>查看所有连接分类</b></td>
	</tr>
	<tr height="28">
		<td width="30%" align="left" class="tcat"><font color="#FFFFFF">&nbsp;&nbsp;
		<b>分 类 名 称</b></font></td>
		<td width="20%" align="center" class="tcat"><font color="#FFFFFF"><b>修 改 
		名 称</b></font></td>
		<td width="20%" align="center" class="tcat"><font color="#FFFFFF"><b>操作</b>&nbsp;
		</font></td>
	</tr>
	<%
set rs=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,link_class,link_info from link_class"
else
	sql="select id,link_class,link_info from [link_class]"
end if
rs.open sql,conn,1,1
if not rs.eof and rs.bof then
%>
	<tr align="center">
		<td colspan="6" height="22" class="alt1"><span class="style1">还没有任何分类请添加！！</span></td>
	</tr>
	<%else
	do while not rs.eof%>
	<tr>
		<td height="22" class="alt2">&nbsp;
		<img src="images/ico.gif" width="10" height="10">&nbsp; <%=rs("link_class")%></td>
		<form action="admin_Daily.asp?info=link_class_edit&classid=<%=rs("id")%>" method="post" name="eform">
			<td class="alt1">
			<input name="link_class" type="text" size="30" class="form" value="<%=rs("link_class")%>">
			<input class="button" type="submit" value="修 改" name="Submit" style="width: 45; height: 20"><br>
			<textarea name="link_info" class="form" cols="39" rows="5"><%=rs("link_info")%></textarea></td>
		</form>
		<td align="center" class="alt2">
		<a href="admin_Daily.asp?info=link_class_del&id=<%=rs("id")%>" onclick="return(del('<%=rs("link_class")%>'))">
		删除</a></a>&nbsp;&nbsp;
		</td>
	</tr>
	<%
rs.movenext
loop
rs.close
set rs=nothing
end if%>
</table>
<%end sub

Sub classaclass()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td class="thead" align="center" height="25" colspan="9"><b>合并分类</b></td>
	</tr>
	<tr height="22" align="center">
		<td width="45%" class="tcat"><b>原 分 类</b></td>
		<td width="45%" class="tcat"><b>目标分类</b></td>
	</tr>
	<form method="POST" action="admin_Daily.asp?info=aclass" name="formaclass">
		<tr align="center" height="22">
			<td width="45%" class="alt2" valign="center"><select name="oldclass" class="form" size="6">
<%set rs=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,link_class from link_class"
else
	sql="select id,link_class from [link_class]"
end if
rs.open sql,conn,1,1
if rs.eof then
else
do while not rs.eof
response.write "<option value="&rs("id")&"> "&rs("link_class")&"</option>"
	rs.movenext
	loop
end if
rs.close
set rs=nothing
%></select>
合并到　==></td>
			<td width="45%" class="alt1"><select name="newclass" class="form" size="6">
<%set rs=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	sql="select id,link_class from link_class"
else
	sql="select id,link_class from [link_class]"
end if
rs.open sql,conn,1,1
if rs.eof then
else
do while not rs.eof
response.write "<option value="&rs("id")&"> "&rs("link_class")&"</option>"
	rs.movenext
	loop
end if
rs.close
set rs=nothing
%></select>
</td>
		</tr>
		<tr height="22">
			<td class="alt3" colspan="2" align="middle" valign="middle">
			<input class="button" type="submit" value="合 并" name="Submit"></td>
		</tr>
	</form>
</table>
<% 
set rs=nothing
set rs2=nothing
end sub

Sub list()
Const MaxPerPage=20
If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if
dim totalput
dim currentpage
dim totalpages
cndb=request.querystring("cndb")
set rs=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
	if cndb="all" then
		sql="select id_link,class_link,name_link,logo_link,web_link,content_link,ok_link,Good_link from link order by id_link desc"
	elseif cndb="logo" then
		sql="select id_link,class_link,name_link,logo_link,web_link,content_link,ok_link,Good_link from link WHERE class_link=1 order by id_link desc"
	elseif cndb="txt" then
		sql="select id_link,class_link,name_link,logo_link,web_link,content_link,ok_link,Good_link from link WHERE class_link=2 order by id_link desc"
	end if
else
	if cndb="all" then
		sql="select id_link,class_link,name_link,logo_link,web_link,content_link,ok_link,Good_link from [link] order by id_link desc"
	elseif cndb="logo" then
		sql="select id_link,class_link,name_link,logo_link,web_link,content_link,ok_link,Good_link from [link] WHERE class_link=1 order by id_link desc"
	elseif cndb="txt" then
		sql="select id_link,class_link,name_link,logo_link,web_link,content_link,ok_link,Good_link from [link] WHERE class_link=2 order by id_link desc"
	end if
end if
'MySQL需要如下语句
conn.CursorLocation=3
rs.open sql,conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr>
		<td class="thead" align="center" height="25" colspan="9"><b><%
if cndb="all" then
Response.Write "查看所有连接"
elseif cndb="logo" then
Response.Write "查看LOGO连接"
elseif cndb="txt" then
Response.Write "查看TXT连接"
end if
%></b></td>
	</tr>
12 下一页
💿 文件大小 542 K
👤 上传用户 foreverlovely
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#MSSQL #MySQL #ASP #系统设计
⌨️ 快捷键说明

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