<% tmpid=GetVariable("id") if tmpid="" then title="" author=Session("RealName") original="" content="" classid=GetQueryString("class") else '取指定ID的新闻出来编辑 strSQL="select * from gong where ID=" & tmpid set rs=server.CreateObject ("ADODB.Recordset") rs.open strSQL,conn,1,1 tmpid=trim(rs("ID")) title=Server.HTMLEncode(trim(rs("nTitle"))) author=trim(rs("nAuthor")) original=trim(rs("nOriginal")) content=Server.HTMLEncode(trim(rs("nHtmlText"))) classid=trim(rs("nClass")) mnid=tmpid rs.close end if HtmlEditContent = content EditorHeight = "90%" %> 发表<%=GetQueryString("WindowName")%>
" method="post">
::发表<%=GetQueryString("WindowName")%>
作 者: