📄 party_main.asp
字号:
<%@ Language=VBScript %>
<html>
<head>
<title>缘分的天空</title>
<link rel="stylesheet" href="../../images/css.css" type="text/css">
<meta NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
</head>
<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<p align="center"><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
%>
<%
if Application("mytoday")="" or Application("mytoday")<>date then
'if Application("mytoday")=date then
set rs_1=server.CreateObject ("ADODB.recordset")
rs_1.Supports (adUpdate)
sql="select * from party where is_history=0"
rs_1.Open sql,conn1,2,3
while not rs_1.EOF
if rs_1("end_date")<date then
rs_1("is_history")=1
end_date=rs_1("end_date")
end if
rs_1.MoveNext
wend
Application("mytoday")=date
end if
%>
<!--#include file="top.asp" --><table cellSpacing="0" cellPadding="0" width="623" align="center" border="0">
<tr>
<td height="30" align="left" width="119"> <a href="../../default.asp">首页</a> ->网友聚会 </td>
<td align="center" width="503"> <a href="party_add_party.asp"><font color="red">聚会申请</font></a><font color=red>
</font><a href="history_party.asp"><font color="red">聚会历史纪录</font></a></td>
</tr>
</table>
<%set rs1=server.CreateObject ("ADODB.recordset")
sql="select * from party where weight=1 and is_history=0"
rs1.Open sql,conn1,3
if rs1.RecordCount<>0 then
sys_party_name=rs1("party_name")
sys_party_content=rs1("party_content")
sys_id=rs1("id")
end if
%>
<% if rs1.RecordCount<>0 then %>
<table cellSpacing="0" cellPadding="0" width="770" align="center" border="0">
<tbody>
<tr>
<td>
<div align="center"><img height="27" src="images/klatch_t_zxjh.gif" width="738"></div></td></tr>
<tr>
<td>
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<tbody>
<tr>
<td vAlign="top" width="70%">
<div align="right">
<table cellSpacing="0" cellPadding="0" width="90%" align="center" border="0">
<tbody>
<tr>
<td height="35">
<div align="center"><b><font color="#ff9933" size="3"><%=sys_party_name%></font></b></div></td></tr>
<tr>
<td>
<a href="party_2.asp?id=<%=sys_id%>" target="_blank"><%=sys_party_content%></a></td></tr></tbody></table></div></td>
<td width="30%">
<%set rs=server.CreateObject ("ADODB.recordset")
sql="select * from public_note where object=1 order by time desc"
rs.Open sql,conn1,3
if rs.RecordCount<>0 then
public_note=rs("public_note")
end if
%>
<table cellSpacing="0" cellPadding="0" width="218" border="0">
<tbody>
<tr>
<td><img height="23" src="images/klatch_board_top.gif" width="218"></td></tr>
<tr>
<td background="images/klatch_board_mid.gif">
<table cellSpacing="0" cellPadding="0" width="90%" align="center" border="0">
<tbody>
<tr>
<td><%=public_note%></td></tr>
<tr>
<td vAlign="top" height="150">
<br><br></td></tr></tbody></table></td></tr>
<tr background="../images/klatch_board_mid.gif">
<td><img height="12" src="images/klatch_board_bot.gif" width="218">
</td></tr>
</tbody></table>
</td></tr></tbody></table>
</td></tr></tbody></table>
<%end if%>
<%
dim party_num(39)
for i=1 to 39
party_num(i)=0
next
set rs=server.CreateObject ("ADODB.recordset")
sql="select province,count(id) from party where weight=0 and is_history=0 group by province"
rs.Open sql,conn1,3
if rs.RecordCount<>0 then
while not rs.EOF
if rs("province")="北京市" then
party_num(1)=rs("expr1001")
elseif rs("province")="上海市" then
party_num(2)=rs("expr1001")
elseif rs("province")="天津市" then
party_num(3)=rs("expr1001")
elseif rs("province")="重庆市" then
party_num(4)=rs("expr1001")
elseif rs("province")="浙江省" then
party_num(5)=rs("expr1001")
elseif rs("province")="河北省" then
party_num(6)=rs("expr1001")
elseif rs("province")="河南省" then
party_num(7)=rs("expr1001")
elseif rs("province")="黑龙江省" then
party_num(8)=rs("expr1001")
elseif rs("province")="吉林省" then
party_num(9)=rs("expr1001")
elseif rs("province")="辽宁省" then
party_num(10)=rs("expr1001")
elseif rs("province")="山东省" then
party_num(11)=rs("expr1001")
elseif rs("province")="内蒙古" then
party_num(12)=rs("expr1001")
elseif rs("province")="江苏省" then
party_num(13)=rs("expr1001")
elseif rs("province")="安徽省" then
party_num(14)=rs("expr1001")
elseif rs("province")="山西省" then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -