"http://www.w3.org/TR/html4/loose.dtd">
－花花草草－校花展示页
id=clng(request("id"))
if id="" or id
当前位置:首页 >> 花草展示页
报名参加
Case "add":
call add
Case "hua":
Call hua
Case "dan":
Call dan
Case Else:
call show
End Select
sub show
rs.open "select top 1 * from [user] where id="&id&" and ishc=1",conn,1,1
If Rs.eof and Rs.bof Then
Response.Write("该选手资料不存在")
else
realname=rs("realname")%>
ID:
鲜花： 鸡蛋：
姓名：
性别：
生日：
生属：
血型：
参选：
座佑铭：
自我介绍：
查看赠送列表
被扔鸡蛋排行榜
end if
rs.close%>
的图片
More...
rs.open "select top 8 id,pic,title from photo where userid="&id&" and ishc=1 order by lastupdatetime desc,id desc",conn,1,1
If Rs.eof Then
Response.Write("暂无照片")
else
i=0
do while not rs.eof%>
if i=4 then response.write ""
rs.movenext
loop
end if
rs.close%>
对 的评价
评价者
评价标题
if rs.eof then
response.write "暂无评价"
else
do while not rs.eof%>
[]
loop
end if
rs.close:set rs=nothing
closeconn%>
评价者：
评价标题：
评价内容：
sub add
ptitle=obj.HtmlEncode(request.form("ptitle"))
pcontent=obj.HtmlEncode(request.form("pcontent"))
if ptitle="" or pcontent="" then ShowError("标题和内容不可为空")
if session("xyluserid")="" then ShowError("请先登录")
rs.open "select * from [hcpj] where 2=1",conn,1,3
rs.addnew
rs("title")=ptitle
rs("content")=pcontent
rs("userid")=session("xyluserid")
rs("hcid")=id
rs.update
rs.close:set rs=nothing
closeconn
a=obj.gourl(" 本页面将在3秒后自动返回展示页，可以继续选择以下操作： 返回[学校校花] 返回[学校校草] 到[该花展示页]","hcview.asp?id="&id&"")
end sub
sub hua
if session("xyluserid")="" then ShowError("请先登录")
if session("xyluserid")=id then ShowError("不可以为自己赠送鲜花")
rs.open "select sitemoney from [user] where id="&session("xyluserid")&"",conn,1,3
if rs(0) Set rs2 = Server.CreateObject("Adodb.Recordset")
rs2.open "select * from [hc] where userid="&id&" and formuserid="&session("xyluserid")&"",conn,1,3
if rs2.eof then
rs2.addnew
rs2("userid")=id
rs2("formuserid")=session("xyluserid")
rs2("votes")=0
rs2.update
rs2.close:set rs2=nothing
else
rs.close
rs2.close:set rs2=nothing
ShowError("你已向该选手赠送过鲜花了，谢谢你的支持")
end if
rs(0)=rs(0)-10
rs.update
rs.close
rs.open "update user set hccount=hccount+1 where id="&id&"",conn,1,3
set rs=nothing
closeconn
a=obj.gourl(" 本页面将在3秒后自动返回展示页，可以继续选择以下操作： 返回[学校校花] 返回[学校校草] 到[该花展示页]","hcview.asp?id="&id&"")
end sub
sub dan
if session("xyluserid")="" then ShowError("请先登录")
if session("xyluserid")=id then ShowError("不可以为自己扔鸡蛋")
rs.open "select sitemoney from [user] where id="&session("xyluserid")&"",conn,1,3
if rs(0) rs(0)=rs(0)-10
rs.update
rs.close
rs.open "select * from [hc] where 2=1",conn,1,3
rs.addnew
rs("userid")=id
rs("formuserid")=session("xyluserid")
rs("votes")=1
rs.update
rs.close
rs.open "update user set jdcount=jdcount+1 where id="&id&"",conn,1,3
set rs=nothing
closeconn
a=obj.gourl(" 本页面将在3秒后自动返回展示页，可以继续选择以下操作： 返回[学校校花] 返回[学校校草] 到[该花展示页]","hcview.asp?id="&id&"")
end sub%>
