<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<%Response.Charset="utf-8"%>
论坛
<%
session_member_id=session("userid")
adminaction = request("adminaction")
if adminaction = "addsave" then
biaoti = request("zhuti")
ask = request("ask")
dianhua = request("dianhua")
qq = request("qq")
fenlei = request("fenlei")
if showpic(ask)<>"" then''分割出内容中的图片，没有图片则赋值默认图片
uu_showpic=split(showpic(ask),"|")
uu_picfirst=uu_showpic(0)
else
uu_picfirst="无"
end if
call bitian(fenlei,"板块")
call bitian(biaoti,"主题")
call bitian(ask,"话题详情")
if trim(session("GetCode")) <> trim(Request("txt_check")) then
call tishi("验证码不正确")
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from YY_luntan",conn,1,3
rs.addnew
rs("message_fenlei") = fenlei
rs("biaoti") = biaoti
rs("ask") = ask
rs("firstpic") = uu_picfirst
rs("dateandtime") = now()
rs("userid") = session_member_id
rs.update
rs.close
set rs = nothing
conn.execute "update YY_luntan set zhutiid = id where (zhutiid is null or zhutiid =0)"
conn.execute "update YY_luntan set orders = id*10 where (orders=0 or orders is null)"
call tiaozhuan("提交成功","?")
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from YY_huiyuan where id ="&session_member_id,conn,1,1
member_qq = rs("qq")
member_tel = rs("tel")
rs.close
set rs = nothing
%>