viewsavebody.asp

主要功能是为大家提供一个免费的校园平台网站,有新闻发布、会员及管理、论坛

<%
sub news()
if request("news_id")="" then
   response.write"<script language=javascript>alert('参数错误，请不要乱改参数!');javascript:history.back();</script>"
   response.end
end if
dim news_id
news_id=request("news_id")
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 class=""view"" 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
end if
dim art_id
art_id=request("art_id")
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 class=""view"" 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
sub dj()
if request("dj_id")="" then
   response.write"<script language=javascript>alert('参数错误，请不要乱改参数!');javascript:history.back();</script>"
   response.end
end if
dim dj_id
dj_id=request("dj_id")
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 class=""view"" 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
sub soft()
if request("soft_id")="" then
   response.write"<script language=javascript>alert('参数错误，请不要乱改参数!');javascript:history.back();</script>"
   response.end
end if
dim soft_id
soft_id=request("soft_id")
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 class=""view"" 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 js()
if request("js_id")="" then
   response.write"<script language=javascript>alert('参数错误，请不要乱改参数!');javascript:history.back();</script>"
   response.end
end if
dim js_id
js_id=request("js_id")
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 class=""view"" 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
sub pic()
if request("pic_id")="" then
   response.write"<script language=javascript>alert('参数错误，请不要乱改参数!');javascript:history.back();</script>"
   response.end
end if
dim pic_id
pic_id=request("pic_id")
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 class=""view"" 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


sub cs()
if request("cs_id")="" then
   response.write"<script language=javascript>alert('参数错误，请不要乱改参数!');javascript:history.back();</script>"
   response.end
end if
dim cs_id
cs_id=request("cs_id")
dim temp
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from coolsites where cs_id="&request("cs_id")
rs.open sql,conn,1,1
temp="|<img src=img/mood"&face&".gif>&nbsp;评论者：<a href=mailto:"&reviewemail&"><font class=""view"" 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 coolsites set reviewcount=reviewcount+1,review='"&temp&"' where cs_id="&request.querystring("cs_id")
rs.close
conn.close
set temp=nothing
set rs=nothing
set conn=nothing
response.redirect "showmp.asp?cs_id="&request.querystring("cs_id")
end sub%>