mod_info.asp
来自「CityCN V2.1 是自主开发的基于ASP+Access的新型资讯信息系统。」· ASP 代码 · 共 481 行 · 第 1/2 页
ASP
481 行
rsbeian("业务信息")="信息修改"
rsbeian("原数据")=mod_old
rsbeian("新数据")=mod_new
rsbeian("操作者")="负责人"
rsbeian("时间")=now()
rsbeian("ip")=userip
rsbeian.update
rsbeian.close
set rsbeian=nothing
if sitepass=1 or lock=1 then
response.write "<center style='font-size: 12pt; line-height:20pt'>感谢您修改资讯！审核已经通过，您现在就可以查看您刚才修改的资讯信息！<br>马上返回地方首页 ....<br><a href=index.asp>>>点击这里返回首页<<</a></center><meta http-equiv=refresh content=5;URL='info.asp?ct="&city&"'>"
response.end
else
response.write "<center style='font-size: 12pt; line-height:20pt'>感谢您修改资讯！等待管理员审核，请稍后查看！<br>马上返回地方首页 ....<br><a href=index.asp>>>点击这里返回首页<<</a></center><meta http-equiv=refresh content5;URL='info.asp?ct="&city&"'>"
response.end
end if
end if
end if
end if
rs_is.close
set rs_is=nothing
end if
end if
end if
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from 资讯 where 编号="&id,conn,1,1
if rs.recordcount<>1 then response.redirect "error.asp?v=infomore_no" end if
if ok="" then
name=rs("名称")
city=rs("城市")
leibie=rs("类别")
about=rs("介绍")
address=rs("地址")
pay=rs("消费")
bus=rs("公交")
site=rs("网站")
tel=rs("电话")
qq=rs("即时通讯")
pic1=rs("图片1")
pic2=rs("图片2")
pic3=rs("图片3")
pic4=rs("图片4")
other=rs("其他")
boss=rs("老板信息")
lock=rs("锁定")
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">
<link href="skin/style_<%=trim(request.cookies("skin_color"))%>.css" rel="stylesheet" type="text/css">
<SCRIPT language='javascript' src='inc/pop.js'></SCRIPT>
</head>
<body leftmargin="0" topmargin="2">
<noscript><iframe src="*.htm"></iframe></noscript>
<div align="<%=sitealign%>">
<!--#include file="title.asp" -->
<!--#include file="mod_menu.asp" -->
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="760" height="90">
<tr>
<td class="add" align="center" width="200">修改资讯</td>
<td class=t1 align="center" width="60"> </td>
<td align="left" width="500"><%=msg_mod_info%></td>
</tr>
</table>
<table border="0" cellpadding="10" cellspacing="0" style="border-collapse: collapse" width="760">
<tr>
<td align="left" style="color: #FF0000; font-size: 10pt"><%=errormax%></td>
</tr>
</table>
<table border="1" cellpadding="5" style="border-collapse: collapse;" width="720" bordercolor="#FFFFFF">
<form method="POST" action="mod_info.asp?id=<%=id%>&ok=y" name="mod_info">
<tr>
<td width="200" align="center" height="6" bgcolor="#3399FF"></td>
<td width="510" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">管理密码：</td>
<td bgcolor="#F5F5F5">
<input type="password" name="password" size="25">
<font color="#FF0000">
<%if lock=1 then
response.write "该资讯修改后无须审核！"
else
response.write "该资讯修改后将进入后台审核！在此期间前台无法显示！"
end if
%></font></td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">资讯名称：</td>
<td bgcolor="#F5F5F5">
<input type="text" name="name" size="55" maxlength="16" value="<%=name%>" style="color: #0000FF; font-weight: bold"><br>最多<%=namemax%>字符</td>
</tr>
<tr>
<td width="200" align="center" height="35" bgcolor="#B3DEE8">所在城市：</td>
<td bgcolor="#F5F5F5">
<select name="city" style="width: 300" size="1">
<option value='0'>请选择城市</option>
<option value='0'>---------------------------------------</option>
<%set rscity=server.CreateObject("adodb.recordset")
rscity.open "select * from 城市 where 审核=1 order by 省份,人气 desc",conn,1,1
while not (rscity.eof or rscity.bof)
if rscity("城市")=city then
response.write"<option value='" &rscity("城市")& "' selected class='red'>" &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><br>单项选择
</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">资讯类别：</td>
<td bgcolor="#F5F5F5">
<select size="1" name="leibie" style="width: 300">
<option value="0">请选择类别</option>
<option value='0'>---------------------------------------</option>
<%set rsleibie=server.CreateObject("adodb.recordset")
rsleibie.open "select * from 资讯类别 order by 排名",conn,1,1
while not (rsleibie.eof or rsleibie.bof)
if cint(rsleibie("类别编号"))=cint(leibie) then
response.write"<option value='" &rsleibie("类别编号")& "' selected class='red'>" &rsleibie("类别名")& "</option>"
else
response.write"<option value='" &rsleibie("类别编号")& "'>" &rsleibie("类别名")& "</option>"
end if
rsleibie.movenext
wend
rsleibie.close
set rsleibie=nothing%>
</select></br>单项选择
</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">资讯介绍：</td>
<td bgcolor="#F5F5F5"><textarea rows="6" name="about" cols="61"><%=about%></textarea><br>最多<%=aboutmax%>字符</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">资讯地址：</td>
<td bgcolor="#F5F5F5"><textarea rows="5" name="address" cols="61"><%=address%></textarea><br>最多<%=addressmax%>字符</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">公交线路：</td>
<td bgcolor="#F5F5F5"><textarea rows="5" name="bus" cols="61"><%=bus%></textarea><br>最多<%=busmax%>字符</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">消费情况：</td>
<td bgcolor="#F5F5F5"><textarea rows="5" name="pay" cols="61"><%=pay%></textarea><br>最多<%=paymax%>字符</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">资讯网站：</td>
<td bgcolor="#F5F5F5">
<input type="text" name="site" size="63" value="<%=site%>"><br>最多<%=sitemax%>字符，请输入完整的网址，包括前缀 http://，例如：<%=siteurl%></td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">联系电话：</td>
<td bgcolor="#F5F5F5">
<input type="text" name="tel" size="63" value="<%=tel%>"><br>最多<%=telmax%>字符</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">腾讯ＱＱ：</td>
<td bgcolor="#F5F5F5">
<input type="text" name="qq" size="63" value="<%=qq%>"><br>只能填写ＱＱ号码，最多<%=qqmax%>字符</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">图 片 １：</td>
<td bgcolor="#F5F5F5">
<input type="text" name="pic1" size="63" value="<%=pic1%>"><br>图片地址，最多<%=picmax%>字符，包括前缀 http://</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">图 片 ２：</td>
<td bgcolor="#F5F5F5">
<input type="text" name="pic2" size="63" value="<%=pic2%>"><br>图片地址，最多<%=picmax%>字符，包括前缀 http://</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">图 片 ３：</td>
<td bgcolor="#F5F5F5">
<input type="text" name="pic3" size="63" value="<%=pic3%>"><br>图片地址，最多<%=picmax%>字符，包括前缀 http://</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">图 片 ４：</td>
<td bgcolor="#F5F5F5">
<input type="text" name="pic4" size="63" value="<%=pic4%>"><br>图片地址，最多<%=picmax%>字符，包括前缀 http://</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">其它信息：</td>
<td bgcolor="#F5F5F5"><textarea rows="5" name="other" cols="61"><%=other%></textarea><br>字符数不限，初始最多<%=othermax%>字符</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">老板信息：</td>
<td bgcolor="#F5F5F5"><textarea rows="5" name="boss" cols="61"><%=boss%></textarea><br>
<font color="#FF0000">仅站长可见（会严格保密），如您未填写，我们保留随时修改删除该信息时不予通知的权利</font><br>
填写该资讯的主要负责人的联系方式等，最多<%=bossmax%>字符</td>
</tr>
<tr>
<td width="200" align="center" height="6" bgcolor="#3399FF"></td>
<td bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td width="720" align="center" colspan="2">
<script type="text/javascript"><!--
google_ad_client = "pub-2105805198420581";
google_alternate_ad_url = "http://www.citycn.net/google_adsense_script.html";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "image";
google_ad_channel ="6158325403";
google_color_border = ["336699","FF4500","578A24"];
google_color_bg = ["FFFFFF","FFEBCD","CCFF99"];
google_color_link = ["0000FF","DE7008","00008B"];
google_color_url = ["008000","E0AD12","00008B"];
google_color_text = ["000000","8B4513","000000"];
//--></script>
<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
</td>
</tr>
<tr>
<td width="720" align="center" height="30" colspan="2">
<input type="submit" value=" 提 交 " name="mod"> <input type="reset" value=" 重 置 " name="B2"></td>
</tr></form>
</table>
<!--#include file="copyright.asp" -->
<br><br>
</div>
</body>
</html>
<%
rs.close
set rs=nothing
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?