?? diaoyong.asp
字號:
<!--#include file="conn.asp" -->
<%mycity=trim(request("ct"))
if len(mycity)=0 then
response.end
end if%>
<SCRIPT language='javascript' src='inc/pop.js'></SCRIPT>
<script language="javascript">
function openScript(url, width, height){
var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=0,scrollbars=yes,menubar=no,status=yes' );
}
</script>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name=keywords content="同志資訊,同志,gay">
<meta name="description" content="同志資訊,同志,gay">
<title>同志資訊</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="2" oncontextmenu="self.event.returnValue=false">
<TABLE cellSpacing=0 cellPadding=0 width=760 background=images/party_bg.gif border=0 height="120" style="border-collapse: collapse">
<TR>
<TD width=96><IMG src="images/party_1.jpg" border=0></TD>
<TD align=middle width=160>
<TABLE height=106 cellSpacing=0 cellPadding=0 width=160 background=images/party_bg1.gif border=0>
<TR>
<TD align=middle>
<TABLE cellSpacing=0 cellPadding=0 width=147 border=0>
<TR>
<TD align=middle height=24><a target='_blank' href="city.asp?ct=<%=mycity%>" style="font-size: 10pt; color: #FF5050; font-weight: bold">城市資訊</a></TD></TR>
<TR>
<TD height=78 align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="147"><%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 3 * from xinxi where 審核=-1 and 城市='"& mycity &"' order by 推薦指數 desc",conn,1,1
if rs.recordcount=0 then
response.write ( "<tr><td align='center'>暫時沒有資訊<br><a target='_blank' style='color:red' href='add_zx.asp'>>>添加資訊<<</a></td></tr>")
else
cti=1
Do while not rs.eof
response.write ("<tr><td><font color=#FF0000>·</font><a alt='查看〖"&rs("名稱")&"〗的詳細信息' href=javascript:openScript('xinxi.asp?id="&rs("編號")&"',530,400)>" &left(rs("名稱"),16)&"</a></td></tr>")
rs.movenext
if cti=3 then
exit do
end if
cti=cti+1
Loop
response.write ("<tr><td align='right' width='147'><a target='_blank' href='city.asp?ct="& mycity &"'>>>更多</a></td></tr>")
end if
rs.close
set rs=nothing
%> </table>
</TD></TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
<TD width=6></TD>
<TD align=middle width=160>
<TABLE height=106 cellSpacing=0 cellPadding=0 width=160 background=images/party_bg1.gif border=0>
<TR>
<TD align=middle>
<TABLE cellSpacing=0 cellPadding=0 width=147 border=0>
<TR>
<TD align=middle height=24><a target='_blank' href="cityparty.asp?ct=<%=mycity%>" style="font-size: 10pt; color: #0066CC; font-weight: bold">聚會聯誼</a></TD></TR>
<TR>
<TD height=78>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="147">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 3 * from party where 審核=-1 and 城市='"& mycity &"' order by 編號 desc",conn,1,1
if rs.recordcount=0 then
response.write ( "<tr><td align='center'>暫時沒有聚會<br><a target='_blank' style='color:red' href='add_party.asp'>>>添加聚會<<</a></td></tr>")
else
Do while not rs.eof
response.write ("<tr><td><font color=#FF0000>·</font><a alt='查看〖"&rs("名稱")&"〗的詳細信息' href=javascript:openScript('party.asp?id="&rs("編號")&"',530,400)>" &left(rs("名稱"),9)&"...</a></td></tr>")
rs.movenext
Loop
response.write ("<tr><td align='right' width='147'><a target='_blank' href='cityparty.asp?ct="& mycity &"'>>>更多</a></td></tr>")
end if
rs.close
set rs=nothing
%>
</table>
</TD></TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
<TD width=6></TD>
<TD align=middle width=160>
<TABLE height=106 cellSpacing=0 cellPadding=0 width=160 background=images/party_bg1.gif border=0>
<TR>
<TD align=middle>
<TABLE cellSpacing=0 cellPadding=0 width=147 border=0>
<TR>
<TD align=middle height=24><a target='_blank' href="citybook.asp?ct=<%=mycity%>" style="font-size: 10pt; color: #008000; font-weight: bold">城市留言</a></TD></TR>
<TR>
<TD height=78 align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"><%
set rspl=server.CreateObject("adodb.recordset")
rspl.open "select top 3 * from citybook where 城市區號='" & mycity &"' order by 編號 desc",conn,1,1
if rspl.recordcount=0 then
response.write ( "<tr><td align='center'>暫時沒有留言<br><a target='_blank' style='color:red' href='citybook.asp?ct="&mycity&"'>>>我要留言<<</a></td></tr>")
else
Do while not rspl.eof
response.write ("<tr><td><font color=#FF0000>·</font><a target='_blank' href='citybook.asp?ct="&mycity&"'>" &left(rspl("發言內容"),9) &"...</a></td></tr>")
rspl.movenext
Loop
response.write ("<tr><td align='right' width='147'><a target='_blank' href='citybook.asp?ct="& mycity &"'>>>更多</a></td></tr>")
end if
rspl.close
set rspl=nothing%></table></TD></TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
<TD width=6></TD>
<TD align=middle width=160>
<TABLE height=106 cellSpacing=0 cellPadding=0 width=160 background=images/party_bg1.gif border=0>
<TR>
<TD align=middle>
<TABLE cellSpacing=0 cellPadding=0 width=147 border=0>
<TR>
<TD align=middle height=24 style="font-size: 10pt; color: #9966FF; font-weight: bold">
幫助中心</TD></TR>
<TR>
<TD height=78>·<a style="color: #FF0000" href="javascript:openScript('zhaopin.htm',530,400)">招聘城市管理員</a><br>
·歡迎使用資訊評論功能<br>
·城市聚會聯誼開通測試<br>
·城市留言已開通測試</TD></TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
<TD width=6></TD>
</TR>
</TABLE>
</body></html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -