%@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走势图带坐标
捕鱼达人手机版下载