资料没有配置！") End If linknum = rs("linknum") links = rs("links") linknum = CLng(linknum) links = CLng(links) rs.Close Set rs = Nothing response.write "" & Chr(13) response.write "

" & Chr(13) If Len(waplogo) > 7 Then response.write "
" & Chr(13) End If if wapopera<>"http://" And keys <> 1 Then'社区管理员不禁止 browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4)) browsers2=Lcase(Request.ServerVariables("HTTP_USER_AGENT")) if browsers="oper" or browsers="winw" or browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="cdr/" or browsers="nec-" or browsers="fetc" or browsers="r380" or browsers="winw" or browsers="mozi" or browsers="mozi" or browsers="m3ga" OR instr(browsers2,"msie")>0 or instr(browsers2,"openwave")>0 or instr(browsers2,"oper")>0 or instr(browsers2,"winw")>0 then response.redirect wapopera end if end if If myid = 0 Then response.write "欢迎您:登陆/注册
" & Chr(13) Else '检查有几条新留言 Dim newguest newguest = 0 If myid > 0 Then newguest = ForNewGuest(myid) End If If newguest > 0 Then response.write "您有" & newguest & "条新消息
" & Chr(13) End If response.write "欢迎您: " & myni & "
" & Chr(13) End If Set rs = Server.CreateObject("adodb.recordset") rs.open "select lx,class,classid,lid,url,img,wmltxt,num,relid,br from class where parent=0 and active=0 order by pid asc", conn, 1, 1 If rs.EOF Then response.write ("网站建设中..
") Else rs.Move (0) Dim j j = 1 Do While Not rs.EOF If rs("lx") = "0" Then response.write "" & ubb(rs("class")) & "" & Chr(13) ElseIf rs("lx") = "1" Then response.write "" & ubb(rs("class")) & "" & Chr(13) ElseIf rs("lx") = "2" Then response.write "" & ubbcode(rs("wmltxt")) & "" & Chr(13) ElseIf rs("lx") = "3" Then response.write "" & Chr(13) ElseIf rs("lx") = "4" Then response.write "" & ubb(rs("class")) & "" & Chr(13) ElseIf rs("lx") = "5" Then response.write "" & ubb(rs("class")) & "" & Chr(13) ElseIf rs("lx") = "20" Then response.write "" & ubb(rs("class")) & "" & Chr(13) ElseIf rs("lx") = "8" Then Call adstr(1) ElseIf rs("lx") = "9" Then response.write "" & usb(rs("wmltxt")) & "" & Chr(13) ElseIf rs("lx") = "10" Then Call newtitle(rs("num"), rs("relid")) ElseIf rs("lx") = "11" Then Call hottitle(rs("num"), rs("relid")) ElseIf rs("lx") = "12" Then Call wendtitle(rs("num"), rs("relid")) ElseIf rs("lx") = "16" Then Call newpic(rs("num"), rs("relid")) ElseIf rs("lx") = "17" Then Call hotpic(rs("num"), rs("relid")) ElseIf rs("lx") = "18" Then Call wendpic(rs("num"), rs("relid")) ElseIf rs("lx") = "21" Then Call newsell(rs("num"), rs("relid")) ElseIf rs("lx") = "22" Then Call relsell(rs("num"), rs("relid")) ElseIf rs("lx") = "23" Then Call jjsell(rs("num"), rs("relid")) ElseIf rs("lx") = "24" Then Call photosell(rs("num"), rs("relid")) ElseIf rs("lx") = "19" Then response.write "
" & Chr(13) response.write "" & Chr(13) response.write "按标题搜索" & Chr(13) response.write "按内容搜索" & Chr(13) response.write "
" response.write "搜 文章" & Chr(13) response.write "" & Chr(13) response.write "" & Chr(13) response.write "" & Chr(13) response.write "图片" & Chr(13) response.write "" & Chr(13) response.write "" & Chr(13) response.write "" & Chr(13) End If If rs("br") = "1" Then response.write "
" & Chr(13) rs.MoveNext j = j + 1 Loop End If rs.Close Set rs = Nothing If links = 1 Then Dim Rslc, Sqlink Set Rslc = Server.CreateObject("ADODB.Recordset") Sqlink = "select [ID],[namt],[classid] from [link] Where [Active] =0 order by [yd_time] desc" Rslc.open Sqlink, conn, 1, 1 If Rslc.EOF Then response.write ("暂无首链！
") End If Dim aaa aaa = 1 Do While ((Not Rslc.EOF) And aaa <= linknum) response.write "" & ubb(Rslc("NAMT")) & "" & Chr(13) If aaa Mod 4 = 0 And aaa <> Rslc.RecordCount Then response.write "
" & Chr(13) End If Rslc.MoveNext aaa = aaa + 1 Loop Rslc.Close Set Rslc = Nothing End If conn.Close Set conn = Nothing response.write "