<%@language=vbscript codepage=936 %> <% dim ArticleID,rsArticle,FoundErr,ErrMsg ArticleID=trim(request("ArticleID")) FoundErr=False if ArticleID="" then response.Redirect("vodManage.asp") end if sql="select * from vod 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 BigClass3" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "请先添加栏目。" else %> <%end if %> 推荐： > 　　排序：">
招聘职位： " size="40"> *
人数： " size="10">
工作地点： " size="40">
岗位描述：  
职位要求： *
图 片： " size="25" maxlength="120">
录入时间： 当前时间为：<%=now()%> 注意不要改变格式。 ">

> ">

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