<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim flag,str flag=request("flag") str=request("str") If not Isobject(Conn) Then call openconn()'鎵撳紑鏁版嵁搴? select case flag case "list"'璇勮鍒楄〃 call GetList() case "add"'鍙戝竷璇勮 call AddList() case "onclick"'鐐瑰嚮鏁? call OnClick() end select '------------------------------------------------------------------- '鑾峰彇鍒楄〃 'Com_TitleId|Com_ClassId|鏉℃暟 private sub GetList() dim rs,ars,txt,arr arr=split(str,"|") if arr(1)="1" then set rs=conn.execute("select top "&arr(2)&" Com_IP,Com_Content,Com_Time from R_Comment where Com_TitleId="&arr(0)&" and Com_ClassId="&arr(1)&" order by id desc") else set rs=conn.execute("select top "&arr(2)&" Com_IP,Com_Content,Com_Time from R_Comment where Com_ClassId="&arr(1)&" order by id desc") end if If Not Rs.Eof Then ars=Rs.GetRows(-1) Rs.Close:Set Rs=Nothing if isarray(ars) then for i=0 to ubound(ars,2) txt=txt&("
  • 緗戝弸:
    "&server.HTMLEncode(ars(1,i))&"
    "&ars(2,i)&"
    鎴戣璇勮
  • ") next else txt="
  • 鏆傛棤璇勮
  • " end if response.Write txt ' end if end sub '------------------------------------------------------------------- '鍙戝竷璇勮 'Com_TitleId|Com_ClassId|Com_Content private sub AddList() Dim Content,arr arr=split(str,"|") 'Content=request.Form("Content") 'if IsNumeric(a) then conn.execute("INSERT INTO R_Comment (Com_IP,Com_Content,Com_ClassId,Com_TitleId) VALUES ('"&GetIP()&"','"&arr(2)&"',"&arr(1)&","&arr(0)&")") response.Write "1" ' end if end sub '------------------------------------------------------------------- '鐐瑰嚮鏁? private sub Onclick() if IsNumeric(str) then conn.execute("Update R_trade Set T_clickcount=T_clickcount+1 Where id="&str) response.Write conn.execute("select T_clickcount from R_trade Where id="&str)(0) end if end sub conn.close:set conn=nothing %> 兑换现金的棋牌游戏 qq游戏长春麻将 半全场平负什么意思 重庆幸运农场直播 排球比分直播188 捕鱼大师 下载 三九彩票老牌值得信赖 色子梭哈怎么玩 25选5预测推荐 半全场和局和局啥意思 湖北11选5中奖规则 球探即时比分及时比分 莱特币客户端中文版 成都麻将翻数计算,成都麻将怎么算钱 下载湖南长沙麻将 p5走势图带坐标 捕鱼达人手机版下载