?? gqinfo.asp
字號(hào):
<!--#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%">
<!--新聞文章開(kāi)始-->
<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">
聯(lián)系人:<%=rs("lxr")%>
</td>
<td width="180" height="34" bgcolor="#FF7500">
聯(lián)系電話:<%=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()">關(guān)閉</a>】</td>
</tr>
</table>
<!-- 新聞文章結(jié)束-->
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
<!--#include file="xbqq_foot.asp" -->
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -