<%
sub news()
if request("news_id")="" then
   response.write"<script language=javascript>alert('参数错误，请不要乱改参数!');javascript:history.back();</script>"
   response.end
else
  if not isInteger(request("news_id")) then
    Response.Write "<script language=javascript>alert('参数非法！');javascript:history.back();</script>"
    Response.End
  end if
end if
dim temp
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from news where news_id="&request("news_id")
rs.open sql,conn,1,1
temp="|<img src=img/mood"&face&".gif>&nbsp;评论者：<a href=mailto:"&reviewemail&"><font color=red title=""给我写信"">"
if reviewname=webceo then
temp2=noceo
elseif reviewname=ceopass then
temp2=webceo
else
temp2=reviewname
End If
temp=temp&""&temp2&"</font></a><br>"&review&"<br>发表时间："&now()&"&nbsp;[来自: "&ip&"]<br><hr size=1 noshade>"&rs("review")
conn.execute"Update news set reviewcount=reviewcount+1,review='"&temp&"' where news_id="&request.querystring("news_id")
rs.close
conn.close
set temp=nothing
set rs=nothing
set conn=nothing
response.redirect "shownews.asp?news_id="&request.querystring("news_id")
end sub
sub art()
if request("art_id")="" then
   response.write"<script language=javascript>alert('参数错误，请不要乱改参数!');javascript:history.back();</script>"
   response.end
else
  if not isInteger(request.querystring("art_id")) then
    Response.Write "<script language=javascript>alert('参数非法！');javascript:history.back();</script>"
    Response.End
  end if
end if
dim temp
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from art where art_id="&request("art_id")
rs.open sql,conn,1,1
temp="|<img src=img/mood"&face&".gif>&nbsp;评论者：<a href=mailto:"&reviewemail&"><font color=red title=""给我写信"">"
if reviewname=webceo then
temp2=noceo
elseif reviewname=ceopass then
temp2=webceo
else
temp2=reviewname
End If
temp=temp&""&temp2&"</font></a><br>"&review&"<br>发表时间："&now()&"&nbsp;[来自: "&ip&"]<br><hr size=1 noshade>"&rs("review")
conn.execute"Update art set reviewcount=reviewcount+1,review='"&temp&"' where art_id="&request.querystring("art_id")
rs.close
conn.close
set temp=nothing
set rs=nothing
set conn=nothing
response.redirect "showart.asp?art_id="&request.querystring("art_id")
end sub
'Web:    http://www.vip138.com
sub dj()
if request("dj_id")="" then
   response.write"<script language=javascript>alert('参数错误，请不要乱改参数!');javascript:history.back();</script>"
   response.end
else
  if not isInteger(request("dj_id")) then
    Response.Write "<script language=javascript>alert('参数非法！');javascript:history.back();</script>"
    Response.End
  end if
end if
dim temp
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from dj where dj_id="&request("dj_id")
rs.open sql,conn,1,1
temp="|<img src=img/mood"&face&".gif>&nbsp;评论者：<a href=mailto:"&reviewemail&"><font color=red title=""给我写信"">"
if reviewname=webceo then
temp2=noceo
elseif reviewname=ceopass then
temp2=webceo
else
temp2=reviewname
End If
temp=temp&""&temp2&"</font></a><br>"&review&"<br>发表时间："&now()&"&nbsp;[来自: "&ip&"]<br><hr size=1 noshade>"&rs("review")
conn.execute"Update dj set reviewcount=reviewcount+1,review='"&temp&"' where dj_id="&request.querystring("dj_id")
rs.close
conn.close
set temp=nothing
set rs=nothing
set conn=nothing
response.redirect "view.asp?action=dj&dj_id="&request.querystring("dj_id")
end sub
'Web:    http://www.vip138.com
sub flash()
if request("id")="" then
   response.write"<script language=javascript>alert('参数错误，请不要乱改参数!');javascript:history.back();</script>"
   response.end
else
  if not isInteger(request("id")) then
    Response.Write "<script language=javascript>alert('参数非法！');javascript:history.back();</script>"
    Response.End
  end if
end if
dim temp
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from flash where id="&request("id")
rs.open sql,conn,1,1
temp="|<img src=img/mood"&face&".gif>&nbsp;评论者：<a href=mailto:"&reviewemail&"><font color=red title=""给我写信"">"
if reviewname=webceo then
temp2=noceo
elseif reviewname=ceopass then
temp2=webceo
else
temp2=reviewname
End If
temp=temp&""&temp2&"</font></a><br>"&review&"<br>发表时间："&now()&"&nbsp;[来自: "&ip&"]<br><hr size=1 noshade>"&rs("review")
conn.execute"Update flash set reviewcount=reviewcount+1,review='"&temp&"' where id="&request.querystring("id")
rs.close
conn.close
set temp=nothing
set rs=nothing
set conn=nothing
response.redirect "view.asp?action=flash&id="&request.querystring("id")
end sub
'Web:    http://www.vip138.com
sub soft()
if request("soft_id")="" then
   response.write"<script language=javascript>alert('参数错误，请不要乱改参数!');javascript:history.back();</script>"
   response.end
else
  if not isInteger(request.querystring("soft_id")) then
    Response.Write "<script language=javascript>alert('参数非法！');javascript:history.back();</script>"
    Response.End
  end if
end if
dim temp
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from soft where soft_id="&request("soft_id")
rs.open sql,conn,1,1
temp="|<img src=img/mood"&face&".gif>&nbsp;评论者：<a href=mailto:"&reviewemail&"><font color=red title=""给我写信"">"
if reviewname=webceo then
temp2=noceo
elseif reviewname=ceopass then
temp2=webceo
else
temp2=reviewname
End If
temp=temp&""&temp2&"</font></a><br>"&review&"<br>发表时间："&now()&"&nbsp;[来自: "&ip&"]<br><hr size=1 noshade>"&rs("review")
conn.execute"Update soft set reviewcount=reviewcount+1,review='"&temp&"' where soft_id="&request.querystring("soft_id")
rs.close
conn.close
set temp=nothing
set rs=nothing
set conn=nothing
response.redirect "showdown.asp?soft_id="&request.querystring("soft_id")
end sub

sub gq()
if request("gq_id")="" then
   response.write"<script language=javascript>alert('参数错误，请不要乱改参数!');javascript:history.back();</script>"
   response.end
else
  if not isInteger(request.querystring("gq_id")) then
    Response.Write "<script language=javascript>alert('参数非法！');javascript:history.back();</script>"
    Response.End
  end if
end if
dim temp
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from gq where gq_id="&request("gq_id")
rs.open sql,conn,1,1
temp="|<img src=img/mood"&face&".gif>&nbsp;评论者：<a href=mailto:"&reviewemail&"><font color=red title=""给我写信"">"
if reviewname=webceo then
temp2=noceo
elseif reviewname=ceopass then
temp2=webceo
else
temp2=reviewname
End If
temp=temp&""&temp2&"</font></a><br>"&review&"<br>发表时间："&now()&"&nbsp;[来自: "&ip&"]<br><hr size=1 noshade>"&rs("review")
conn.execute"Update gq set reviewcount=reviewcount+1,review='"&temp&"' where gq_id="&request.querystring("gq_id")
rs.close
conn.close
set temp=nothing
set rs=nothing
set conn=nothing
response.redirect "showgq.asp?gq_id="&request.querystring("gq_id")
end sub

sub js()
if request("js_id")="" then
   response.write"<script language=javascript>alert('参数错误，请不要乱改参数!');javascript:history.back();</script>"
   response.end
else
  if not isInteger(request("js_id")) then
    Response.Write "<script language=javascript>alert('参数非法！');javascript:history.back();</script>"
    Response.End
  end if
end if
dim temp
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from js where js_id="&request("js_id")
rs.open sql,conn,1,1
temp="|<img src=img/mood"&face&".gif>&nbsp;评论者：<a href=mailto:"&reviewemail&"><font color=red title=""给我写信"">"
if reviewname=webceo then
temp2=noceo
elseif reviewname=ceopass then
temp2=webceo
else
temp2=reviewname
End If
temp=temp&""&temp2&"</font></a><br>"&review&"<br>发表时间："&now()&"&nbsp;[来自: "&ip&"]<br><hr size=1 noshade>"&rs("review")
conn.execute"Update js set reviewcount=reviewcount+1,review='"&temp&"' where js_id="&request.querystring("js_id")
rs.close
conn.close
set temp=nothing
set rs=nothing
set conn=nothing
response.redirect "showjs.asp?js_id="&request.querystring("js_id")
end sub
'Web:    http://www.vip138.com
sub vid()
if request("vid_id")="" then
   response.write"<script language=javascript>alert('参数错误，请不要乱改参数!');javascript:history.back();</script>"
   response.end
else
  if not isInteger(request("vid_id")) then
    Response.Write "<script language=javascript>alert('参数非法！');javascript:history.back();</script>"
    Response.End
  end if
end if
dim temp
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from vid where vid_id="&request("vid_id")
rs.open sql,conn,1,1
temp="|<img src=img/mood"&face&".gif>&nbsp;评论者：<a href=mailto:"&reviewemail&"><font color=red title=""给我写信"">"
if reviewname=webceo then
temp2=noceo
elseif reviewname=ceopass then
temp2=webceo
else
temp2=reviewname
End If
temp=temp&""&temp2&"</font></a><br>"&review&"<br>发表时间："&now()&"&nbsp;[来自: "&ip&"]<br><hr size=1 noshade>"&rs("review")
conn.execute"Update vid set reviewcount=reviewcount+1,review='"&temp&"' where vid_id="&request.querystring("vid_id")
rs.close
conn.close
set temp=nothing
set rs=nothing
set conn=nothing
response.redirect "showvid.asp?vid_id="&request.querystring("vid_id")
end sub
'Web:    http://www.vip138.com
sub pic()
if request("pic_id")="" then
   response.write"<script language=javascript>alert('参数错误，请不要乱改参数!');javascript:history.back();</script>"
   response.end
else
  if not isInteger(request("pic_id")) then
    Response.Write "<script language=javascript>alert('参数非法！');javascript:history.back();</script>"
    Response.End
  end if
end if
dim temp
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from pic where pic_id="&request("pic_id")
rs.open sql,conn,1,1
temp="|<img src=img/mood"&face&".gif>&nbsp;评论者：<a href=mailto:"&reviewemail&"><font color=red title=""给我写信"">"
if reviewname=webceo then
temp2=noceo
elseif reviewname=ceopass then
temp2=webceo
else
temp2=reviewname
End If
temp=temp&""&temp2&"</font></a><br>"&review&"<br>发表时间："&now()&"&nbsp;[来自: "&ip&"]<br><hr size=1 noshade>"&rs("review")
conn.execute"Update pic set reviewcount=reviewcount+1,review='"&temp&"' where pic_id="&request.querystring("pic_id")
rs.close
conn.close
set temp=nothing
set rs=nothing
set conn=nothing
response.redirect "showpic.asp?pic_id="&request.querystring("pic_id")
end sub
%>

