?? manage_link.asp
字號(hào):
<!--#include file="admin.asp"-->
<!--#include file="conn.asp"-->
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = Conn
Rs.Open "SELECT * FROM links Order BY id"
if Request.QueryString("no")="yes" then
id= Trim(Request("id"))
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = Conn
Rs.Open "DELETE FROM links Where id="&id,Conn,2,3,1
Set Rs= Nothing
Set Conn = Nothing
Response.Redirect "Manage_Link.asp"
end if
if Request.QueryString("no")="eshop" then
note=request.form("note")
link=request.form("link")
name=request.form("name")
If name="" or note="http://"Then
Response.Write("<script language=""JavaScript"">alert(""錯(cuò)誤：您沒輸入網(wǎng)站名稱，請(qǐng)返回檢查！！"");history.go(-1);</script>")
response.end
end if
If note="" or note="http://"Then
Response.Write("<script language=""JavaScript"">alert(""錯(cuò)誤：您沒輸入圖標(biāo)連接，請(qǐng)返回檢查！！"");history.go(-1);</script>")
response.end
end if
If link="" or link="http://" Then
Response.Write("<script language=""JavaScript"">alert(""錯(cuò)誤：您沒有輸入超連接，請(qǐng)返回檢查！！"");history.go(-1);</script>")
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from links "
rs.open sql,conn,1,3
rs.addnew
rs("name")=name
rs("note")=note
rs("link")=link
rs.update
Response.Redirect "Manage_Link.asp"
end if
%>
<html>
<head>
<title>友情鏈接管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_Style.css" rel="stylesheet" type="text/css">
</head>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
</tr>
</table></td>
<td align="center" valign="top">
<br>
<strong><br>
</strong>
<table width="550" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="35"> <div align="center"><strong>友情鏈接管理</strong></div></td>
</tr>
<tr>
<form method="post" action="Manage_Link.asp?no=eshop">
<td> <table width="80%" border="0" align="center" cellpadding="3" cellspacing="2">
<tr>
<td width="20%" height="22" bgcolor="#C0C0C0"> <div align="center">網(wǎng)站名稱</div></td>
<td width="80%" bgcolor="#E3E3E3"><input type="text" name="name" size="35" maxlength="40"></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0"><div align="center">網(wǎng)站說明</div></td>
<td bgcolor="#E3E3E3"><input type="text" name="note" size="50" maxlength="120"></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0"> <div align="center">連接地址</div></td>
<td bgcolor="#E3E3E3"><input type="text" name="link" size="40" maxlength="50" value="http://"></td>
</tr>
<tr bgcolor="#C0C0C0">
<td height="22" colspan="2"> <div align="center">
<input type="reset" name="Submit2" value="重置">
</div></td>
</tr>
</table>
<br> <table width="100%" border="0" cellspacing="2" cellpadding="3">
<tr bgcolor="#C0C0C0">
<td width="22%" height="25" bgcolor="#C0C0C0"><div align="center">網(wǎng)站名稱</div></td>
<td width="49%" bgcolor="#C0C0C0"><div align="center">網(wǎng)站說明</div></td>
<td width="17%" bgcolor="#C0C0C0"><div align="center">加入時(shí)間</div></td>
<td width="12%" bgcolor="#C0C0C0"><div align="center">操作</div></td>
</tr>
<% do while not Rs.eof %>
<tr bgcolor="#E3E3E3">
<td height="22" bgcolor="#E3E3E3"><div align="center"><a href="<%=Rs("link")%>" target="_blank"><%=rs("name")%></a></div></td>
<td bgcolor="#E3E3E3"><div align="center"><%=Rs("note")%></div></td>
<td bgcolor="#E3E3E3"><div align="center"><%= FormatDateTime(rs("time"),2) %></div></td>
<td bgcolor="#E3E3E3"><div align="center">演示不開放操作按鈕，請(qǐng)聯(lián)系QQ 412771253</div></td>
</tr>
<%Rs.MoveNext
loop
%>
</table>
<% Set Rs = Nothing
Set Conn = Nothing
%>
</td>
</form>
</tr>
<tr>
<td height="22">首頁最多可顯示10條友情鏈接</td>
</tr>
</table>
</td>
</tr>
</table>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -