seeinfo.asp
来自「采用ASP。NET做的网上游戏交易平台」· ASP 代码 · 共 426 行
ASP
426 行
<%
if session("userID")="" then
%>
<!--#include file="top.asp"-->
<%
else
%>
<!--#include file="top1.asp"-->
<%
end if
%>
<style>
<!--
a:link.nav {COLOR: #ffffff;TEXT-DECORATION: none}
.navbg {filter : progid:DXImageTransform.Microsoft.DropShadow(color=#ffffff,offX=1,offY=1,positives=true);}
.navbg1 {filter : progid:DXImageTransform.Microsoft.DropShadow(color=#6C2C00,offX=1,offY=1,positives=true);}
a:link.nav1 {COLOR: #434343;TEXT-DECORATION: none}
.toptext {color: #555555;filter:dropshadow(color=#ffffff,offx=1,offy=1,positive=1);}
-->
</style>
<%
dim sql,myid,tmpgamecode,isbidden
'myid=request.QueryString("flagid")
set rs=server.createobject("adodb.recordset")
'---------------------------评价处理程序
if request.form("btnbook")="提交" then
dim myvalue,oldvlaue,newvalue,mytmpid,mytmppubid
myvalue=cint(request.form("r"))
mytmpid=trim(request.form("txtid"))
idarr=split(mytmpid,",")
sql="select * from ziliao where id="&clng(idarr(0))
rs.open sql,conn,3,1
mytmppubid=rs("pubID")
rs.close
'response.write mytmppubid&"-"&idarr(1)
'response.end
if cstr(mytmppubid)=cstr(idarr(1)) then
Response.Write "<script language=javascript>" &vbCrLf&_
"alert('对不起，您不能给自己打分！！！');" &vbCrLf&_
"</script>"
else
sql="select * from userinfo where ID="&clng(mytmppubid)
rs.open sql,conn,3,2
mybooknum=rs("bookNum")
if rs("book")="" or isnull(rs("book")) then
oldvlaue="0*0*0"
else
oldvlaue=rs("book")
end if
'rs.close
tmpbookArr=split(oldvlaue,"*")
if myvalue=0 then
tmpbookArr(0)=tmpbookArr(0)+1
elseif myvalue=1 then
tmpbookArr(1)=tmpbookArr(1)+1
elseif myvalue=2 then
tmpbookArr(2)=tmpbookArr(2)+1
end if
newvalue=tmpbookArr(0)&"*"&tmpbookArr(1)&"*"&tmpbookArr(2)
rs("bookNum")=mybooknum+1
rs("book")=newvalue
rs.update
rs.close
'sql="update userinfo set bookNum=bookNum+1,book='"&newvalue&"' where ID="&clng(idarr(0))
'conn.execute(sql)
Response.Write "<script language=javascript>" &vbCrLf&_
"alert('已经成功给该人打分！！！');" &vbCrLf&_
"</script>"
end if
myid=idarr(0)
myflagid=idarr(1)
end if
%>
<body style="text-align: center">
<%
function showImg(myurl)
showImg="<img width=155 src='"&imgid&"'>"
end function
function doPrice(p,t)
if p=0 then
doPrice="面议"
else
doPrice=p&infoArr(t)
end if
end function
infoArr=array("RMB","万游戏币")
infoArr2=array("点卡","帐号","装备","游戏币","游戏周边产品","其他")
typeArr1=array("出售","求购")
typeArr2=array("","游戏装备","游戏人物ID","游戏点卡","游戏代练")
if myid="" then myid=request.QueryString("id")
if myflagid="" then myflagid=request.QueryString("flagid")
if not isnumeric(myid) then
Response.Write "<script language=javascript>" &vbCrLf&_
"alert('非法进入!\n点确定返回首页!!!');" &vbCrLf&_
"window.location='index.asp';"&vbCrLf&_
"</script>"
response.end
end if
if myflagid="" or myflagid=0 then
isbidden="disabled"
end if
redim infoArr3(3)
redim gameArr(13)
sql="select * from ziliao where id="&myid
rs.open sql,conn,3,1
gameArr(0)=rs("pubID")
tmpgamecode=rs("gameName")
mygamename=getGameName(tmpgamecode)
mygamename=right(mygamename,len(mygamename)-5)
gameArr(1)=mygamename
gameArr(2)=rs("gameService")
gameArr(3)=rs("tradeType")
gameArr(4)=rs("tradeTitle")
gameArr(5)=rs("tradeMemo")
gameArr(5)=replace(gameArr(5),chr(10),"<br>")
gameArr(6)=rs("tradePrice")
gameArr(7)=rs("priceType")
gameArr(8)=rs("area")
gameArr(9)=rs("isPicture")
gameArr(10)=rs("pubDate")
gameArr(11)=rs("url")
gameArr(12)=rs("infoType")
rs.close
tmpType=split(gameArr(3),",")
if myflagid="" then
for i=0 to ubound(infoArr)
infoArr(i)="<font color='#666666'>[登陆查看！]</font>"
next
else
sql="select * from userinfo where ID="&gameArr(0)
rs.open sql,conn,3,1
infoArr3(0)=rs("email")
infoArr3(1)=rs("contact")
infoArr3(2)=rs("phone")
infoArr3(3)=rs("qqormsn")
gameArr(8)=rs("province")&","&rs("city")
if isnull(rs("book"))then
gameArr(13)="0*0*0"
else
gameArr(13)=rs("book")
end if
rs.close
end if
sql="update const set clickNum=clickNum+1 where gamecode='"&tmpgamecode&"'"
conn.execute(sql)
set rs=nothing
'set conn=nothing
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0" background="images/bg2.jpg" height="100%">
<tr>
<td valign=top>
<table border="0" width="900" cellspacing="0" cellpadding="0">
<tr>
<td width="900" colspan="3" height="7"></td>
</tr>
<tr>
<td width="65" height="7"></td>
<td width="778" height="7"> <table border="0" width="778" cellspacing="0" cellpadding="0">
<tr>
<td width="9">
<img border="0" src="images/2vv2_r7_c2.gif" width="9" height="50"></td>
<td width="759" background="images/2vv2_r7_c4.gif">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="100%">
<%
call getGameName2
for i=0 to 20
if i=0 then response.write "<tr height=21>"
response.write "<td align='center'valign=bottom class=top><a href='search.asp?key="&tmpArr1(i)&"'>"&formatGameName(tmpArr2(i))&"</a> |</td>"
if i mod 11 =10 and i>0 then response.write "</tr><tr height=22>"
next
response.write "<td align='center' valign=bottom class=top><a href='search.asp?key=all'>全 部...</a></td>"
%>
</table>
</td>
<td width="10">
<img border="0" src="images/2vv2_r7_c31.gif" width="10" height="50"></td>
</tr>
</table></td>
<td width="57" height="7"></td>
</tr>
<tr>
<td width="900" colspan="3" height="7"></td>
</tr>
<tr>
<td width="65"> </td>
<td width="778">
<div align="center">
<table border="0" width="770" cellspacing="0" cellpadding="0">
<tr>
<td width="22">
<img border="0" src="images/2_r1_c1.gif" width="22" height="33"></td>
<td background="images/2_r1_c2.gif" width="724" valign=bottom>
<table border="0" cellspacing="0" cellpadding="0" height="28">
<tr>
<td class=navbg>艾维游戏交易平台---<%=gameArr(4)%></td>
</tr>
</table>
</td>
<td width="24">
<img border="0" src="images/2_r1_c3.gif" width="24" height="33"></td>
</tr>
<tr>
<td background="images/2_r2_c1.gif" width="770" colspan="3" height="30">
<div align="center">
<table border="0" width="739" cellspacing="0" cellpadding="0">
<tr >
<td width="375" class=top>
<b>友情提示:</b> 登录后您可以对此信息进行评价/以及留言</td>
<td width="364" class=top>
<table border="0" width="100%" cellspacing="0" cellpadding="0" >
<form action="seeInfo.asp" method="post" target="_self"><tr>
<td width="134" height="25">
<input name="txtid" type="hidden" value=<%=myid&","&myflagid%>></td>
<td width="227" height="25">
<font color="#FFFFFF">
<input type="radio" value="0" name="r" checked> 好评
<input type="radio" value="1" name="r"> 中评
<input type="radio" value="2" name="r"> 差评</font></td>
<td width="54" height="25">
<input name="btnbook" type="submit" id="btnbook" value="提交" <%=isbidden%>></td>
</tr></form>
</table>
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="770" colspan="3" valign=top>
<table border="0" width="770" cellspacing="0" cellpadding="0">
<tr>
<td width="13" bgcolor="#69B4FE" valign=top>
<img border="0" src="images/2_r3_c1.gif" width="13" height="185"></td>
<td width="744" bgcolor="#FFFFFF" valign=top><table border="1" width="100%" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#1965CD" height="300">
<tr><td valign=top>
</div>
<div align="center">
<table cellSpacing="1" width="100%" border="0">
<form name="pagego" method="post">
<tr valign=top>
<td align="right" width="725">
<div align="center">
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr>
<td width="10%" height="25" align="middle" nowrap> <font color="#990000">交易类型:</font></td>
<td width="36%" bgColor="#ffffff" height="25"> <%=typeArr1(tmpType(0))%></td>
<td align="middle" width="9%"> <p align="left"> <font color="#990000">信息类别:</font></td>
<td bgColor="#ffffff" colspan="2"> <%=infoArr2(gameArr(12))%></td>
</tr>
<tr>
<td align="middle" width="10%" height="25"> <font color="#990000">游戏名称:</font></td>
<td width="36%" bgColor="#ffffff" height="25"> <font color="#FF0000"><%=mygamename%></font></td>
<td align="middle" width="9%"> <p align="left"> <font color="#990000">发布时间:</font></td>
<td bgColor="#ffffff" colspan="2"> <%=gameArr(10)%></td>
</tr>
<tr>
<td align="middle" width="10%" height="25"> <font color="#990000">服 务 器:</font></td>
<td width="36%" bgColor="#ffffff" height="25"> <font color="#FF0000"><%=gameArr(2)%></font></td>
<td align="middle" width="9%"> <p align="left"> <font color="#990000">价 格:</font></td>
<td bgColor="#ffffff" colspan="2"> <%
if myflagid>0 then
response.write doPrice(gameArr(6),gameArr(7))
else
response.write "[登陆查看]"
end if
%></td>
</tr>
<tr>
<td align="middle" width="10%" height="25"> <font color="#990000">结束时间:</font></td>
<td width="36%" bgColor="#ffffff" height="25">暂无</td>
<td colSpan="2" bgColor="#ffffff"><font color="#990000">联系电话:</font></td><td bgColor="#ffffff"><%if myflagid>0 then
response.write "<font color='#666666'>"&infoArr3(2)&"</font>"
else
response.write "[登陆查看]"
end if
%></td>
</tr>
<tr>
<td align="middle" width="10%" height="25"> <font color="#990000">联 系 人:</font></td>
<td width="36%" bgColor="#ffffff" height="25"> <%
if myflagid>0 then
response.write "<font color='#666666'>"&infoArr3(1)&"</font>"
else
response.write "[登陆查看]"
end if
mybookArr=split(gameArr(13),"*")
%> <font color="#990000">好评:<%=mybookArr(0)%> 中评:<%=mybookArr(1)%> 差评:<%=mybookArr(2)%></font></td>
<td colSpan="2" bgColor="#ffffff"><font color="#990000">所 在 地:</font></td>
<td bgColor="#ffffff"><%
tmparray=split(gameArr(8),",")
response.write tmparray(1)&" "&tmparray(3)
%></td>
</tr>
<tr>
<td align="middle" width="10%" height="25"> <font color="#990000">电子邮件:</font></td>
<td width="36%" bgColor="#ffffff" height="25"> <%if myflagid>0 then
response.write "<font color='#666666'>"&infoArr3(0)&"</font>"
else
response.write "[登陆查看]"
end if
%> </td>
<td align="middle" width="9%"> <p align="left"> <font color="#990000">QQ/MSN:</font></td>
<td bgColor="#ffffff" colspan="2"> <%if myflagid>0 then
response.write "<font color='#666666'>"&infoArr3(3)&"</font>"
else
response.write "[登陆查看]"
end if
%> </td>
</tr>
<tr>
<td align="middle" width="10%" height="25"> <font color="#990000">标 题:</font></td>
<td bgColor="#ffffff" colSpan="4" height="25"><font color="#000000"><b><%=gameArr(4)%></b></font></td>
</tr>
<tr>
<td align="middle" width="10%" valign=top> <b> <font color="#990000">信息说明:</font></b></td>
<td bgColor="#ffffff" colSpan="4" height="25"><%=gameArr(5)%> <strong><font color="#FF0000">找工作请上 <a href="http://www.1111.com.cn" target="_blank" style="color:#ff0000">1111中华菁英网</a></font></strong></td>
</tr>
<tr>
<td align="middle" width="10%" valign=top>
</td>
<td bgColor="#ffffff" colSpan="4" height="25"> </td>
</tr>
<tr>
<td align="middle" width="10%" valign=top>
<font color="#990000"><b>图片展示:</b></font></td>
<td bgColor="#ffffff" colSpan="4" height="25"><a href="<%=gameArr(11)%>" target=_blank>
<img src="<%=gameArr(11)%>" border=0 width="432"></a>
</td>
</tr>
<tr>
<td width="10%" height="56" align="middle"> </td>
<td colspan="2" bgColor="#ffffff"> <%
if isbidden<>"disabled" then
%>
<a href="#" onclick="leave(<%=myid%>,<%=gameArr(0)%>,'<%=infoArr3(1)%>');">
<img border="0" src="images/1-2.gif"></a>
</td>
<td width="43%" bgColor="#ffffff" colspan="2">
<a target="_blank" href="assure.asp">
<img border="0" src="images/1-1.gif"></a></td>
</tr> <%
else
response.write "<font color='#ff0000'>* 友情提示：登陆后可以给他或她发送留言以及参与评价...</font>"
end if
%>
</table>
</div>
</td>
</tr>
</form>
</table></div>
</body>
</html>
<script language="JavaScript">
function leave(id1,id2,namestring){
WinC='toolbar=no,resizable=no,top=200,left=300,directories=no,status=no,scrollbars=no,menubar=no,width=500,height=220';
window.open('recommend.asp?idstr='+id1+'&pubidstr='+id2+'&namestr='+namestring,'_blank',WinC);
}
</script> </td>
</tr>
</table>
</td>
<td width="13" bgcolor="#69B4FE" valign=top>
<img border="0" src="images/2_r3_c1.gif" width="13" height="185"></td>
</tr>
<tr>
<td width="13" height="10">
<img border="0" src="images/2_r4_c1.gif" width="13" height="10"></td>
<td width="744" bgcolor="#69B4FE"></td>
<td width="13">
<img border="0" src="images/2_r4_c11.gif" width="13" height="10"></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</td>
<td width="57"> </td>
</tr>
<tr>
<td width="65"></td>
<td width="778">
<table border="0" width="778" cellspacing="0" cellpadding="0">
<tr>
<td width="778" height=7></td>
</tr>
<tr>
<td width="778"><!--#include file="bottom.asp"-->
</td>
</tr>
<tr>
<td width="778">
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</td>
<td width="57"> </td>
</tr>
</table>
</td>
</tr>
</table>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?