📄 party_index1.asp
字号:
<%@ Language=VBScript %>
<html>
<head>
<title>缘分的天空</title>
<link rel="stylesheet" href="../../images/css.css" type="text/css">
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</head>
<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<SCRIPT LANGUAGE=javascript>
//<!--
function sss(URL)
{
newwin=window.open('','_blank','fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0');
if(document.all){
newwin.moveTo(200,40 )
newwin.resizeTo(400,400 );
}
newwin.location=URL
newwin.focus();
}
//-->
</SCRIPT>
<object runat="server" id="conn1" progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<!--#include file="top.asp" -->
<%
sql="select * from party where is_history=0 and "
'//////////直辖市
if request("zone")=1 then
sql=sql&"province in('北京','上海','天津','重庆')"
zone="直辖市"
'////东北地区
elseif request("zone")=2 then
sql=sql&"province in('黑龙江省','吉林省','辽宁省')"
zone="东北地区"
'////华北地区
elseif request("zone")=3 then
sql=sql&"province in('河北省','内蒙古','山西省')"
zone="华北地区"
'////西北地区
elseif request("zone")=4 then
sql=sql&"province in('青海省','陕西省','甘肃省','新疆','宁夏')"
zone="西北地区"
'////华东地区
elseif request("zone")=5 then
sql=sql&"province in('浙江省','山东省','江苏省','安徽省','江西省','福建省')"
zone="华东地区"
'////华中地区
elseif request("zone")=6 then
sql=sql&"province in('河南省','湖北省','湖南省')"
zone="华中地区"
'////华南地区
elseif request("zone")=7 then
sql=sql&"province in('广东省','海南省','广西')"
zone="华南地区"
'////西南地区
elseif request("zone")=8 then
sql=sql&"province in('贵州省','四川省','云南省','西藏')"
zone="西南地区"
'////其它地区
elseif request("zone")=9 then
sql=sql&"province in('台湾省','香港','澳门','美国','加拿大','澳大利亚','欧洲','其它国家')"
zone="其它地区"
end if
%>
<%
sql=sql&" order by province"
rows=1
set rs=server.CreateObject ("ADODB.recordset")
'sql="select * from party where is_history=0 and province='"&Request("province")&"'"
rs.Open sql,conn1,3,2
%>
<table cellSpacing="0" cellPadding="0" width="770" align="center" border="0">
<tbody>
<tr>
<td height="30"> <a href="../../default.asp">首页</a> -> <a href="party_index.asp">网友聚会</a> -> <%=zone%>地区聚会列表</td></tr>
<tr>
<td>
<p align="center"><b><font color="#ff9933"><%=zone%>地区聚会列表</font></b></p>
<table cellSpacing="1" width="100%" align="center" bgColor="#999999">
<tbody>
<tr>
<td align="middle" width="30" bgColor="#ffcc00" height="23"> </td>
<td align="middle" bgColor="#ffcc00" height="23"><strong>聚会主题</strong></td>
<td align="middle" bgColor="#ffcc00" height="23"><strong>发起人</strong></td>
<td align="middle" bgColor="#ffcc00" height="23"><strong>所在省份</strong></td>
<td align="middle" bgColor="#ffcc00" height="23"><strong>聚会地点</strong></td>
<td align="middle" bgColor="#ffcc00" height="23"><strong>聚会时间</strong></td></tr>
<%while not rs.EOF
%>
<tr align="middle" bgColor="#ffffff">
<td height="23"><%=rows%></td>
<td><a href="party_2.asp?id=<%=rs("id")%>"><%=rs("party_name")%></a></td>
<td height="23"><a href="../show_user.asp?user_name=<%=rs("initiate_people")%>" target="_blank"><%=rs("initiate_people")%></a></td>
<td><%=rs("province")%> </td>
<td><%=rs("address")%> </td>
<td><%=rs("party_time")%></td></tr>
<%
rows=rows+1
rs.MoveNext
wend%>
</tbody></table></td></tr></tbody></table>
<hr width="100%" SIZE="1">
<!--#include file="../../copyright.asp" --></body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -