📄 frieng.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="setting.asp"-->
<%
if request("action")="add" then
name1=GernerateHtml(request("name"))
url=request("url")
pic=request("pic")
infor=GernerateHtml(request("infor"))
set rs=server.createobject("adodb.recordset")
sql="select * from friends"
rs.open sql,conn,1,3
if name1="" then
response.Redirect("admin_wrong.asp?url=frieng.asp&reason=你可能没填写连接标题!")
else
rs.addnew
rs("lianjie_name")=name1
rs("lianjie_url")=url
rs("lianjie_pic")=pic
rs("lianjie_infor")=infor
rs.update
rs.close
set rs=nothing
response.Redirect("admin_right.asp?url=frieng.asp&reason=连接添加成功.")
end if
end if
if request("action")="del" then
bh=request("bh")
sql = "Select * from friends where bh="+ bh
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,2,3
rs.delete
rs.close
response.Redirect("admin_right.asp?url=frieng.asp&reason=连接删除成功.")
end if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>友情连接管理</title>
<link href="css/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<div>
<div align="center">
<table width="861" border="0" bgcolor="#FFFFFF" class="tb1">
<tr>
<td height="27" background="image/item_bg.gif" class="STYLE2" id="new" style="border:#999999 1px solid">友情连接管理</td>
</tr>
<tr>
<td><div align="left">友情连接调用方法</div></td>
</tr>
<tr>
<td><div align="left" class="STYLE13"><script language="javascript" src="<span class="STYLE8">修改后系统文件夹名/</span>lianjie_js.asp?n=3"></script> <span class="STYLE8">n代表显示个数</span> </div></td>
</tr>
<tr>
<td height="18" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">|- 新增友情连接</td>
</tr>
<tr>
<td><form name="form1" method="post" action="frieng.asp?action=add">
<table width="861" border="0" class="STYLE3">
<tr>
<td><div align="left">友情连接名:</div></td>
<td><div align="left">
<label>
<input name="name" type="text" class="STYLE7" id="name" size="50">
</label>
</div></td>
</tr>
<tr>
<td><div align="left">友情连接url:</div></td>
<td><div align="left">
<input name="url" type="text" class="STYLE7" id="url" value="http://" size="50">
</div></td>
</tr>
<tr>
<td><div align="left">友情连接图片:</div></td>
<td><div align="left">
<input name="pic" type="text" class="STYLE7" id="pic" value="http://" size="50">
</div></td>
</tr>
<tr>
<td><div align="left">友情连接信息:</div></td>
<td><div align="left">
<textarea name="infor" cols="50" rows="5" class="STYLE7" id="infor"></textarea>
</div></td>
</tr>
<tr>
<td><div align="left"></div></td>
<td><div align="left">
<label>
<input name="Submit" type="submit" class="STYLE7" value="提交">
</label>
<label>
<input name="Submit2" type="reset" class="STYLE7" value="重置">
</label>
</div></td>
</tr>
</table>
</form> </td>
</tr>
<tr>
<td height="18" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">|- 管理友情连接</td>
</tr>
<tr>
<td><p><%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from friends order by bh desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("没有记录")
else
rs.PageSize=10
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
</p>
<table width="861" border="0" class="tb1">
<tr>
<td width="205" height="27" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">|-友情连接名</td>
<td width="264" height="27" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">|-url</td>
<td width="176" height="27" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">|-图片地址</td>
<td width="196" height="27" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">|-信息 <a href="frieng_modi.asp?action=modi&bh=<%=rs("bh")%>">修改</a> <a href="frieng.asp?action=del&bh=<%=rs("bh")%>">删除</a></td>
</tr>
<tr>
<td><div align="left"><%=rs("lianjie_name")%> </div></td>
<td><div align="left"><%if rs("lianjie_url")="http://" then%>没有连接<%else%><a href="<%=rs("lianjie_url")%>"><%=rs("lianjie_url")%></a> </div></td><%end if%>
<td><div align="center"> <%if rs("lianjie_pic")="http://" then%>没有图片<%else%><img src="<%=rs("lianjie_pic")%>" width="100" height="30"> </div></td><%end if%>
<td><div align="left">
<form name="form2" method="post" action="">
<label>
<textarea name="textarea" cols="60" class="STYLE7"><%=rs("lianjie_infor")%></textarea>
</label>
</form>
</div></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<div align="center">
<%
rs.movenext
if rs.eof then exit for
next
%>
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=admin_info.asp?page=1>首页</a> "
response.write "<a href=admin_info.asp?page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=admin_info.asp?page=" & (page+1) & ">"
response.write "下一页</a> <a href=admin_info.asp?page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>"
%>
<%
end if
rs.close
set rs=nothing
%>
</div></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</div>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -