"&_ ""&_ ""&_ ""&_ " "&_ " "&isOnline(username)&"  "&htmlencode(username)&" " if TitleFlag and title<>"" then response.write "　头衔："&htmlencode(title)&" " response.write "   " if isnumeric(userclass) then select case userclass case 1 response.write "  " case 2 response.write "  " case 3 response.write "  " case 4 response.write "  " case 5 response.write "  " case 6 response.write "  " case 7 response.write "  " case 8 response.write "  " case 9 response.write "  " case 10 response.write "  " case 11 response.write "  " case 12 response.write "  " case 13 response.write "  " case 14 response.write "  " case 15 response.write "  " case 16 response.write "  " case 17 response.write "  " case 18 response.write "  " case 19 response.write "  " case 20 response.write "  " end select response.write "   等级："& grade(userclass) &" " end if if FromFlag=0 then if boardmaster or master then comefrom=address(ip) else comefrom="保密" end if else comefrom=address(ip) end if response.write "　财产： "&_ "　经验： "&_ "　魅力： " response.write "  注册："& year(addtime) &"-"& month(addtime) &"-"& day(addtime) response.write "   文章："&article&"   鉴定："&comefrom&" "&_ " "&_ ""&_ " "&_ "  "&_ " "&_ ""&_ " "&_ "  " if useremail<>"" then response.write " " end if if oicq<>"" then response.write "OICQ " end if if homepage<>"" then response.write "  " end if response.write ""&_ "  "&_ " "&_ ""&_ " " if instr(Expression,"face")>0 then response.write "" end if response.write "  "&_ "" response.write ""& htmlencode(topic) &" "& ubbcode(body) if not isnull(isvote) and cint(isvote)=1 and announceid=rootid then set vrs=conn.execute("select vote,votenum,votetype,voteuser from vote where announceid="&announceid&"") vote=split(vrs("vote"),"|") votenum=split(vrs("votenum"),"|") response.write "" response.write "" response.write "" for m = 0 to ubound(vote) if cint(vrs("votetype"))=0 then vote_1=""&vote_1&""&m+1&". "&vote(m)&" " else vote_1=""&vote_1&""&m+1&". "&vote(m)&" " end if next response.write "" vote_1="" for m = 0 to ubound(votenum) votenum_1=""&votenum_1&"票数："&votenum(m)&" " next response.write "" votenum_1="" if membername="" then response.write "" else if instr(vrs("voteuser"),membername)>0 then response.write "" else response.write "" end if end if response.write "" response.write " 以下为投票内容： "&vote_1&" "&votenum_1&" 您还没有登陆，不能进行投票。 您已经投过票了，请看结果吧。 " set vrs=nothing end if if signflag=1 then if sign<>"" then response.write " ---------------------------------------------- "&ubbcode(sign)&" " end if end if response.write " "&_ " "&_ ""&_ " " if membername<>"" then if username=membername or boardmaster or master then response.write "  " end if end if response.write " 发贴时间： "&dateandtime&" " if IpFlag=0 then if boardmaster or master then response.write arrRow(7,i) else response.write getip(arrRow(7,i)) end if else response.write arrRow(7,i) end if response.write " " if boardmaster or master then if announceid<>rootid then response.write " " end if response.write " " if isbest=0 then response.write "" else response.write "" end if end if response.write " "&_ "

*快速回复："&htmlencode(topic_1)&"

顶端

" if boardmaster or master then response.write ""&_ "

"&_ "锁定 "&_ " | 解锁"&_ " | 删除"&_ " | 移动 | " if istop=0 then response.write "固顶" else response.write "解固" end if response.write " | 发布公告 | 批量删除" response.write "

" end if end sub sub chkInput 'on error resume next if request("boardid")="" then founderr=true Errmsg=Errmsg+"
"+"

非法的贴子参数。" else RootID=request("RootID") end if if request("star")="" then star=1 elseif not isInteger(request("star")) then star=1 else star=request("star") end if end sub function isbgcolor(num) n=num mod 2 if n=1 then isbgcolor=true else isbgcolor=false end if end function set rs=nothing sub readRe() dim rs1,ID set rs1=conn.execute("select reAnn from [user] where username='"&membername&"' and reAnn is not null") if not (rs1.eof and rs1.bof) then ID=split(rs1("reAnn"),"|")(1) if ID=rootID then conn.execute ("update [user] set reAnn=null where username='"&membername&"'") end if end if rs1.close set rs1=nothing end sub sub subOnline sql="select username from online" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 onlineUserList=rs.getstring(2,,,chr(13)) onlineUserList=chr(13)&onlineUserList rs.close set rs=nothing end sub function isOnline(username) if instr(onlineUserList,chr(13)&username&chr(13))>0 then isonline="" else isonline="" end if end function Function GetIp(IP) ips=Split(ip,".") GetIp=ips(0)&"."&ips(1)&".*.*" end Function %>