softview.asp
来自「.asp网站程序。专业的二手汽车商店网站。功能强大」· ASP 代码 · 共 363 行 · 第 1/2 页
ASP
363 行
else
response.write(trim(rs("softver")))
end if%>成新</td>
<td width="81" rowspan="5" align="right" valign="middle"> <%
if not isnull(rs("images")) and rs("images")<>"" then
response.write "<img src='"&rs("Images")&"' width='100' height='120' border=0>"
end if
%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="22" colspan="2" align="center" nowrap>交易类型：</td>
<td height="22"><%=trim(rs("softtype"))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="2" align="center" nowrap>所属类别：</td>
<td height="23"> <%=CateName%>中的<%=SubCateName%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" colspan="2" align="center" nowrap>交易地区：</td>
<td height="26"><%=trim(rs("LicenceType"))%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" colspan="2" align="center" nowrap>物品价格：</td>
<td height="26"><% if rs("softsize")="0" then
Response.Write"价格面议"
else
Response.Write(round(rs("SoftSize")))&"元（RMB）"
end if
%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="2" align="center" nowrap>整理时间：</td>
<td height="25"><%=rs("SoftTime")%></td>
<td width="81" height="25" align="center" valign="top"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" colspan="2" align="center" nowrap>联系电话：</td>
<td height="26"><%=rs("SoftFrom")%></a></td>
<td width="81" height="26" align="center" valign="top"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="16" align="center" nowrap> </td>
<td height="16" align="center" nowrap> </td>
<td height="16" align="center" nowrap> </td>
<td height="16" align="center" nowrap> </td>
<td width="11" height="16"> </td>
</tr>
<tr>
<td height="13" colspan="2" align="center" valign="top" nowrap> 信息简介：</td>
<td height="13" colspan="2"> <%=UBBCode(rs("Content"))%><br>
<br></td>
</tr>
<tr>
<td height="25" align="center" valign="top" nowrap> </td>
<td height="25" align="center" valign="top" nowrap bgcolor="#F2F2F2"> </td>
<td height="25" align="center" valign="top" nowrap bgcolor="#F2F2F2"> </td>
<td height="25" align="center" valign="top" nowrap bgcolor="#F2F2F2"> </td>
</tr>
<% rs.close %>
<%
sql="select SoftID,SoftName,SoftVer from "&CategoryName&"_SoftInfo where SoftName like '%"& left((keys),8) &"%' and SoftID<>" & request.QueryString("SoftID")
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
%>
<tr>
<td height="44" colspan="2" align="center" nowrap><font color="#339900"><b>相关物品：</b></font></td>
<td colspan="2" class="td1">
<% do while not rs.eof response.write "<li><a href='SoftView.asp?SoftID="& rs("SoftID")&"' >"& trim(rs("SoftName"))& " </a></li>"
%><% rs.movenext
loop %> </td>
</tr>
<% end if
rs.close
%>
<tr bgcolor="#FFFFFF">
<td height="79" align="center" valign="top" bgcolor="#FFFFFF"> </td>
<td height="79" align="center" valign="top"><br>
本站声明：</td>
<td colspan="2"><br>
1、在这里，您可以刊登想发布的各种买卖信息。同时请您对您的言行负责，遵守中华人民共和国有关法律、法规；尊重网上道德并遵守诚实信用原则；禁止利用本栏目进行危害国家和恶意攻击他人的行为；本栏目保留删除违规留言权利；本栏目中的言论若违反规定而受到法律追究者，责任自负。<br>
2、在本站阅读和发布所有的信息都是免费的，网友购买二手物品时，一定要仔细测试，以免上当受骗。<br> <br>
</td>
</tr>
<tr bgcolor="#F2F2F2">
<td width="5" height="26" align="center" bgcolor="#FFFFFF"> </td>
<td width="68" align="center">用户留言：</td>
<td colspan="2">
<% if EssayNum=0 then
response.write "目前没有用户留言。"
else
response.write "共有<b><font color=red>"&EssayNum&"</font></b>人留言."
response.write "『<a href=""ShowEssay.Asp?SoftID="&request.QueryString("SoftID")&""" target=""_blank"">查看留言</a>』"
end if
dim userip_temp
userip_temp=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if userip_temp="" then
userip_temp=Request.ServerVariables("REMOTE_ADDR")
end if
Response.Write(" 来自<b>"&userip_temp&"</b>的朋友，如果对此信息感兴趣，你可留言！")
%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="4" align="right"><table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" valign="top" align="center">
<br>
<table width="100%" border="0" align="right" cellpadding="0" cellspacing="0" bgcolor="#E7E7E7" class="index">
<form name="myform" method="post" action="" target="_top" onSubmit="return Juge(this)" >
<tr>
<td height="22" colspan="3" bgcolor="#FFFFFF">
<% sql="select top 5 * from "&CategoryName&"_SoftEssay where SoftID="&request.QueryString("SoftID")&" order by ID desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'><font color=#663300>没有人留言</font></p>"
else
do while not rs.eof
if len(Trim(rs("Content")))>65 then
response.write "<li>"&left(Trim(rs("Content")),64)&".. [<font color=""red"">"&rs("UserName")&" "&DateTimeFormat(rs("DateTime"),2)&"</font>]"
else
Response.Write "<li>"&Trim(rs("Content")) & " [网友<font color=""red"">"&rs("UserName")&"</font>在"&DateTimeFormat(rs("DateTime"),2)&"这样写的！]"
end if
rs.movenext
loop
end if
rs.close
Response.Write("</li>")
%>
</td>
</tr>
<tr bgcolor="#F9F9F9">
<td width="57" height="21"><div align="center">用 户：</div></td>
<td colspan="2">
<input type="text" name="UserName" maxlength="15" size="28" style="height: 16px;BORDER-BOTTOM: #888888 1px solid; BORDER-LEFT: #888888 1px solid; BORDER-RIGHT: #888888 1px solid; BORDER-TOP: #888888 1px solid; font-size: 9pt">
<font color="#FF0000">！</font> </td>
</tr>
<tr bgcolor="#F9F9F9">
<td width="57" height="22"><div align="center">Email：</div></td>
<td colspan="2">
<input type="text" name="Email" maxlength="50" size="28" style="height: 16px;BORDER-BOTTOM: #888888 1px solid; BORDER-LEFT: #888888 1px solid; BORDER-RIGHT: #888888 1px solid; BORDER-TOP: #888888 1px solid; font-size: 9pt">
<font color="#FF0000">！</font><input type="Hidden" name="SoftID" value='<%=request("SoftID")%>'>
<input type="Hidden" name="action" value='savereinfo'> </td>
</tr>
<tr bgcolor="#F9F9F9">
<td width="57" rowspan="2"><div align="center">内 容：</div></td>
<td width="240">
<textarea name="content" cols="35" rows="5" title="请注意用语文明且合法，不要发布带有攻击性的言论，谢谢合作！" style="BORDER-BOTTOM: #888888 1px solid; BORDER-LEFT: #888888 1px solid; BORDER-RIGHT: #888888 1px solid; BORDER-TOP: #888888 1px solid; font-size: 9pt"></textarea><font color="#FF0000">！</font> </td>
<td width="268" rowspan="2" valign="bottom"> </td>
</tr>
<tr bgcolor="#FCFCFC">
<td><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重设">
(注：“<font color="#FF0000">！</font>”为必填内容。) </td>
</tr>
</form>
<tr bgcolor="#FCFCFC">
<td height="18" colspan="3">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="153%" valign="top">
</td>
</tr>
</table> </td>
</tr>
</table> </td>
</tr>
</table>
<br></td>
</tr>
</table>
</center>
</div> <%end sub %> </td>
</tr>
</table> <br>
<!--#include file="end.asp" -->
</BODY></HTML>
<%
set rs=nothing
CloseDatabase
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?