📄 add_party.asp
字号:
<!--#include file="config.asp" -->
<%
name=trim(request.form("name"))
city=trim(request.form("city"))
faqiren=trim(request.form("faqiren"))
lianxi=trim(request.form("lianxi"))
zhuti=trim(request.form("zhuti"))
didian=trim(request.form("didian"))
shijian=trim(request.form("shijian"))
feiyong=trim(request.form("feiyong"))
shexiang=trim(request.form("shexiang"))
set rs=server.CreateObject("adodb.recordset")
if len(name)>0 then
rs.open"select * from party where 名称='" &name& "'",conn,1,1
if not rs.eof then
response.write "<div align=center><a href='javascript:history.back(1)'>该聚会已存在，请重新输入！</a></div>"
response.end
end if
rs.close
rs.open "select * from party",conn,3,3
rs.addnew
rs("名称")=name
rs("城市")=city
rs("发起人")=faqiren
rs("联系方式")=lianxi
rs("主题")=zhuti
rs("地点")=didian
rs("时间")=shijian
rs("费用")=feiyong
rs("设想")=shexiang
rs("审核")=-1 '0未审核，-1已审核
rs("登记时间")=date() & " " & time()
rs.update
rs.close
set rs=nothing
response.redirect "ok.asp?ok=zx"
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name=keywords content="<%=sitekeywords%>">
<meta name="description" content="<%=sitedescription%>">
<title><%=sitename%>- 首页</title>
<link href="style.css" rel="stylesheet" type="text/css">
<script language="VBScript">
<!--
''=======================================================''
''函数作用：检测添加资讯时的信息是否符合要求
''=======================================================''
function checkaddparty()
if len(add_party.name.value)=0 or len(add_party.name.value)>14 then
msgbox"请输入资讯名称！（14汉字内）"
add_party.name.focus
elseif add_party.city.value="0" then
msgbox"请选择所在城市！"
add_party.city.focus
elseif Len(add_party.faqiren.value)=0 or len(add_party.faqiren.value)>5 then
msgbox"请输入发起人姓名！（5汉字内）"
add_party.faqiren.focus
elseif Len(add_party.lianxi.value)=0 or Len(add_party.lianxi.value)>100 then
msgbox"请输入联系方式！（100个汉字内）"
add_party.lianxi.focus
elseif Len(add_party.zhuti.value)=0 or Len(add_party.zhuti.value)>200 then
msgbox"请输入聚会主题！（200个汉字内）"
add_party.zhuti.focus
elseif Len(add_party.didian.value)=0 or Len(add_party.didian.value)>200 then
msgbox"请输入聚会地点！（200个汉字内）"
add_party.didian.focus
elseif Len(add_party.shijian.value)=0 or Len(add_party.shijian.value)>100 then
msgbox"请输入聚会时间！（200个汉字内）"
add_party.shijian.focus
elseif Len(add_party.feiyong.value)=0 or Len(add_party.feiyong.value)>100 then
msgbox"请输入聚会费用！（100个汉字内）"
add_party.feiyong.focus
elseif Len(add_party.shexiang.value)=0 or Len(add_party.shexiang.value)>100 then
msgbox"请输入聚会设想！（200个汉字内）"
add_party.shexiang.focus
else
add_party.submit
end if
end function
-->
</script>
</head>
<body leftmargin="0" topmargin="2">
<!--#include file="check.asp" -->
<div align="<%=sitealign%>">
<!--#include file="title.asp" -->
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760" height="80">
<tr>
<td class=t1 bgcolor="#88CCFF" align="center" width="300"> </td>
<td class=t1 bgcolor="#88CCFF" align="right">添加聚会 </td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border:1px solid #88ccff; border-collapse: collapse" width="760">
<tr>
<td width="200" bgcolor="#88ccff" valign="top" align="center"><!--#include file="add_left.asp" --></td>
<td width="560" valign="top">
<!--表单开始-->
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="560">
<form method="POST" action="add_party.asp" name="add_party">
<tr>
<td width="80" align="right" height="35" bgcolor="#EBF4FA">所在城市：</td>
<td width="480" bgcolor="#EBF4FA">
<select name="city">
<option value='0'>请选择城市</option>
<%set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from city where 审核=-1 order by 省份,人气 desc",conn,1,1
while not rs1.eof
response.write"<option value='" &rs1("区号")& "'>" &rs1("城市")& " （" & rs1("区号") & " | " & rs1("省份") &"）</option>"
rs1.movenext
wend
rs1.close
set rs1=nothing%>
</select>
</td>
</tr>
<tr>
<td width="80" align="right" height="35">聚会名称：</td>
<td width="480">
<input type="text" name="name" size="34" maxlength="16"> 如：圣诞平安夜（14汉字内）</td>
</tr>
<tr>
<td width="80" align="right" height="35" bgcolor="#EBF4FA">发 起 人：</td>
<td width="480" bgcolor="#EBF4FA">
<input type="text" name="faqiren" size="34" maxlength="16"> 如：小宝，TOM（5汉字内）</td>
</tr>
<tr>
<td width="80" align="right" height="35">联系方式：</td>
<td width="480">
<input type="text" name="lianxi" size="34" maxlength="16"> 如：手机、电话、QQ等（100字符内）</td>
</tr>
<tr>
<td width="80" align="right" height="35" bgcolor="#EBF4FA">聚会主题：</td>
<td width="480" bgcolor="#EBF4FA"><textarea rows="5" name="zhuti" cols="45" style="float: left"></textarea>如：结交朋友<br>（200汉字内）</td>
</tr>
<tr>
<td width="80" align="right" height="35">聚会地点：</td>
<td width="480">
<textarea rows="5" name="didian" cols="45" style="float: left"></textarea>如：前门肯德基内<br>
（200汉字内）</td>
</tr>
<tr>
<td width="80" align="right" height="35" bgcolor="#EBF4FA">聚会时间：</td>
<td width="480" bgcolor="#EBF4FA">
<input type="text" name="shijian" size="44"> 如：2004年12月25日</td>
</tr>
<tr>
<td width="80" align="right" height="35">所需费用：</td>
<td width="480">
<input type="text" name="feiyong" size="44"> 如：AA值，约每人50元</td>
</tr>
<tr>
<td width="80" align="right" height="35" bgcolor="#EBF4FA">设
想：</td>
<td width="480" bgcolor="#EBF4FA">
<textarea rows="5" name="shexiang" cols="45" style="float: left"></textarea>如：打牌等<br>
（200汉字内）</td>
</tr>
<tr>
<td width="80" align="right" height="35" bgcolor="#FFFFFF"> </td>
<td width="480" bgcolor="#FFFFFF">
<input type="button" value=" 提 交 " name="add" onclick="checkaddparty()">
<input type="reset" value=" 重 置 " name="B2"></td>
</tr></form>
</table>
<!--表单结束-->
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760" height="40">
<tr>
<td bgcolor="#88CCFF"> </td>
</tr>
</table>
<!--#include file="copyright.asp" -->
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -