<%@language=vbscript codepage=936 %> <% dim ArticleID,rsArticle,FoundErr,ErrMsg ArticleID=trim(request("ArticleID")) FoundErr=False if ArticleID="" then response.Redirect("guanggaoManage.asp") end if sql="select * from guanggao where ArticleID=" & ArticleID & "" Set rsArticle= Server.CreateObject("ADODB.Recordset") rsArticle.open sql,conn,1,1 if FoundErr=True then call WriteErrMsg() else %> <% dim rs dim sql dim count set rs=server.createobject("adodb.recordset") sql = "select * from SmallClass order by SmallClassID asc" rs.open sql,conn,1,1 %>

修 改 " size="9" maxlength="9"> " size="25" maxlength="80"> " size="25" maxlength="80">
类 型：	<% if session("purview")=3 or session("purview")=4 then response.write rsArticle("BigClassName") & ">>" else sql = "select * from BigClassguang" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "请先添加栏目。" else %> <% do while not rs.eof %> value="<%=trim(rs("BigClassID"))%>"><%=trim(rs("BigClassName"))%> <% rs.movenext loop end if rs.close %> <% end if %>	0 then response.Write(" checked") end if%>>排序：">
标 题：	" size="50"> " size="25" maxlength="80">
描 述：	" size="50">
显示内容：	上传文件支持"gif|jpg|png"格式 " size="50">
连接地址：	" size="50"> (连接地址，只对图片广告有效！)
录入时间：	当前时间为：<%=now()%> 注意不要改变格式。 ">
> ">

<% end if rsArticle.close set rsArticle=nothing call CloseConn() %>