business.asp

烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够好,就送给大家了. 1. 栏目包括 最新信息,下载,影音娱乐,作品展示,定制业务,支持服务,留言,关于本站. 2.管理员

<!--#include file="inc/syscode.asp"-->
<!--#include file="top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=178 background=images/leftftbg.gif>
      <DIV align=center>
      <TABLE cellSpacing=0 cellPadding=0 width=178 border=0>
        <TBODY>
        <TR>
          <TD width=178><!--#include file="index_ywjs.asp"--></TD>
        </TR>
        <TR>
          <TD height=10></TD></TR>
        <TR>
          <TD><!-- 作品列表 --><!--#include file="L_product.asp"--></TD></TR>
        <TR>
          <TD height=10></TD></TR>
        <TR>
          <TD><!-- 站内调查 --><!-- #include file="L_vote.asp" --></TD></TR>
        <TR>
          <TD background=images/leftbg.gif height=5></TD></TR>
</TBODY></TABLE>
    </TD>
<!--********************左栏部分结束**********************-->
    <TD  bgcolor="#FFFFFF" valign=top>

<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from job order by id desc"
rs.open sqltext,conn,1,1

dim MaPerPage
MaPerPage=4

dim text,checkpage
text="0123456789"
Rs.PageSize=MaPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if

call showpages
call list

If Rs.recordcount > MaPerPage then
call showpages
end if

'显示帖子的子程序
Sub list()%>
				
				<table width="100%" border="0" align="center" cellpadding="0" cellspacing="3" bgcolor="#FBFEFF">
					<tr> 
						
            <td height="24"><strong><font size="2">定制业务:</font></strong>(共有:<FONT COLOR=RED><%=(Cstr(Rs.RecordCount))%></FONT>个定制项目)</td>
					</tr>
					<tr> 
						<td height="1" bgcolor="#c0c0c0"></td>
					</tr>
                                </table>	
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>			
<%
if not rs.eof then
i=0
do while not rs.eof
%> <td>
<table width="98%"  border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#c0c0c0">
  <tr>
    <td width="80" bgcolor="#f1f1f1"><div align="center">定制业务</div></td>
    <td width="210" bgcolor="#FFFFFF"><%=rs("Duix")%></td>
    <td width="80" bgcolor="#f1f1f1"><div align="center">发布日期</div></td>
    <td width="200" bgcolor="#FFFFFF"><%=rs("time")%></td>
  </tr>
  <tr>
    <td width="80" bgcolor="#f1f1f1"><div align="center">制作费用</div></td>
    <td bgcolor="#FFFFFF"><%=rs("daiy")%></td>
    <td width="80" bgcolor="#f1f1f1"><div align="center">工作时日</div></td>
    <td bgcolor="#FFFFFF"><%=rs("Rens")%></td>
  </tr>
  <tr>
    <td width="80" bgcolor="#f1f1f1"><div align="center">业务风格</div></td>
    <td bgcolor="#FFFFFF"><%=rs("did")%></td>
    <td width="80" bgcolor="#f1f1f1"><div align="center">业务演示</div></td>
    <td bgcolor="#FFFFFF"><%if rs("Qix")<>"" then%><a href=<%=rs("Qix")%> target=_blank>我要看看</a><%else%>暂时没有<%end if%></td>
  </tr>
  <tr>
    <td width="80" bgcolor="#f1f1f1"><div align="center">栏目内容</div></td>
    <td colspan="3" bgcolor="#FFFFFF"><%=rs("yaoq")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td colspan="4"><div align="right"><a href="AcceptJob.asp?job=<%=rs("Duix")%>">我要定制</a></div></td>
    </tr>
</table>
</td></tr>
<tr>
    <td height=5></td>
</tr>
<% 
i=i+1 
if i >= MaPerpage then exit do 
rs.movenext 
loop 
end if 
%>
</table>
				<table width="99%" height="19" border="0" align="center" cellpadding="0" cellspacing="0">				
                                        <tr> 
						<td width="100%" height=30 align=right> 
<%
Response.write "<font color='#000000'>第</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) &  "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font>&nbsp;"
If currentpage > 1 Then
response.write "<a href='News.asp?&page="+cstr(1)+"'><font color='#000000'>首页</font></a><font color='#ffffff'> </font>"
Response.write "<a href='News.asp?page="+Cstr(currentpage-1)+"'><font color='#000000'>上一页</font></a><font color='#ffffff'> </font>"
Else
Response.write "<font color='#000000'>上一页 </font>"
End if
If currentpage < Rs.PageCount Then
Response.write "<a href='News.asp?page="+Cstr(currentPage+1)+"'><font color='#000000'>下一页</font></a><font color='#ffffff'> </font>"
Response.write "<a href='News.asp?page="+Cstr(Rs.PageCount)+"'><font color='#000000'>尾页</font></a></strong>&nbsp;&nbsp;"
Else
Response.write ""
Response.write "<font color='#000000'>下一页</font>&nbsp;&nbsp;"
End if
'response.write "</td><td align='right'>"
'response.write "<font color='#000000' >转到：</font><input type='text' name='page' size=4 maxlength=4 class=smallInput value="&Currentpage&">&nbsp;"
'response.write "<input class=buttonface type='submit'  value='Go'  name='cndok'>&nbsp;&nbsp;"
%> 
						</td>
					</tr>

				</table>
<%
End sub
rs.close
%> 
    </TD>
 </tr>
</table>
<!-- 底部信息部分 --><!-- #include file="foot.asp" -->