📄 gqinfo.asp
字号:
<!--#include file="xbqq_head.asp" -->
<%
sub navigation()
response.write " >> "
response.write "<a href='buy.asp'>供求信息</a>"
response.write " >> "
response.write "信息浏览"
end sub
%>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="50" bgcolor="#FFFFFF">
<tr>
<td width="218" valign="top">
<%
Xbqq_login
xbqq_Marquee
xbqq_Search
%>
</td>
<td width="560" valign="top">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="550" height="28" id="table1" background="xbqq_img/kind1.gif">
<tr>
<td> <img border="0" src="xbqq_img/ico1.gif" width="11" height="9">
<font color="#FFFFFF">供求信息浏览</font> </td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="550" height="5">
<tr>
<td></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="550" height="160" style="border: 1px solid #FF7500">
<tr>
<td bgcolor="#FFFFFF" width="100%">
<!--新闻文章开始-->
<TABLE cellSpacing=3 cellPadding=5 width="100%" border=0>
<%
dim sql
dim rs
dim rstype
dim typesql
dim title
ID=CheckStr(Request.QueryString("ID"))
If isInt(ID)=False OR Not IsNumeric(ID) Then
Response.Redirect "buy.asp"
Response.End()
End If
set rs=server.createobject("adodb.recordset")
sql="update xbqqgq set dj=dj+1 where ID="&ID&""
rs.open sql,conn,1,3
%>
<%
ID=CheckStr(Request.QueryString("ID"))
If isInt(ID)=False OR Not IsNumeric(ID) Then
Response.Redirect "buy.asp"
Response.End()
End If
set rs=server.createobject("adodb.recordset")
rs.Open "Select * From xbqqgq where id="&id, conn,3,3
if rs.bof and rs.eof then
response.Redirect("News.asp")
end if
%>
<TR>
<TD align="center"><strong><%=rs("title")%></strong></TD>
</TR>
<TR>
<TD align="center"><hr size="1" width="80%" height="1"><a href="http://<%=Gaobei_http%>" target=_blank><%=Gaobei_http%></a> <%=rs("time")%></TD>
</TR>
<TR>
<TD height=34 style="line-height: <%=Gaobei_line_H%>"><%=rs("Content")%></TD>
</TR>
</TABLE>
<table width="548" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFCC66">
<tr>
<td width="193" height="34">
联系人:<%=rs("lxr")%>
</td>
<td width="180" height="34" bgcolor="#FF7500">
联系电话:<%=rs("tel")%></td>
<td width="175" height="34" bgcolor="#FFCC66">
IP地址:<%=rs("ip")%></td>
</tr>
<tr>
<td width="193" height="34" bgcolor="#FF7500">
邮件:<%=rs("email")%>
</td>
<td width="180" height="34">
所属省份:<%=rs("where")%></td>
<td width="175" height="34" bgcolor="#FF7500">
有效期至:<%=DateTimeFormat(rs("dqtime"),3)%></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="362" height="34"> </td>
<td width="186">【<a href='buy.asp'>返回</a>】 【<a href="javascript:window.scroll(0,-360)">顶部</a>】
【<a href="javascript:self.close()">关闭</a>】</td>
</tr>
</table>
<!-- 新闻文章结束-->
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
<!--#include file="xbqq_foot.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -