?? softview.asp
字號:
<!--#include file="Config.asp" -->
<!--#include file="inc/CHAR.asp"-->
<%
dim sql
dim rs
dim CateName,CateID,SubCateName,SubCateID
if request.QueryString("SoftID")="" then
response.write "您沒有選擇介紹鏈接，請返回"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select "&CategoryName&"_Cate.CateName,"&CategoryName&"_SubCate.SubCateName,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID from "&CategoryName&"_SoftInfo,"&CategoryName&"_Cate,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.CateID="&CategoryName&"_Cate.CateID and "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID and "&CategoryName&"_SoftInfo.SoftID="&request.QueryString("SoftID")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "沒有介紹鏈接，請返回"
response.end
else
SoftName=trim(rs("SoftName"))
CateID=trim(rs("CateID"))
SubCateID=trim(rs("SubCateID"))
CateName=trim(rs("CateName"))
SubCateName=trim(rs("SubCateName"))
end if
rs.close
%>
<HTML><HEAD><TITLE><%= Title_Name %> =>> <%= CategoryName_CHS %> =>> <%=SoftName%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="安徽二手市場">
<link href="css.css" rel="stylesheet" type="text/css">
</HEAD>
<SCRIPT LANGUAGE=javascript>
<!--
function Juge(myform)
{
if (document.myform.UserName.value==""){
alert ("你的用戶名不可為空！");
document.myform.UserName.focus();
return(false);
}
if ((document.myform.Email.value.indexOf("@") == -1) || (document.myform.Email.value.indexOf(".") == -1)){
alert("請查看您的E-mail地址是否正確，請重錄入!");
document.myform.Email.focus();
return(false);
}
if (myform.content.value == "")
{
alert("評論內容不能為空！");
myform.content.focus();
return (false);
}
}
//-->
</script>
<BODY text=#003300 vLink=#002200 leftMargin=0 topMargin=0>
<!--#include file="top.asp" -->
<!--#include file="navbar.asp" -->
<br>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="185" height="734" valign="top"><table width="205" border="0" cellpadding="0" cellspacing="0" class="index">
<tr>
<td height="20">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber9" height="27">
<tr>
<td height="22" valign="middle" bgcolor="#E6E6E6"> <font color="#333333">·</font><b>今天最受歡迎信息</b><font color="#333333">·</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="48" bgcolor="#F9F9F9"><table width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
<tr>
<td height="24"><%
sql="select top 6 SoftID,SoftName,Softtype,SoftTime,AllHits from "&CategoryName&"_SoftInfo where CateID="&CateID&" order by DayHits desc,SoftID desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>沒有排行</p>"
else
do while not rs.eof
response.write "<li><a href=""SoftView.asp?SoftID="& rs("SoftID")&""" class=""ArticleList"">"& trim(rs("SoftName")) & " </a></li><br><br>"
rs.movenext
loop
end if
rs.close
%> </td>
</tr>
</table></td>
</tr>
</table>
<br> <table width="205" border="0" cellpadding="0" cellspacing="0" class="index">
<tr>
<td height="20">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber9" height="27">
<tr>
<td height="22" valign="middle" bgcolor="#E6E6E6"> <b> <font color="#333333">·</font>本周最受歡迎信息</b><font color="#333333">·</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="56">
<br>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="23"><%
sql="select top 7 SoftID,SoftName,softtype,SoftTime,AllHits from "&CategoryName&"_SoftInfo where CateID="&CateID&" order by MonthHits desc,SoftID desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>沒有排行</p>"
else
do while not rs.eof
response.write "<li><a href='SoftView.asp?SoftID="& rs("SoftID")&"' >"& trim(rs("SoftName"))& " </a></li><br><br>"
rs.movenext
loop
end if
rs.close
%></td>
</tr>
</table>
</td>
</tr>
</table> </td>
<td width="593" valign="top"> <%
select case request("action")
case "savereinfo" '保存留言信息
call savereinfo()
case else
call ShowSoftInfo() '查看ftp信息
end select
sub SaveReInfo()
dim userip_temp
userip_temp=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if userip_temp="" then
userip_temp=Request.ServerVariables("REMOTE_ADDR")
end if
sql="select * from "&CategoryName&"_SoftEssay where (ID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("SoftID")=trim(request("SoftID"))
rs("UserName")=trim(request.form("UserName"))
rs("Email")=trim(request.form("Email"))
rs("content")=UBBCode(request.form("content"))
rs("dateTime")=Now()
rs("UserIP")=userip_temp
rs("type")="soft"
rs.update
rs.close
sql="select count(ID) as reNum from "&CategoryName&"_SoftEssay where SoftID="&request("SoftID")&" and type='soft'"
rs.open sql,conn,1,1
reNum=rs("reNum")
rs.close
conn.execute("update "&CategoryName&"_SoftInfo set EssayNum="&reNum&" where SoftID="&request("SoftID")&" ")
call ShowSoftInfo()
end sub
Sub ShowSoftinfo()
sql="select * from "&CategoryName&"_SoftInfo where SoftID="&request.QueryString("SoftID")
rs.open sql,conn,1,1
PubUserName=rs("UserName")
EssayNum=rs("EssayNum")
keys=rs("SoftName")
%>
<div align="center"><center>
<table width="565" border="0" align="right" cellpadding="0" cellspacing="0" class="index" style="border-collapse: collapse">
<tr>
<td height="28" colspan="2" align="center" nowrap>物品名稱：</td>
<td height="28" colspan="2"><b><%=rs("SoftName")%></b> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="23" colspan="2" align="center" nowrap>新舊程度：</td>
<td width="398" height="23"><%if rs("softver")="" then
response.write"10"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -