📄 productview.asp
字号:
function WebContent()
dim ID
ID=request.QueryString("ID")
if ID="" or (not isnumeric(ID)) then
response.write "<div align='center'>数据读取异常错误</div>"
exit function
end if
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from ameav_Products where ViewFlag and ID="&ID
rs.open sql,conn,1,3
response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
if rs.bof and rs.eof then
response.write "<tr><td>暂无相关信息</td></tr>"
else
if ViewNoRight(rs("GroupID"),rs("Exclusive")) then
dim BigPicPath,ProductName,ProductNo,ClickNumber
BigPicPath=HtmlSmallPic(rs("GroupID"),rs("BigPic"),rs("Exclusive"))
if StrLen(rs("ProductName"))<=18 then
ProductName=rs("ProductName")
else
ProductName=StrLeft(rs("ProductName"),16)
end if
ProductNo=rs("ProductNo")
ClickNumber=rs("ClickNumber")
response.write "<tr><td valign='top' align=center>"
'response.write "<a href='"&BigPicPath&"' target='_blank'><img src='"&BigPicPath&"' border='0' width='500' height='350'></a>"
response.write "<div id='append_parent'></div>"
%>
<a href='#zoom'><img onclick="zoom(this, '<%=BigPicPath%>');" src="<%=BigPicPath%>" onload="javascript:if(this.width>1000)this.width=1000" border='0' width='200' height='300'></a>
<%
response.Write "</td></tr>"
response.write "<tr><td height='10'></td></tr>"
response.write "<tr><td height='10' align=center>编号："&ProductNo&" <font color=red>共"&ClickNumber&"票</font> <a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>"&ProductName&"</a> "
if memclock=1 then
if session("MemName")="" then
response.write "<a href=# onClick='Confirmst();'>投票</a>"
else
response.write "<a href='PhotoVote.asp?id="&rs("id")&"&name="&rs("ProductName")&"'>投票</a>"
end if
else
response.write "<a href='PhotoVote.asp?id="&rs("id")&"&name="&rs("ProductName")&"'>投票</a>"
end if
' response.write " <a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"&#pl'>评论</a></td></tr>"
response.write "<tr><td height='22' ><b>人物简述：</b></td>"
response.write "<td align='center'></td></tr>"
response.write "<tr><td colspan='2' height='12'></td></tr>"
response.write "<tr><td colspan='2' width='604'>"&rs("Content")&"</td></tr>"
else
response.write "<tr><td colspan='2'><hr width='100%' size='1' noshade='noshade' color='#FF0000'></td></tr>"
response.write "<tr><td width='424'>名称：<font style='font-weight: bold;color: #1874CD'>"&rs("ProductName")&"</font></td><td width='180'>时间："&rs("AddTime")&"</td></tr>"
response.write "<tr><td colspan='2'><hr width='100%' size='1' noshade='noshade' color='#FF0000'><div align='center'><img src='../Images/NoRight.jpg'></div></td></tr>"
end if
response.write "<tr><td class='ListTitle' colspan='2'></td></tr>"
response.write "<tr><td>投票数："&rs("ClickNumber")&"</td>"
response.write "<td align='right'><a href='#TOP'><img src='../Images/Button_top_01.gif' align='absbottom' border='0'></a></td></tr>"
rs.update
end if
response.write"</table>"
rs.close
set rs=nothing
end function
%>
<%
function HeadNavigation()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from ameav_Navigation where ViewFlag order by Sequence asc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "<tr><td height='30' align='center'><font color='white'>暂无导航链接</font></td></tr>"
else
response.write "<tr >"
do
response.write "<td align='center' class='Navigation' bgcolor='#000000'><a href='"&rs("NavUrl")&"'>"&rs("NavName")&"</a></td>"
rs.movenext
if not rs.eof then response.write "<td width='1'><img src='../Images/Head_compart_line.gif' align='absmiddle'></td>"
loop until rs.eof
response.write "</tr>"
end if
response.write "<tr><td width='100%' height='1' colspan='"&rs.recordcount*2-1&"'></td></tr>"
rs.close
set rs=nothing
end function
function SearchForm()
response.write "<table width='170' border='0' cellpadding='0' cellspacing='0'>" &_
"<form action='Search.asp' method='post' name='SearchForm'>" &_
" <tr>" &_
" <td width='60' height='20' >关键字：</td>" &_
" <td height='24' colspan='2' ><input name='Keyword' type='text' style='WIDTH: 100;' class='AllSearch'></td>" &_
" </tr>" &_
" <tr>" &_
" <td height='20' >范 围：</td>" &_
" <td width='82' height='24'>" &_
" <select name='Range' style='WIDTH: 82;'>" &_
" <option value='Products'>选手名称</option>" &_
" <option value='News'>新闻报道</option>" &_
" </select>" &_
" </td>" &_
" <td width='16' height='24' class='AllSearch'><input name='Login' type='submit' class='button' value='搜索' /></td>" &_
" </tr>" &_
"</form>" &_
"</table>"
end function
function Search()
response.write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>" &_
"<form action='Search.asp' method='post' name='SearchForm'>" &_
"<tr><td align='right'><font color='red'>关键字：</font> <input name='Keyword' type='text' style='WIDTH: 100;' class='AllSearch'>" &_
" <font color='red'>范 围：</font> <select name='Range' style='WIDTH: 82;'>" &_
" <option value='Products'>选手名称</option>" &_
" <option value='News'>新闻报道</option>" &_
"</select>" &_
"<input name='Login' type='submit' class='button' value='搜索' />" &_
" </td></tr>" &_
"</form>" &_
"</table>"
end function
function TopVote()
dim rs,sql,i
set rs = server.createobject("adodb.recordset")
sql="select * from ameav_Products where ViewFlag order by ClickNumber desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂无相关信息"
end if
for i=1 to 10
if rs.eof then exit for
response.write "<table width=100% ><tr><td ></td><td ><img src='../images/"&i&".gif' border='0'></td><td class='ListTitlv'><a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>"&rs("ProductName")&"</a></td><td class='ListTitlv'><font color=red>"&rs("ClickNumber")&"</font> 票</td></tr></table>"
rs.movenext
next
rs.close
set rs=nothing
end function
function TopNews()
dim rs,sql,i,NewsName
set rs = server.createobject("adodb.recordset")
sql="select ID,NewsName,SortID from ameav_News where ViewFlag order by id desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂无相关信息"
end if
for i=1 to 10
if rs.eof then exit for
if StrLen(rs("NewsName"))<=22 then
NewsName=rs("NewsName")
else
NewsName=StrLeft(rs("NewsName"),24)
end if
response.write "<table ><tr><td><img src='../images/bg.gif' border='0'></td><td class='ListTitlv' width='90%'><a href=NewsView.asp?ID="&rs("ID")&"&SortID="&rs("SortID")&">"&NewsName&"</a></td></tr></table>"
rs.movenext
next
rs.close
set rs=nothing
end function
function MemberLogin()
if session("MemName")="" or session("GroupID")="" or session("MemLogin")<>"Succeed" then
response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>" &_
"<form name='formLong' method='post' action='MemberLogin.asp'>" &_
" <tr>" &_
" <td align='right'>" &_
" 用户名：<input name='LoginName' type='text' class='MemLogin' size='12' maxlength='16' />" &_
" 密 码：<input name='LoginPassword' type='password' class='MemLogin' size='12' maxlength='16' />" &_
" <input name='Login' type='submit' class='button' value='登录' />" &_
" <input name='Register' type='button' class='button' value='注册' onclick=""location.href='MemberRegister.asp'"" /> <input name='LostPass' type='button' class='button' value='忘密' onclick=""location.href='MemberLost.asp'"" /></td>" &_
" </tr>" &_
"</form>" &_
"</table>"
else
response.write "您好，" &_
"<font style='font-family:Verdana,Arial,宋体;font-size:12px;color:#FF0000;font-weight: bold;'>"&session("MemName")&"</font>" &_
" ["&MemGroup(session("GroupID"))&"]" &_
" | <a href='MemberInfo.asp'><font color='#1874CD'>帐户管理</font></a> " &_
"<input name='LoginOut' type='button' class='button' onclick=""location.href='MemberLogin.asp?Action=Out'"" value='退出' />"
end if
end function
function MemGroup(GroupID)
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from ameav_MemGroup where GroupID='"&GroupID&"'"
rs.open sql,conn,1,1
MemGroup=rs("GroupName")
rs.close
set rs=nothing
end function
%>
<!--#include file="Foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -