求助在后台的增加了审批人但在前台没有显示出来
前台新闻模板（原来只是可以添加作者（供稿人），现在想再给它增加审批人，但没能做出来求助那位好心人能帮帮忙，小弟在此多谢了）<body style="margin:0px;"background="images/bgg.gif">
<table width="77%" border="0" align="center">
</table>
<div align="center">
<table width="780" border="0" cellpadding="0" cellspacing="0" bgcolor="#F3F3F3">
<tr>
<td height="40" align="center" valign="top">
<div align="center">
<table border="0" cellpadding="10" cellspacing="0" width="100%" id="table4">
<tr>
<td align=center><hr color="#000000" size="1">
</td>
</tr>
<tr>
<td style="font-size:10.5pt">$$内容$$</td>
</tr>
<tr>
<td height="78">$$上下条$$<BR>
<BR>
$$相关$$</td>
</tr>
<tr>
<td>
<hr color="#000000" size="1">
<p align="center"><font color=000000> 供稿：</font><font color=#FF0000>$$来源$$</font> |<font color=000000>审批人：</font><font color=#FF0000>$$来源$$</font> |<font color=#FF0000> </font>
制作:<font color=#FF0000>网管中心 </font>|<font color=#FF0000> </font>
<font color=000000>加入时间：</font><font color=#FF0000>$$时间$$</font><font color=000000> </font>|<font color=000000> 点击：</font><font color=#FF0000>$$访问量$$</font></td>
</tr>
</table>
</div></td>
</tr>
</table>
</div>
<meta http-equiv="Content-Language" content="zh-cn">
<div align=center>
<td colspan="2" bgcolor="#707070" align="center">
<table border="0" width="781" id="table22" cellpadding="2" height="74" bgcolor="#000000">
<tr>
<td height="23"> </td>
</tr>
<tr>
<td height="23"> </td>
</tr>
</table>
</td>
</div>
后台新闻增加模板
<!--#include file = admin_chk.asp -->
<!--#include file = admin_conn.asp -->
<html>
<head>
<!--#include file = language.asp -->
<base target="_self">
<STYLE type="text/css">
<!--
a:link {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited {text-decoration: none; color: #000000 }
A:hover {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline}
body {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;table-layout:fixed;word-break:break-all}
p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select {FONT-SIZE: 9PT;}
option {FONT-SIZE: 9pt;}
textarea {FONT-SIZE: 9pt;}
-->
</STYLE>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" bgcolor="#EFEFDE">
<%
'ON ERROR RESUME NEXT
titlecolor=trim(request("titlecolor"))
tgid=trim(request("tgid"))
ztid=0
eaddtime=now()
ehit=0
zz=session("admin__user")
ehtml=Request.Cookies("html")
lmid=trim(request("lmid"))
if request("id")<>"" then
id=request("id")
sql = "select * from news where id="&id
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
title=rs("title")
htitle=rs("htitle")
tj=trim(rs("tj"))
ztid=rs("ztid")
lmid=rs("lm3")
if lmid="0" then lmid=rs("lm2")
if lmid="0" then lmid=rs("lm")
lm2id=rs("lm2")
ehtml=rs("html")
pic=trim(rs("pic"))
content=rs("content")
url=rs("url")
titlecolor=rs("titlecolor")
xgnews=rs("xgnews")
ontop=rs("ontop")
zz=rs("zz")
eaddtime=rs("time")
eHit=rs("hit")
rs.close
set rs=nothing
else
lmid=trim(request("lmid"))
html=trim(request("html"))
end if
if tgid<>"" then
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [usertougao] where id="&tgid,conn,1,1
title=rs("title")
content=rs("content")
zz=rs("adduser")
lmid=rs("lmid")
eaddtime=rs("addtime")
end if
if lmid="" then lmid=0
if (not isNumeric(ztid)) then
ztid=0
end if
if (not isNumeric(eHit)) then
ehit=0
end if
%>
<div align="center">
<table border="0" width="760" id="table1" cellspacing="0" cellpadding="0" >
<tr>
<td>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%" id="table3">
<tr>
<td>
</td>
<td> </td>
<td >
<p align="right">
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td align=center>
<form method="POST" action="admin_news_add_save.asp?id=<%=id%>&tgid=<%=tgid%>" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
<table border="0" width="753" id="table2" cellpadding="5" style="border-collapse: collapse" bordercolor="#80ABF4">
<tr>
<td width="11%" align="center">新闻信息标题</td>
<td width="41%">
<!--webbot bot="Validation" s-display-name="新闻信息标题" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="100" --><input type="text" name="title" size="48" maxlength="100" value='<%=title%>'></td>
<td width="45%">
<select size="1" name="titlecolor">
<option value=" ">默认颜色</option>
<OPTION <%if titlecolor="#000000" then response.write "selected"%> value="#000000" style="background-color:#000000"></OPTION>
<OPTION <%if titlecolor="#FFFFFF" then response.write "selected"%> value="#FFFFFF" style="background-color:#FFFFFF"></OPTION>
<OPTION <%if titlecolor="#008000" then response.write "selected"%> value="#008000" style="background-color:#008000"></OPTION>
<OPTION <%if titlecolor="#800000" then response.write "selected"%> value="#800000" style="background-color:#800000"></OPTION>
<OPTION <%if titlecolor="#808000" then response.write "selected"%> value="#808000" style="background-color:#808000"></OPTION>
<OPTION <%if titlecolor="#000080" then response.write "selected"%> value="#000080" style="background-color:#000080"></OPTION>
<OPTION <%if titlecolor="#800080" then response.write "selected"%> value="#800080" style="background-color:#800080"></OPTION>
<OPTION <%if titlecolor="#808080" then response.write "selected"%> value="#808080" style="background-color:#808080"></OPTION>
<OPTION <%if titlecolor="#FFFF00" then response.write "selected"%> value="#FFFF00" style="background-color:#FFFF00"></OPTION>
<OPTION <%if titlecolor="#00FF00" then response.write "selected"%> value="#00FF00" style="background-color:#00FF00"></OPTION>
<OPTION <%if titlecolor="#00FFFF" then response.write "selected"%> value="#00FFFF" style="background-color:#00FFFF"></OPTION>
<OPTION <%if titlecolor="#FF00FF" then response.write "selected"%> value="#FF00FF" style="background-color:#FF00FF"></OPTION>
<OPTION <%if titlecolor="#FF0000" then response.write "selected"%> value="#FF0000" style="background-color:#FF0000"></OPTION>
<OPTION <%if titlecolor="#0000FF" then response.write "selected"%> value="#0000FF" style="background-color:#0000FF"></OPTION>
<OPTION <%if titlecolor="#008080" then response.write "selected"%> value="#008080" style="background-color:#008080"></OPTION>
</select>
</td>
</tr>
<tr>
<td width="11%" align="center">副标题</td>
<td width="41%"> <input type="text" name="htitle" size="48" maxlength="100" value='<%=htitle%>'></td>
<td width="45%">来源：<!--webbot bot="Validation" s-display-name="来源作者" b-value-required="TRUE" i-maximum-length="40" --><input type="text" name="zz" size="14" maxlength="40" value="<%=zz%>"><textarea name="content" style="display:none" cols="1" rows="1"><%if content<>"" then response.write content%></textarea>审批人：<!--webbot bot="Validation" s-display-name="来源审批人" b-value-required="TRUE" i-maximum-length="40" --><input type="text" name="SPR" size="14" maxlength="40" value="<%=SPR%>"><textarea name="content0" style="display:none" cols="1" rows="1"><%if content<>"" then response.write content%></textarea></td>
</tr>
<tr>
<td width="11%" align="center">栏目选择</td>
<td width="41%"> <%
if Request.Cookies("admindj")="1" then
%>
<!--webbot bot="Validation" s-display-name="栏目分类" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="lm">
<option>请选择</option>
<%
sql = "select * from lm where lm<>'' order by id asc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
while not rs.eof
%>
<option value='<%=rs("id")%>|0|0' <% if clng(lmid)=clng(rs("id")) then response.write " selected" %>><%=rs("lm")%>(1级)</option>
<% sql2 = "select * from lm where lmid='"&rs("id")&"' order by id asc"
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
while not rs2.eof
%>
<option value='<%=rs("id")%>|<%=rs2("id")%>|0' <% if clng(lmid)=clng(rs2("id")) then response.write " selected" %>> ├<%=rs2("lm2")%>(2级)</option>
<%
Set rs33 = Server.CreateObject("ADODB.RecordSet")
rs33.Open "select * from [lm] where lm3<>'' and lmid='"&rs2("id")&"' order by id asc",conn,1,1
while not rs33.eof
%>
<option value='<%=rs2("lmid")%>|<%=rs2("id")%>|<%=rs33("id")%>' <% if clng(lmid)=clng(rs33("id")) then response.write " selected" %>> ├<%=rs33("lm3")%>(3级)</option>
<%
rs33.movenext
wend
rs2.movenext
wend
rs.movenext
wend
rs.close
set rs=nothing
%>
</select>
<%else%> <!--webbot bot="Validation" s-display-name="栏目分类" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="lm">
<option>请选择</option>
<%
admin_sql = "select * from admin where [user]='"&adminuser&"' order by id desc"
Set admin_rs = Server.CreateObject("ADODB.RecordSet")
admin_rs.Open admin_sql,conn,1,1
admin_lmid=admin_rs("lmid")
for kkk=1 to 31
admin_lmid=replace(admin_lmid,chr(i),"")
next
'Response.Write admin_lmid
array_admin_lmid=split(admin_lmid,",")
For i=0 to ubound(array_admin_lmid)
aaa=array_admin_lmid(i) '取出编辑者拥有的权限ID号.
if aaa="" then aaa=0
lm_1_sql = "select * from lm where id="&aaa
Set lm_1_rs = Server.CreateObject("ADODB.RecordSet")
lm_1_rs.Open lm_1_sql,conn,1,1
while not lm_1_rs.eof
if lm_1_rs("lm")<>"" then
%>
<option value='<%=lm_1_rs("id")%>|0|0' <% if clng(lmid)=clng(lm_1_rs("id")) then response.write " selected" %>><%=lm_1_rs("lm")%>(1级)
</option>
<%
ElseIf lm_1_rs("lm2")<>"" then
%>
<option value='<%=lm_1_rs("lmid")%>|<%=lm_1_rs("id")%>|0' <% if clng(lmid)=clng(lm_1_rs("id")) then response.write " selected" %>> ├ <%=lm_1_rs("lm2")%>(2级)</option>
<%
Elseif lm_1_rs("lm3")<>"" then
get_1_id_sql="select lmid from [lm] where id="&clng(lm_1_rs("lmid"))
set get_1_id_rs = Server.CreateObject("ADODB.RecordSet")
get_1_id_rs.Open get_1_id_sql,conn,1,1
lmid31=get_1_id_rs("lmid")
get_1_id_rs.close
set get_1_id_rs=nothing
%>
<option value='<%=lmid31%>|<%=lm_1_rs("lmid")%>|<%=lm_1_rs("id")%>' <% if clng(lmid)=clng(lm_1_rs("id")) then response.write " selected" %>> ├ <%=lm_1_rs("lm3")%>(3级)</option>
<%
end if '结尾配对lm_1_rs("lm")<>""
lm_1_rs.movenext
wend
lm_1_rs.close
set lm_1_rs=nothing
next
admin_rs.close
set admin_rs=nothing
%>
</select>
<%end if%></td>
<td width="45%">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%" id="table4">
<tr>
<td width="31">专题</td>
<td ><select size="1" name="ztid">
<option value="0">请选择:::</option>
<%
set rszt = Server.CreateObject("ADODB.RecordSet")
rszt.Open "select id,title from [NewsZT] order by id asc",conn,1,1
while not rszt.eof
%>
<option value="<%=rszt("id")%>" <% if clng(ztid)=clng(rszt("id")) then Response.Write " selected "%>><%=rszt("title")%></option>
<%
rszt.movenext
wend
rszt.close:set rszt=nothing
%>
</select></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td colspan="3">
<IFRAME ID="eWebEditor1" SRC="edit/ewebeditor.asp?id=content&style=news" FRAMEBORDER="0" SCROLLING="no" WIDTH="100%" HEIGHT="399" marginwidth="1" marginheight="1" name="wfasdg"></IFRAME></td>
</tr>
<tr>
<td width="53%" colspan="2">
<input type="checkbox" <% if pic<>"" then Response.Write " checked "%> name="tuwen" value="1" id=tu><label for=tu>图片新闻</label>
<%
if Request.Cookies("admindj")="1" then
%>
<input type="checkbox" <%if tj="推荐" then response.write " checked "%> name="tj" value="推荐" id=tj><label for=tj>推荐新闻</label> <input type="checkbox" name="ontop" <%if ontop=5 then response.write " checked "%> value="5" id=ontop><label for=ontop>固顶</label>
<input type="checkbox" <%if ehtml="1" then response.write " checked "%> name="html" value="1" id=html><label for=html>生成HTML</label>
<%
end if
%>
</td>
<td width="45%"> </td>
</tr>
<%
if Request.Cookies("admindj")="1" then
%>
<tr>
<td width="11%" align="center">添加时间</td>
<td width="41%">
<!--webbot bot="Validation" s-display-name="日期时间" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="30" --><input type="text" name="addtime" size="20" value="<%=eaddtime%>" maxlength="30"> 格式:<%=now()%></td>
<td width="45%"> </td>
</tr>
<tr>
<td width="11%" align="center">阅读数</td>
<td width="41%"> <!--webbot bot="Validation" s-display-name="阅读数" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="9" --><input type="text" name="hit" size="20" value="<%=ehit%>" maxlength="9"> </td>
<td width="45%"> </td>
</tr>
<%
end if
%>
<tr>
<td width="11%" align="center">跳转URL</td>
<td width="41%"> <input type="text" name="URL" size="47" value='<%=url%>'></td>
<td width="45%">填写网址,自动打开此URL。不显示新闻内容</td>
</tr>
<tr>
<td width="11%">
<p align="center">图片地址</td>
<td width="41%">
<input type="text" name="pic" size="47" value="<%=pic%>"></td>
<td width="45%">此地址将做为图片新闻的缩略图，如果为空，默认是新闻内容中第一幅图片。</td>
</tr>
<tr>
<td width="11%">
<p align="center">相关新闻</td>
<td width="41%">
<input type="text" name="xgnews" size="20" value="<%=xgnews%>">
(填写关键字)</td>
<td width="45%"> </td>
</tr>
</table>
<p align="center"><input type="submit" value=" 保 存 " name="B1"> <input type="reset" value=" 重 置 " name="B2"></p>
</form>
<p> </td>
</tr>
</table>
</div>
</body>
</html>
<%
conn.close
set conn=nothing
%>
