admin_info_mod.asp
来自「CityCN V2.1 是自主开发的基于ASP+Access的新型资讯信息系统。」· ASP 代码 · 共 524 行 · 第 1/2 页
ASP
524 行
rs("推荐指数")=tjzs
rs("排名")=paiming
rs("审核")=pass
rs("推荐")=tui
rs("锁定")=lock
rs("日期")=now()
rs.update
backup=rs("日期")
rs.close
set rs=nothing
errormax="资讯修改成功！"
end if
end if
rs_is.close
set rs_is=nothing
end if
end if
end if
if ok="" then
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
password=rs("管理密码")
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("老板信息")
tjzs=rs("推荐指数")
paiming=rs("排名")
pass=rs("审核")
tui=rs("推荐")
lock=rs("锁定")
backup=rs("日期")
rs.close
set rs=nothing
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>【后台管理】<%=name%> 资讯信息修改 - <%=sitename%></title>
<link href="admin.css" rel="stylesheet" type="text/css">
<SCRIPT language='javascript' src='inc/pop.js'></SCRIPT>
</head>
<body leftmargin="0" topmargin="0">
<div align="center">
<!--#include file="admin_top_info.asp" -->
<br>
<table width="90%" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td height="60" align="center" style="line-height: 16pt">
<b>资讯信息管理 【<a target="_blank" href="infomore.asp?id=<%=id%>" title="前台查看该资讯"><%=name%></a>】 <%if pass=0 then response.write "【<a style='color: #FF0000' title='注意：将该信息彻底从数据库中删除而没有任何提示！' href='admin_info.asp?del=ok&id="&id&"&name="&name&"'>删除</a>】"%></a></b><br>
<a href="admin_city_mod.asp?ct=<%=city%>" title="修改该城市信息">修改<font color="red"><%=city%></font></a>
| <a href="admin_info_pl.asp?order=isinfo&id=<%=id%>&name=<%=name%>" title="管理该资讯评论">管理评论</a>
| <a href="?id=<%=id%>" title="重新读取该资讯信息">刷新</a>
</td>
</tr>
</table>
<table border="0" cellpadding="10" style="border-collapse: collapse" width="90%" height="30">
<tr>
<td align="left" style="color: #FF0000; font-size: 10pt"><%=errormax%></td>
</tr>
</table>
<table border="1" cellpadding="5" style="border-collapse: collapse;" width="90%" bordercolor="#FFFFFF">
<form method="POST" action="admin_info_mod.asp?id=<%=id%>&ok=y" name="mod_info">
<tr>
<td width="200" align="center" height="6" bgcolor="#3399FF"></td>
<td width="*" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">管理密码：</td>
<td bgcolor="#F5F5F5">
<input name="password" size="37" value="<%=password%>">建议6~18位，使用字母和数字，尽量不要使用符号</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">常用管理：</td>
<td bgcolor="#F5F5F5">
<select name="tjzs" style="width: 100">
<option value="0">推荐指数</option>
<option value="0">-------------</option>
<option value="1" <%if tjzs=1 then response.write "selected class='red'"%>>★☆☆☆☆</option>
<option value="2" <%if tjzs=2 then response.write "selected class='red'"%>>★★☆☆☆</option>
<option value="3" <%if tjzs=3 then response.write "selected class='red'"%>>★★★☆☆</option>
<option value="4" <%if tjzs=4 then response.write "selected class='red'"%>>★★★★☆</option>
<option value="5" <%if tjzs=5 then response.write "selected class='red'"%>>★★★★★</option>
</select>
<select name="pass">
<option value="0" <%if pass=0 then response.write "selected class='red'"%>>未通过审核</option>
<option value="1" <%if pass=1 then response.write "selected class='red'"%>>已通过审核</option>
</select>
<select name="tui">
<option value="0" <%if tui=0 then response.write "selected class='red'"%>>暂不推荐</option>
<option value="1" <%if tui=1 then response.write "selected class='red'"%>>推荐资讯</option>
</select>
<select name="lock">
<option value="0" <%if lock=0 then response.write "selected class='red'"%>>正常</option>
<option value="1" <%if lock=1 then response.write "selected class='red'"%>>锁定</option>
</select>
排名<input type="text" name="paiming" value="<%=paiming%>" size="8"><br>
<b>推荐指数</b>推荐级别，<b>排名</b>显示顺序小到大，<b>审核</b>能否显示，<b>推荐</b>推荐显示，<b>锁定</b>城市管理员无法修改<br>
<select name="pl" style="width: 450" onchange="if(this.options[this.selectedIndex].value!=''){window.open(this.options[this.selectedIndex].value,'_self');}">
<%
set rspl=server.CreateObject("adodb.recordset")
rspl.open "select * from 资讯评论 where 资讯编号=" &id&" order by 编号 desc",conn,1,1
response.write "<option value='' class='red'>该资讯共有评论 " & rspl.recordcount & " 条</option>"
Do while not (rspl.eof or rspl.bof)
if rspl("审核")=0 then
response.write "<option class='gray' value='admin_info_pl.asp?order=isinfo&id="&id&"&name="&name&"'>"&rspl("发言内容")& "["&rspl("发言者姓名")&"|"&rspl("发言者联系方式")&"]</option>"
else
response.write "<option value='admin_info_pl.asp?order=isinfo&id="&id&"&name="&name&"'>"&rspl("发言内容")& "["&rspl("发言者姓名")&"|"&rspl("发言者联系方式")&"]</option>"
end if
rspl.movenext
Loop
rspl.close
set rspl=nothing%>
</select>
<br>最后修改：<input type="text" name="backup" value="<%=backup%>" size="54" readonly style="background-color: #cccccc"></td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">资讯名称：</td>
<td bgcolor="#F5F5F5">
<input type="text" name="name" size="55" value="<%=name%>" style="color: #0000FF; font-weight: bold"><br>最多<%=namemax%>字符，当前字符数<%=len(name)%>。</td>
</tr>
<tr>
<td 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 rspov=server.CreateObject("adodb.recordset")
set rscity=server.CreateObject("adodb.recordset")
rspov.open "select * from 省份 where 审核=1 order by 排名 asc",conn,1,1
Do while not rspov.bof and not rspov.eof
response.write "<option value='0' class='blue'>----- " &rspov("省份全称") & " -----</option>"
rscity.open "select * from 城市 where 审核=1 and 省份='"& rspov("省份") &"' order by 排名 asc",conn,1,1
Do while not rscity.bof and not rscity.eof
if rscity("城市")=city then
response.write"<option value='" &rscity("城市")& "' selected class='red'>--> "& rscity("城市") &" （" & rscity("区号") &"）</option>"
else
response.write"<option value='" &rscity("城市")& "'> "& rscity("城市") &" （" & rscity("区号") &"）</option>"
end if
rscity.movenext
loop
rscity.close
rspov.movenext
loop
rspov.close
set rspov=nothing
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
do while not (rsleibie.eof or rsleibie.bof)
if cint(rsleibie("类别编号"))=cint(leibie) then
response.write"<option value='" &rsleibie("类别编号")& "' selected class='blue'>" &rsleibie("类别名")& "</option>"
else
response.write"<option value='" &rsleibie("类别编号")& "'>" &rsleibie("类别名")& "</option>"
end if
rsleibie.movenext
loop
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%>字符，当前字符数<%=len(about)%>。</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%>字符，当前字符数<%=len(address)%>。</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%>字符，当前字符数<%=len(bus)%>。</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%>字符，当前字符数<%=len(pay)%>。</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="38" value="<%=qq%>"><%if qq<>"" then response.write "<font color=blue>QQ："&qq&" <a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin="&qq&"&Site="&sitesname&"&Menu=yes><img border='0' SRC=http://wpa.qq.com/pa?p=1:"&qq&":7 alt='ＱＱ："&qq&"'></a>"%><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%>"><%if pic1<>"" and pic1<>"http://" then response.write "<a target='_blank' href='"&pic1&"'><img border='0' src='"&pic1&"' width='100' height='80' alt='查看原图' align='right'></a>"%><br>图片地址，最多<%=picmax%>字符，包括前缀 http://，建议大小200*150（4:3）</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">图 片 ２：</td>
<td bgcolor="#F5F5F5">
<input type="text" name="pic2" size="63" value="<%=pic2%>"><%if pic2<>"" and pic2<>"http://" then response.write "<a target='_blank' href='"&pic2&"'><img border='0' src='"&pic2&"' width='100' height='80' alt='查看原图' align='right'></a>"%><br>图片地址，最多<%=picmax%>字符，包括前缀 http://，建议大小200*150（4:3）</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">图 片 ３：</td>
<td bgcolor="#F5F5F5">
<input type="text" name="pic3" size="63" value="<%=pic3%>"><%if pic3<>"" and pic3<>"http://" then response.write "<a target='_blank' href='"&pic3&"'><img border='0' src='"&pic3&"' width='100' height='80' alt='查看原图' align='right'></a>"%><br>图片地址，最多<%=picmax%>字符，包括前缀 http://，建议大小200*150（4:3）</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">图 片 ４：</td>
<td bgcolor="#F5F5F5">
<input type="text" name="pic4" size="63" value="<%=pic4%>"><%if pic4<>"" and pic4<>"http://" then response.write "<a target='_blank' href='"&pic4&"'><img border='0' src='"&pic4&"' width='100' height='80' alt='查看原图' align='right'></a>"%><br>图片地址，最多<%=picmax%>字符，包括前缀 http://，建议大小200*150（4:3）</td>
</tr>
<tr>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">其它信息：</td>
<td bgcolor="#F5F5F5"><textarea rows="5" name="other" cols="61"><%=other%></textarea><br>字符数不限，初始最多<%=othermax%>字符，当前字符数<%=len(other)%>。</td>
</tr>
<tr>
<td align="center" height="35" bgcolor="#B3DEE8">老板信息：</td>
<td bgcolor="#F5F5F5"><textarea rows="5" name="boss" cols="61"><%=boss%></textarea><br>填写该资讯的主要负责人的联系方式等，最多<%=bossmax%>字符，当前字符数<%=len(boss)%>。</td>
</tr>
<tr>
<td width="200" align="center" height="6" bgcolor="#3399FF"></td>
<td width="520" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td align="center" height="69" colspan="2">
<input type="submit" value=" 提 交 " name="mod"> <input type="reset" value=" 重 置 " name="B2"></td>
</tr></form>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?