📄 partybook_add.asp
字号:
<!--#include file="config.asp" -->
<%
dim id
id=trim(request("id"))
if len(id)=0 then
response.write "<a href='javascript:history.back(1)'>请选择编号！</a>"
response.end
end if
name=trim(request.form("name"))
about=trim(request.form("about"))
if trim(request.form("canjia"))="yes" then
canjia=-1
else
canjia=0
end if
if trim(request.form("lianxi1"))="未留联系方式" then
lianxi=trim(request.form("lianxi1"))
else
lianxi=trim(request.form("lianxi1")) & "：" &trim(request.form("lianxi"))
end if
set rs=server.CreateObject("adodb.recordset")
if len(id)>0 and len(name)>0 and len(about)>0 then
rs.open "select * from partybook",conn,3,3
rs.addnew
rs("聚会编号")=id
rs("参加者姓名")=name
rs("参加者联系方式")=lianxi
rs("发表内容")=about
rs("是否参加聚会")=canjia
rs("发表时间")=now()
rs.update
rs.close
rs.open "select * from party where 编号="& id,conn,3,3
if rs.eof or rs.bof then response.redirect "ok.asp?ok=error" end if
rs("评分")=rs("评分")+1
rs.update
rs.close
set rs=nothing
response.write "添加成功！<a href='party.asp?id="&id&"'>点击这里返回</a>"
response.end
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">
<!--#include file="check.asp" -->
<script language="VBScript">
<!--
''=======================================================''
''函数作用：检测添加评论时的信息是否符合要求
''=======================================================''
function partybookadd()
if len(partybook_add.name.value)=0 or getstrlen(partybook_add.name.value)>10 then
msgbox"请输入您的姓名！10字符以内（每个汉字占2位）"
partybook_add.name.focus
elseif partybook_add.canjia.value="选择是否参加聚会" then
msgbox"请选择是否参加聚会？"
partybook_add.canjia.focus
elseif len(partybook_add.about.value)=0 or getstrlen(partybook_add.about.value)>240 then
msgbox"请输入内容！240字符以内（每个汉字占2位）"
partybook_add.about.focus
elseif len(partybook_add.lianxi.value)>0 and partybook_add.lianxi1.value="未留联系方式" then
msgbox"请选择联系方式！"
partybook_add.lianxi1.focus
elseif len(partybook_add.lianxi.value)=0 and partybook_add.lianxi1.value<>"未留联系方式" then
msgbox"请填写联系方式！"
partybook_add.lianxi.focus
else
partybook_add.submit
end if
end function
-->
</script>
</head>
<body leftmargin="0" topmargin="2" oncontextmenu="self.event.returnValue=false">
<div align="<%=sitealign%>">
<form method="POST" action="partybook_add.asp" name="partybook_add">
<TABLE cellSpacing=0 cellPadding=0 width=450 bgColor=#ffffff border=0 style="border-collapse: collapse">
<TR>
<TD width=6 height=9 background=images/paycenter_11.gif ></TD>
<TD width=432 background=images/paycenter_12.gif></TD>
<TD width=12 background=images/paycenter_13.gif></TD>
</TR>
<TR>
<TD background=images/paycenter_22.gif></TD>
<TD vAlign=top align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="420">
<tr>
<td align="center" style="font-size: 10pt; color: #0066CC; font-weight: bold" colspan="2" width="420">
城市留言</td>
</tr>
<tr>
<td width="420" height="28" colspan="2">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from party where 编号=" & id,conn,1,1
response.write ("感谢您对“<font style='color:red; font-weight: bold'>" &rs("名称")& "</font>”的聚会发表评论")
response.write ("<input type='hidden' name='id' size='29' value='"&id&"'>")
rs.close
set rs=nothing%></td>
</tr>
<tr>
<td width="90" height="28">您的大名：</td>
<td width="330">
<input type="text" name="name" size="27"> <font color="#FF3300">* </font>
（如：小宝，Tom）</td>
</tr>
<tr>
<td width="90" height="28">是否参加：</td>
<td width="330">
<select size="1" name="canjia">
<option value="选择是否参加聚会">选择是否参加聚会</option>
<option value="yes">我要参加聚会</option>
<option value="no">只想问问情况</option>
</select></td>
</tr>
<tr>
<td width="90" height="28">联系方式：</td>
<td width="330"><select size="1" name="lianxi1">
<option value="未留联系方式">未留联系方式</option>
<option value="手机">手机</option>
<option value="电话">电话</option>
<option value="Email">Email</option>
<option value="qq">ＱＱ</option>
<option value="msn">ＭＳＮ</option>
</select> <input type="text" name="lianxi" size="25"></td>
</tr>
<tr>
<td width="90" height="28">发表内容：</td>
<td width="330"><textarea rows="7" name="about" cols="39"></textarea>
<font color="#FF3300">*</font></td>
</tr>
<tr>
<td width="90" height="28"> </td>
<td width="330"><input type="button" value=" 提 交 " name="add" onclick="partybookadd()"> <input type="reset" value=" 重 置 " name="B2"> <a href='party.asp?id=<%=id%>'>点击这里返回</a></td>
</tr>
</table>
</TD>
<TD background=images/paycenter_23.gif></TD></TR>
<TR>
<TD width=6 height=12 background=images/paycenter_31.gif></TD>
<TD background=images/paycenter_32.gif></TD>
<TD width=12 background=images/paycenter_33.gif></TD>
</TR>
</TABLE>
</form>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -