<%@language=vbscript codepage=936 %> <% dim ArticleID,rsArticle,FoundErr,ErrMsg ArticleID=trim(request("ArticleID")) FoundErr=False if ArticleID="" then response.Redirect("ggManage.asp") end if sql="select * from gg 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 BigClassgg" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "请先添加栏目。" else %> <%end if%> 推荐： > 排序：">
名 称： " size="40"> *
简 介：
上传资料： " size="40">
录入时间： 当前时间为：<%=now()%> 注意不要改变格式。
   
> ">
<% end if rsArticle.close set rsArticle=nothing call CloseConn() %>