% Function SqlStr( data ) SqlStr = "'" & Replace( data, "'", "''" ) & "'" End Function userName=session("userName") memberNum=session("memberNum") if userName="" then title="抱歉,您还没有登陆或注册!" else 'open community database sql="Select * From communitys where userName="&sqlstr(userName) Set conn = Server.CreateObject("ADODB.Connection") param = "driver={Microsoft Access Driver (*.mdb)};" conn.Open param & ";dbq=" & Server.MapPath("..\dbf\community2000.mdb") set rs=conn.execute(sql) if rs.eof Then Response.Write "对不起,您虽然已经注册,但客户服务部数据库内没有您的数据,请与我们联络!" Response.end end if score=rs("score") title="您好,"&userName&",您目前的积分是"&score&"分,身处2G时代" bbsScore=rs("bbsArticleNum")*2+rs("bbsFlowerNum")*2+rs("BBSgoodNum")*10-rs("bbseggNum")*1 reviewScore=rs("reviewArticleNum")*2+rs("reviewFlowerNum")*2+rs("reviewGoodNum")*10-rs("revieweggNum")*1 end if ' club service gong gao Set connG = Server.CreateObject("ADODB.Connection") paramG = "driver={Microsoft Access Driver (*.mdb)};" connG.Open paramG & ";dbq=" & Server.MapPath("..\dbf\forum.mdb") sqlG="Select * From forum_affiche order by id desc" Set rsG = connG.Execute( sqlG ) %>
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||