📄 party_add_party.asp
字号:
<%@ Language=VBScript %>
<%if Session("weight")=0 then
Response.Redirect "error.asp?cause=4"
end if
%>
<html>
<head>
<title>郴州163网——发起聚会</title>
<link rel="stylesheet" href="../../images/css.css" type="text/css">
<meta NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.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>
<script language="JavaScript">
function is_number(str)
{
exp=/[^0-9]/g;
if(str.search(exp) != -1)
{
return false;
}
return true;
}
function checkform(){
if(form1.party_name.value=='')
{
alert("您还没有填写聚会主题！");
form1.party_name.focus();
return false;
}
if(form1.party_time.value=='')
{
alert("您还没有填写聚会时间！");
form1.party_time.focus();
return false;
}
if(form1.address.value=='')
{
alert("您还没有填写聚会地址！");
form1.address.focus();
return false;
}
if(form1.max_num.value=='')
{
alert("您还没有填写聚会人数！");
form1.max_num.focus();
return false;
}
if(!is_number(form1.max_num.value))
{
alert("聚会人数必须输入数字！");
form1.max_num.focus();
return false;
}
if(form1.contact.value.length<1)
{
alert("您还没有填写联系方式！");
form1.contact.focus();
return false;
}
if(form1.aa_expenses.value!='')
{
if(!is_number(form1.aa_expenses.value))
{
alert("AA制费用必须输入数字！");
form1.aa_expenses.focus();
return false;
}
}
if(form1.party_content.value.length<1)
{
alert("您还没有填写聚会内容！");
form1.party_content.focus();
return false;
}
if(form1.remark.value.length<1)
{
alert("您还没有填写聚会备注！");
form1.remark.focus();
return false;
}
return true;
}
</script>
<object runat="server" id="conn1" progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<!--#include file="top.asp" --><TABLE WIDTH="770" BORDER=0 CELLSPACING=0 CELLPADDING=0 align="center">
<TR>
<TD bgcolor="#FFF8E1">
<br>
<%
set rs1=server.CreateObject ("ADODB.recordset")
sql="select * from party where weight=0 and is_history=0 and initiate_people='"&session("Current_user")&"'"
rs1.Open sql,conn1,3,2
if rs1.RecordCount=0 then
%>
<table cellSpacing="0" cellPadding="0" width="95%" align="center" border="0">
<tbody>
<tr>
<td height="30"> <a href="../../default.asp">首页</a> -> 网友聚会 -> 聚会申请</td></tr>
</tbody></table>
<form action="party_after_add_party.asp" method="post" name="form1" onsubmit="return(checkform())">
<table bgcolor="#ffcc33" border="0" cellPadding="2" cellSpacing="1" width="95%" align="center">
<tbody>
<tr bgcolor="#FFF3C7">
<td width="16%"><b>*主 题：</b> </td>
<td><input type="text" name="party_name" size="25" maxlength="50">
</td></tr>
<TR bgcolor="#FFF3C7"> <TD><SPAN class=content><b>*聚会类别：</b></SPAN></TD>
<TD><SELECT class=font1 name=party_type>
<OPTION
value=2 selected>旅游聚会</OPTION>
<OPTION value=4>地区聚会或其它</OPTION>
</SELECT></TD></TR>
<tr bgcolor="#FFF8E1">
<td width="16%"><b>*聚会时间：</b> </td>
<td><input type="text" name="party_time" size="25" MAXLENGTH="40">
</td></tr>
<tr bgcolor="#FFF3C7">
<td vAlign="center"><b>*所在省市： </b></td>
<td><select name="province" size="1"> <option selected
value=广州市>广州市</OPTION><OPTION
value=深圳市>深圳市</OPTION><OPTION
value=珠海市>珠海市</OPTION><OPTION
value=汕头市>汕头市</OPTION><OPTION
value=韶关市>韶关市</OPTION><OPTION
value=河源市>河源市</OPTION><OPTION
value=梅州市>梅州市</OPTION><OPTION
value=惠州市>惠州市</OPTION><OPTION
value=汕尾市>汕尾市</OPTION><OPTION
value=东莞市>东莞市</OPTION><OPTION
value=中山市>中山市</OPTION><OPTION
value=江门市>江门市</OPTION><OPTION
value=佛山市>佛山市</OPTION><OPTION
value=南海市>南海市</OPTION><OPTION
value=顺德市>顺德市</OPTION><OPTION
value=阳江市>阳江市</OPTION><OPTION
value=湛江市>湛江市</OPTION><OPTION
value=茂名市>茂名市</OPTION><OPTION
value=肇庆市>肇庆市</OPTION><OPTION
value=清远市>清远市</OPTION><OPTION
value=揭阳市>揭阳市</OPTION><OPTION
value=云浮市>云浮市</OPTION><OPTION
value=其他省>———</OPTION><OPTION
value=潮阳市>潮阳市</OPTION><OPTION
value=河北省>河北省</OPTION><OPTION
value=山西省>山西省</OPTION><OPTION
value=辽宁省>辽宁省</OPTION><OPTION
value=吉林省>吉林省</OPTION><OPTION
value=黑龙江省>黑龙江省</OPTION><OPTION
value=江苏省>江苏省</OPTION><OPTION
value=浙江省>浙江省</OPTION><OPTION
value=安徽省>安徽省</OPTION><OPTION
value=福建省>福建省</OPTION><OPTION
value=江西省>江西省</OPTION><OPTION
value=山东省>山东省</OPTION><OPTION
value=河南省>河南省</OPTION><OPTION
value=湖北省>湖北省</OPTION><OPTION
value=湖南省>湖南省</OPTION><OPTION
value=广西省>广西省</OPTION><OPTION
value=海南省>海南省</OPTION><OPTION
value=四川省>四川省</OPTION><OPTION
value=贵州省>贵州省</OPTION><OPTION
value=云南省>云南省</OPTION><OPTION
value=陕西省>陕西省</OPTION><OPTION
value=甘肃省>甘肃省</OPTION><OPTION
value=青海省>青海省</OPTION><OPTION
value=香港>香港特别行政区</OPTION><OPTION
value=澳门>澳门特别行政区</OPTION><OPTION
value=台湾>台湾</OPTION> <option value="其它国家">其它国家</option></select> </td></tr>
<tr bgcolor="#FFF8E1">
<td width="16%"><b>*聚会地点：</b> </td>
<td><input type="text" name="address" size="25" maxlength="40">
</td></tr>
<tr bgcolor="#FFF3C7">
<td width="16%"><b>*拟邀请人数：</b> </td>
<td><input type="text" name="max_num" size="4" MAXLENGTH="3" value=0 > 人，0表示不限
</td></tr>
<TR bgcolor="#FFF8E1">
<TD><SPAN class=content><b>*联系方式</b></SPAN></TD>
<TD><SPAN class=content><FONT color=#228b22><TEXTAREA class=content cols=50 name=contact rows=3></TEXTAREA><BR>请务必留下具体的联系方式，电话或E-mail</FONT></SPAN></TD></TR>
<TR bgcolor="#FFF3C7">
<TD><SPAN class=content><b>*开销支付方式</b></SPAN></TD>
<TD><SPAN
class=content>AA制：<INPUT class=content maxLength=4
name=aa_expenses
size=3>元/人 其它：<INPUT maxLength=50
name=other_expenses size="20"></SPAN></TD></TR>
<tr bgcolor="#FFF8E1">
<td width="16%"><b>*活动内容：</b> </td>
<td><textarea class="p3" cols="62" name="party_content" rows="5" tabIndex="6" wrap="VIRTUAL"></textarea>
</td></tr>
</tbody></table>
<table border="0" cellPadding="2" cellSpacing="1" width="95%" align="center"><tbody>
<tr bgcolor="#FFF8E1">
<td align="center"><input type="submit" value="提 交" id="submit1" name="submit1">
<input type="reset" value="重 置" id="reset1" name="reset1">
</td></tr>
</tbody></table>
</form>
<%else
id=rs1("id")
%>
<table width="100%" border="0">
<tr>
<td height="30" align="center"><br><font color=red><b>出错了！</b></font></td>
<td></td>
</tr>
<tr><td align="center"><br>
<b><font color="#003399" size="2">对不起，一个用户名一次只能申请一个聚会！</font></b>
</td>
<td></td>
</tr>
<tr><td align="center"><br>
<b><font color="#003399" size="2">原有聚会管理：[<a href="party_update_party.asp?id=<%=id%>" target="_blank">聚会修改</a>] [<a href="party_del_party.asp?id=<%=id%>">聚会删除</a>] </font></b>
</td>
<td>
<a href="javascript:history.go(-1)"><font color="red">返回</font></a></td>
</tr>
</table>
<%end if%>
</TD>
</TR>
</TABLE>
<p align="center"><!--#include file="../../copyright.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -