📄 edit_party.asp
字号:
<!--#include file="config.asp" -->
<!--#include file="check.asp" -->
<%
id=trim(request("id"))
if id="" then
response.write "<a href='javascript:history.back(1)'>请选择编号！</a>"
response.end
end if
%>
<%
errwrite="错误！请确定您的权限！请您<a href='javascript:history.back(1)'>>>返回<<</a><br>或尝试<a href='edit_login.asp?id="&id&"'>重新登陆</a>！"
if len(session("quhao"))=0 or len(session("guanli"))=0 then
response.redirect ("edit_login.asp?id=" & id)
'response.write errwrite
response.end
end if
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from party where 编号="&id,conn,1,1
if not rs.eof then
if session("quhao")<>rs("城市") then
response.write errwrite
response.end
end if
end if
set rscity=server.CreateObject("adodb.recordset")
rscity.open"select * from city where 区号='"& rs("城市")&"'",conn,1,1
if not rscity.eof then
str=rscity("管理")
checkgl=false
if str="" then errwrite
str=split(Cstr(str),"|")
for i=0 to Ubound(str)
if session("guanli")=Lcase(str(i)) then
checkgl=true
exit for
else
checkgl=false
end if
next
if checkgl=false then
response.write errwrite
response.end
end if
end if
rscity.close
rs.close
set rscity=nothing
set rs=nothing
%>
<%
name=trim(request.form("name"))
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"))
ctype=request.form("ctype")
if ctype="ok" then
ctype="-1"
else
ctype="0"
end if
set rs=server.CreateObject("adodb.recordset")
if name<>"" and faqiren<>"" and zhuti<>"" then
rs.open"select * from party where 编号="&id,conn,3,3
rs("名称")=name
rs("发起人")=faqiren
rs("联系方式")=lianxi
rs("主题")=zhuti
rs("地点")=didian
rs("时间")=shijian
rs("费用")=feiyong
rs("设想")=shexiang
rs("审核")=ctype
rs("登记时间")=now()
rs.update
rs.close
set rs=nothing
response.write "<font color=red>修改成功！</font>"
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理 - 资讯信息修改</title>
<link href="admin.css" rel="stylesheet" type="text/css">
<script language="VBScript">
<!--
''=======================================================''
''函数作用：检测添加聚会时的信息是否符合要求
''=======================================================''
function checkadminparty()
if len(admin_party.name.value)=0 or len(admin_party.name.value)>14 then
msgbox"请输入资讯名称！（14汉字内）"
admin_party.name.focus
elseif Len(admin_party.faqiren.value)=0 or len(admin_party.faqiren.value)>5 then
msgbox"请输入发起人姓名！（5汉字内）"
admin_party.faqiren.focus
elseif Len(admin_party.lianxi.value)=0 or Len(admin_party.lianxi.value)>100 then
msgbox"请输入联系方式！（100个汉字内）"
admin_party.lianxi.focus
elseif Len(admin_party.zhuti.value)=0 or Len(admin_party.zhuti.value)>200 then
msgbox"请输入聚会主题！（200个汉字内）"
admin_party.zhuti.focus
elseif Len(admin_party.didian.value)=0 or Len(admin_party.didian.value)>200 then
msgbox"请输入聚会地点！（200个汉字内）"
admin_party.didian.focus
elseif Len(admin_party.shijian.value)=0 or Len(admin_party.shijian.value)>100 then
msgbox"请输入聚会时间！（200个汉字内）"
admin_party.shijian.focus
elseif Len(admin_party.feiyong.value)=0 or Len(admin_party.feiyong.value)>100 then
msgbox"请输入聚会费用！（100个汉字内）"
admin_party.feiyong.focus
elseif Len(admin_party.shexiang.value)=0 or Len(admin_party.shexiang.value)>100 then
msgbox"请输入聚会设想！（200个汉字内）"
admin_party.shexiang.focus
else
admin_party.submit
end if
end function
-->
</script>
</head>
<body leftmargin="5" topmargin="5">
<div align="<%=sitealign%>">
<%set rs=server.CreateObject("adodb.recordset")
rs.open"select * from party where 编号="&id,conn,1,1
if not rs.eof then
%>
<!--表单开始-->
<table border="0" cellpadding="0" cellspacing="0" style="border:1px solid #6699FF; border-collapse: collapse" width="500">
<form method="POST" action="edit_party.asp?id=<%=id%>" name="admin_party">
<tr>
<td width="50" align="right" height="35" bgcolor="#EBF4FA">城市：</td>
<td width="450" bgcolor="#EBF4FA">
<%set rscity=server.CreateObject("adodb.recordset")
rscity.open "select * from city where 区号='" &rs("城市")&"'",conn,1,1
response.write rscity("城市") & "市 （" & rscity("区号") & " | " & rscity("省份") &"）"
rscity.close
set rscity=nothing%></td>
</tr>
<tr>
<td align="right" height="35">评分：</td>
<td>
暂无</td>
</tr>
<tr>
<td align="right" height="35" bgcolor="#EBF4FA">名称：</td>
<td bgcolor="#EBF4FA">
<input type="text" name="name" size="32" value="<%=rs("名称")%>">
如：圣诞平安夜（14汉字内）</td>
</tr>
<tr>
<td align="right" height="35">发起人：</td>
<td>
<input type="text" name="faqiren" size="32" maxlength="16" value="<%=rs("发起人")%>"> 如：小宝，TOM（5汉字内）</td>
</tr>
<tr>
<td align="right" height="35">联系：</td>
<td>
<input type="text" name="lianxi" size="32" value="<%=rs("联系方式")%>"> 如：手机等（100字符内）</td>
</tr>
<tr>
<td align="right" height="35">主题：</td>
<td><textarea rows="4" name="zhuti" cols="41"><%=rs("主题")%></textarea>（200汉字内）</td>
</tr>
<tr>
<td align="right" height="35" bgcolor="#EBF4FA">地点：</td>
<td bgcolor="#EBF4FA">
<textarea rows="3" name="didian" cols="41"><%=rs("地点")%></textarea>（200汉字内）</td>
</tr>
<tr>
<td align="right" height="35">设想：</td>
<td><textarea rows="3" name="shexiang" cols="41"><%=rs("设想")%></textarea>（200汉字内）</td>
</tr>
<tr>
<td align="right" height="35" bgcolor="#EBF4FA">时间：</td>
<td bgcolor="#EBF4FA">
<input type="text" name="shijian" size="42" value="<%=rs("时间")%>"></td>
</tr>
<tr>
<td align="right" height="35">费用：</td>
<td>
<input type="text" name="feiyong" size="42" value="<%=rs("费用")%>"></td>
</tr>
<tr>
<td align="right" height="35" bgcolor="#EBF4FA">更新：</td>
<td bgcolor="#EBF4FA">
<input type="text" name="cdate" size="27" value="<%=rs("登记时间")%>">
审核：<input type="checkbox" name="ctype" value="ok" <%if rs("审核")=-1 then%>checked<%end if%>></td>
</tr>
<tr>
<td align="right" height="35" bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF">
<input type="button" value=" 提 交 " name="admin" onclick="checkadminparty()">
<input type="reset" value=" 重 置 " name="B2"></td>
</tr></form>
</table>
<!--表单结束-->
<%
end if
rs.close
set rs=nothing
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="500">
<tr>
<td align="right" width="490" height="40">管理选项：<a href="party.asp?id=<%=id%>">聚会查看</a> |
<a href="edit_party.asp?id=<%=id%>">聚会管理</a> |
<a href="edit_partybook.asp?id=<%=id%>">聚会评论管理</a> |
<a href="edit_login.asp">管理登陆</a> |
<a href="edit_logout.asp">退出登录</a></td>
<td width="10"> </td>
</tr>
</table>
</div>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -