📄 syjh.asp
字号:
</tr>
<tr>
<td height="230"></td>
<td valign="top" ><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FBF9EC">
<!--DWLayoutTable-->
<tr>
<td width="25" rowspan="3" valign="top"><p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p></td>
<td width="31" height="26"> </td>
<td width="683"> </td>
<td width="39"> </td>
</tr>
<tr>
<td height="181"> </td>
<TD vAlign=top width=813 height=110>
<DIV align=center>
<CENTER>
<DIV align=center>
<CENTER>
<DIV align=center>
<CENTER>
<DIV align=center>
<CENTER>
<DIV align=center>
<CENTER>
<%
sql="select * from info where gsid="+cstr(id)+" order by INFO_ID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"<SCRIPT language=JavaScript>alert('本公司暂无供求信息发布...');"
response.write"javascript:history.go(-1)</SCRIPT>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
else
currentPage=1
showContent
end if
end if
end if
sub showContent
%>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="85%" style="border-collapse: collapse" bordercolor="#111111" height="301">
<TBODY>
<TR>
<TD valign=top height="301">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD align=right>
<p align="left"><B>
<%showpage totalput,MaxPerPage,"syjh.asp"%>
</b></TD>
</TR>
</TBODY>
</TABLE>
<div align="center">
<center>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="92%" style="border-collapse: collapse" bordercolor="#111111">
<TR>
<TD height="10" colspan="2" background="images/line_gr.gif"></TD>
</TR>
</TABLE>
</center>
</div>
<%do while not rs.eof%>
<div align="center">
<center>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="92%" style="border-collapse: collapse" bordercolor="#111111" height="10">
<TBODY>
<TR height="30">
<TD align=left> <b><img border="0" src="../images/logo_min.gif"> <span style="font-size: 10.5pt"> <a href="javascript:show_sader("../../syjh/business_info.asp?info_id=<%=rs("info_id")%>")"><%=rs("showname")%></a></span></b> <%=rs("dateandtime")%><font color="#fc9603"> 【<%=rs("type")%>】</font></TD>
</TR>
<TR height="30">
<TD><%=mid(rs("content"),1,200)%><a href="javascript:show_sader("../../syjh/business_info.asp?info_id=<%=rs("info_id")%>")">[<font color="#FF6600">详细信息</font>]</a></TD>
</TR>
<TR>
<TD height="1"></TD>
</TR>
<TR>
<TD height="10" background="images/line_gr.gif"></TD>
</TR>
</TBODY>
</TABLE>
</center>
</div>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
rs.close
set rs=nothing
%>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tr>
<td colspan="2"><%showpage totalput,MaxPerPage,"syjh.asp"%></td>
</tr>
</table></TD>
</TR>
</TABLE>
<%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<form method=Post action="&filename&">"
if CurrentPage<2 then
response.write "<div align=center>"
response.write "<table border=0 width=92% cellspacing=0 cellpadding=5>"
response.write "<tr height=0><td colspan=2></td></tr>"
response.write "<tr height=0>"
response.write "<td align=left valign=top>"
response.write "<font color=red><b>共"&n&"页 第"&CurrentPage&"页 "
response.write "共有"&totalnumber&" 条供求信息</b></font>"
response.write "</td>"
response.write "<td VALIGN=middle align=right >"
response.write "【最前页】【上一页】"
else
response.write "<div align=center>"
response.write "<table border=0 width=92% cellspacing=0 cellpadding=5>"
response.write "<tr height=0><td colspan=2></td></tr>"
response.write "<tr height=0>"
response.write "<td align=left valign=top>"
response.write "<font color=red><b>共"&n&"页 第"&CurrentPage&"页 "
response.write "共有"&totalnumber&" 条供求信息</b></font>"
response.write "</td>"
response.write "<td VALIGN=center align=right >"
response.write "【<a href="&filename&"?page=1&id="&id&">最前页</a>】"
response.write "【<a href="&filename&"?page="&CurrentPage-1&"&id="&id&">上一页</a>】"
end if
if n-currentpage<1 then
response.write "【下一页】【最后页】"
else
response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&id="&id&">"
response.write "下一页</a>】【 <a href="&filename&"?page="&n&"&id="&id&">最后页</a>】"
end if
response.write "</form>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
end function
%>
<TABLE height=40 cellSpacing=0 cellPadding=0 width="90%" border=0>
<TBODY>
<TR></TR>
</TBODY>
</TABLE>
</CENTER>
</DIV>
</CENTER>
</DIV>
</CENTER>
</DIV>
</CENTER>
</DIV>
</CENTER></DIV>
</TD>
<td> </td>
</tr>
<tr>
<td height="43" valign="top"><p> </p>
<p> </p></td>
<td> </td>
</tr>
</table></td>
<td></td>
</tr>
<tr>
<td height="39"></td>
<td valign="top" ><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="778" height="16"> </td>
</tr>
<tr>
<td height="23" align="center" valign="middle"><%=rs("qymc")%> <%=year(rs("idate"))%><SPAN style="FONT-SIZE: 12px">-</SPAN><%=year(rs("idate"))+1%><SPAN style="FONT-SIZE: 12px"><BR>
客户服务:</SPAN><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a><SPAN style="FONT-SIZE: 12px"> 联系电话:</SPAN><font face="Arial"><%=rs("phone")%><br>
您是第<font color="#FF6600"><%=rs("click")%></font>
<SCRIPT src="images/counter.asp"></SCRIPT>
位访客 <br> </td>
</tr>
</table></td>
<td></td>
</tr>
</table></td>
</tr>
<tr>
<td height="17"> </td>
</tr>
</table></td>
</tr>
</table>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -