?? admin_partyedit.asp
字號:
<!--#include file="config.asp" -->
<!--#include file="admin_check.asp" -->
<!--#include file="check.asp" -->
<%
call manager(session("grade"),session("adminname"),2)
id=request("id")
if id="" then
response.write "<a href='javascript:history.back(1)'>請選擇編號！</a>"
response.end
end if
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"))
ctype=request.form("ctype")
if ctype="ok" then
ctype="-1"
else
ctype="0"
end if
set rs=server.CreateObject("adodb.recordset")
if city<>"" and name<>"" and faqiren<>"" and zhuti<>"" then
rs.open"select * from party where 編號="&id,conn,3,3
rs("名稱")=name
rs("城市")=city
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 admin_party.city.value="0" then
msgbox"請選擇所在城市！"
admin_party.city.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>
<table width="760" border="0" align="center" cellpadding="1" cellspacing="0">
<tr>
<td width="160" valign="top">
<!--#include file="admin_left.asp" -->
</td>
<td width="600" align="center" valign="top">
<%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-collapse: collapse" width="560">
<form method="POST" action="admin_partyedit.asp?id=<%=id%>" name="admin_party">
<tr>
<td width="80" align="right" height="35" bgcolor="#EBF4FA">所在城市：</td>
<td width="480" bgcolor="#EBF4FA">
<select size="1" name="city">
<option selected value="0">---請選擇城市---</option>
<%set rscity=server.CreateObject("adodb.recordset")
rscity.open "select * from city where 審核=-1 order by 省份,人氣 desc",conn,1,1
while not rscity.eof
if rscity("區號")=rs("城市") then
response.write"<option value='" &rscity("區號")& "' selected>" &rscity("城市") & " （" & rscity("區號") & " | " & rscity("省份") &"）</option>"
else
response.write"<option value='" &rscity("區號")& "'>" &rscity("城市")& " （" & rscity("區號") & " | " & rscity("省份") &"）</option>"
end if
rscity.movenext
wend
rscity.close
set rscity=nothing%>
</select> <a target="_blank" href="cityparty.asp?ct=<%=rs("城市")%>">查看該城市所有聚會</a> <a target="_blank" href="party.asp?id=<%=rs("編號")%>"><%=rs("名稱")%></a>
</td>
</tr>
<tr>
<td width="80" align="right" height="35">評分：</td>
<td width="480">
暫無</td>
</tr>
<tr>
<td width="80" align="right" height="35" bgcolor="#EBF4FA">名 稱 ：</td>
<td width="480" bgcolor="#EBF4FA">
<input type="text" name="name" size="41" value="<%=rs("名稱")%>">
如：圣誕平安夜（14漢字內）</td>
</tr>
<tr>
<td width="80" align="right" height="35">發 起 人：</td>
<td width="480">
<input type="text" name="faqiren" size="41" maxlength="16" value="<%=rs("發起人")%>"> 如：小寶，TOM（5漢字內）</td>
</tr>
<tr>
<td width="80" align="right" height="35">聯系方式：</td>
<td width="480">
<input type="text" name="lianxi" size="41" value="<%=rs("聯系方式")%>"> 如：手機等（100字符內）</td>
</tr>
<tr>
<td width="80" align="right" height="35">主 題 ：</td>
<td width="480"><textarea rows="4" name="zhuti" cols="45"><%=rs("主題")%></textarea>（200漢字內）</td>
</tr>
<tr>
<td width="80" align="right" height="35" bgcolor="#EBF4FA">地 點 ：</td>
<td width="480" bgcolor="#EBF4FA">
<textarea rows="2" name="didian" cols="45"><%=rs("地點")%></textarea>（200漢字內）</td>
</tr>
<tr>
<td width="80" align="right" height="35">設 想 ：</td>
<td width="480"><textarea rows="2" name="shexiang" cols="45"><%=rs("設想")%></textarea>（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="42" value="<%=rs("時間")%>"></td>
</tr>
<tr>
<td width="80" align="right" height="35">費 用 ：</td>
<td width="480">
<input type="text" name="feiyong" size="42" value="<%=rs("費用")%>"></td>
</tr>
<tr>
<td width="80" align="right" height="35" bgcolor="#EBF4FA">更新日期：</td>
<td width="480" 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 width="80" align="right" height="35" bgcolor="#FFFFFF"> </td>
<td width="480" 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
%>
</td>
</tr>
</table></body></html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -