<% if session("username")="" then response.Write "" response.end end if %> <% Dim htmlData htmlData = Request.Form("t4") Function htmlspecialchars(str) str = Replace(str, "&", "&") str = Replace(str, "<", "<") str = Replace(str, ">", ">") str = Replace(str, """", """) htmlspecialchars = str End Function %> <% if request("act")="add" then classid=request("classid") title=request("title") btcolor=request("btcolor") jj=request("jj") img=request("img") bz=request("bz") wzly=request("wzly") if classid="" then response.Write "" response.end end if set rs=server.CreateObject("adodb.recordset") sql="select * from xg_info" rs.open sql,conn,1,3 rs.addnew rs("title")=title rs("pic")=img rs("author")=session("username") rs("adddate")=now rs("content")=bz rs("ispass")=0 rs("jj")=jj rs("wzly")=wzly rs("classid")=classid rs("btcolor")=btcolor rs.update rs.close set rs=nothing response.Write "" response.end end if %> 发布文章-会员中心
 
发布文章

类别选择:
信息标题: 设置标题颜色:   显示简介
图片标题:
信息内容:
文章来源:
 

<% sub ssort(t,classid) with response 'if session("xgcms_admin")=1 then sql="Select id,title,ordnum,followid From [xg_class] where followid="&t&" order by ordnum desc" 'else ' if t=0 then ' sql="Select id,title,ordnum,followid From [xg_class] where " ' if session("xgcms_infolever")<>"" then ' sql=sql&" id in ("&session("xgcms_infolever")&") and followid="&t&" order by ordnum desc" ' else ' sql=sql&" followid<"&t&" order by ordnum desc" ' end if ' else ' sql="Select id,title,ordnum,followid From [xg_class] where followid="&t&" order by ordnum desc" ' end if 'end if 'response.Write "2222" 'response.end Set rs1=Conn.Execute(sql) do while not rs1.eof .write("") iii=iii+1 ssort rs1(0),classid iii=iii-1 rs1.Movenext loop Set Rs1 = Nothing end with end sub %>