📄 friends.asp
字号:
<!--#include file="tc.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="pass.asp"-->
<!--#include file="head.asp"-->
<link href="../images/css.css" rel="stylesheet" type="text/css">
<body>
<% if request("update")<>"" then
id=request.QueryString("update")
F_name=request("F_name")
F_addres=request("F_addres")
F_logo=request("F_logo")
F_pass=request("F_pass")
F_readme=request("F_readme")
set rs3=server.CreateObject("adodb.recordset")
sql3="select * from friends where id="&id
rs3.open sql3,conn,1,3
rs3("F_name")=F_name
rs3("F_addres")=F_addres
rs3("F_logo")=F_logo
rs3("F_pass")=F_pass
rs3("F_readme")=F_readme
rs3.update
Response.Write"<script language=JavaScript>"
Response.Write"alert(""恭喜！修改成功"");"
Response.Write"window.location='friends.asp?gn=all'"
Response.Write"</script>"
else
response.Write""
end if
%>
<TABLE width="80%" border=1 align="center" cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=#00659c>
<TR borderColor=#ffffff bgColor=#ffffff>
<TD><table width="94%" border="0" align="center" cellpadding="2" cellspacing="0" bordercolor="#999999">
<tr bgcolor="#FFFFFF">
<td width="12%" bgcolor="#FFFFFF"><font color="#007db5"><strong> 分类查看：</strong></font></td>
<td width="29%" bgcolor="#FFFFFF"><div align="center"><a href="?gn=all">显示所有友情站点</a></div></td>
<td width="29%" bgcolor="#FFFFFF"><div align="center"><a href="?gn=1">显示所有已审站点</a></div></td>
<td width="30%" bgcolor="#FFFFFF"><div align="center"><a href="?gn=0">显示所有未审站点</a></div></td>
</tr>
</table></TD>
</TR>
</TABLE>
<br>
<br>
<TABLE width="80%" border=1 align="center" cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=#00659c>
<TR borderColor=#007db5 bgColor=#007db5>
<%
gn=request("gn")
if request("gn")="all" then
set rs=server.createobject("adodb.recordset")
sql="select * from friends order by id desc"
rs.open sql,conn,1
else
set rs=server.createobject("adodb.recordset")
sql="select * from friends where F_pass='"& gn &"' order by id desc"
rs.open sql,conn,1
end if
rs.pagesize=8 '每页显示多少条
pagecount=rs.pagecount '总页数
%>
<TD vAlign=bottom bgcolor="#007db5"><font color="#FFFFFF">
<% if request("gn")="all" then
response.Write"所有站点"
elseif request("gn")="1" then
response.Write"已审站点"
elseif request("gn")="0" then
response.Write"未审站点"
end if %></font></TD>
</TR>
<TR borderColor=#ffffff bgColor=#ffffff>
<TD><table width="100%" border="0" align="center" cellpadding="2" cellspacing="2" bordercolor="#999999">
<tr bgcolor="#FFFFFF">
<td width="24%"><div align="center"><font color="#007db5"><strong>网站名称</strong></font></div></td>
<td width="6%"> <div align="center"><font color="#007db5"><strong>审核</strong></font></div></td>
<td width="45%"> <div align="center"><font color="#007db5"><strong>网站地址</strong></font></div></td>
<td width="18%"><div align="center"><font color="#007db5"><strong>日期</strong></font></div></td>
<td width="7%"><div align="center"><font color="#007db5"><strong>操作</strong></font></div></td>
</tr>
<%
if rs.bof and rs.eof then
response.write ""
else
page=clng(request.querystring("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page '跳到多少页
for i=1 to rs.pagesize
%>
<tr bgcolor="#FFFFFF">
<td><div align="center">
<% =rs("F_name") %>
</div></td>
<td><div align="center">
<%
if rs("F_pass")="1" then
response.Write"<font color=""#FF0000"">已审</front>"
else
response.Write"未审"
end if
%>
</div></td>
<td><div align="center">
<a href="<% =rs("F_addres") %>" target="_blank"><% =rs("F_addres") %></a>
</div></td>
<td><div align="center">
<% =rs("date") %>
</div></td>
<td><div align="center"><font size="2">
<input name="cz" type="button" id="cz" onClick="window.location='?xiugai=<% =rs("id") %>'" value="操作">
</font></div></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
</table></TD>
</TR>
</TABLE>
<TABLE width="80%" border=1 align="center" cellPadding=2 cellSpacing=1 borderColor=#ffffff
bgColor=#00659c>
<TBODY>
<TR borderColor=#ededed bgColor=#ededed>
<TD align=middle height=25><div align="center">
<%
if request("gn")="all" then
set tj=conn.execute("Select count(*) as tj1 From friends")
else
set tj=conn.execute("Select count(*) as tj1 From friends where F_pass='"& gn &"'")
end if %>
共有〖<% =tj("tj1") %> 〗条信息
<%
r=7
'总页数
zys=round(clng(rs.pagecount)/r+0.5)
'当前页数
dqys=request.QueryString("dqys")
'开始页
ksy=request.QueryString("ksy")
if dqys="" then dqys=1
if ksy="" then ksy=1
js=clng(dqys) * r '一个FOR语句结束
if js > clng(rs.pagecount) then js=clng(rs.pagecount)
newksy= clng(dqys)*r-(r-1) '一个FOR语句开始
if clng(dqys) >1 then response.write "<a href=?dqys="& dqys-1 &"&gn="& gn &">" &"上一页" &"</a>"
for t=newksy to js
response.write "<a href=?page=" &t&"&dqys="&dqys&"&gn="& gn &">" &t& "</a> "
next
if cdbl(dqys)< zys then response.write "<a href=?dqys="& dqys+1 &"&gn="& gn &">" &"下一页" &"</a>"
%>
</div></TD>
</TR>
</TBODY>
</TABLE>
<%
if request("del")<>"" then
id=request.QueryString("del")
conn.execute ("delete from friends where id="&id)
Response.Write"<script language=JavaScript>"
Response.Write"alert(""恭喜！删除成功"");"
Response.Write"window.location='friends.asp?gn=all'"
Response.Write"</script>"
else
response.Write""
end if
%>
<%if request("xiugai")<>"" then
xiugai=request.QueryString("xiugai")
set rs2=server.createobject("adodb.recordset")
sql2="select * from friends where id="&xiugai
rs2.open sql2,conn,1
%>
<form name="form1" method="post" action="?update=<% =rs2("id") %>">
<TABLE width="80%" border=1 align="center" cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=#00659c>
<TR borderColor=#007db5 bgColor=#007db5>
<TD vAlign=bottom bgcolor="#007db5"><font color="#FFFFFF"> 修改站点：</font></TD>
</TR>
<TR borderColor=#ffffff bgColor=#ffffff>
<TD><table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td width="13%">网站名称：</td>
<td width="87%"><input name="F_name" type="text" id="F_name" value="<% =rs2("F_name") %>"></td>
</tr>
<tr>
<td>网站地址：</td>
<td><input name="F_addres" type="text" id="F_addres" value="<% =rs2("F_addres") %>" size="60"></td>
</tr>
<tr>
<td>LOGO地址：</td>
<td><input name="F_logo" type="text" id="F_logo" value="<% =rs2("F_logo") %>" size="60"></td>
</tr>
<tr>
<td>站点状态：</td>
<td><select name="F_pass" id="F_pass">
<option value="1" <% if rs2("F_pass")="1" then
response.Write"selected"
end if%>>已审</option>
<option value="0" <% if rs2("F_pass")="0" then
response.Write"selected"
end if%>>未审</option>
</select></td>
</tr>
<tr>
<td>网站简介：</td>
<td><textarea name="F_readme" cols="80" rows="6" id="F_readme"><% =rs2("F_readme") %></textarea></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="确 定 修 改 站 点">
<font size="2">
<input name="cz2" type="button" id="cz3" onClick="window.location='?del=<% =rs2("id") %>'" value="确 定 删 除 站 点">
</font> </div></td>
</tr>
</table></TD>
</TR>
</TABLE>
</form>
<% else
response.Write""
end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -