📄 index.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="check.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><% =Title %> - 首页</title>
<%
Set mRs=Server.CreateObject("adodb.recordSet")
Sql="Select * from shuju where del = 0 order by id desc"
mRs.open Sql,conn,1,1
If mRs.bof and mRs.eof then
Response.Write"<script>alert('报价系统中至少要有一条记录!!请您现在添加后将会恢复正常显示');this.location.href='add.asp';</Script>"
Else
mRs.PageSize =20'每页记录条数
iCount=mRs.RecordCount '记录总数
iPageSize=mRs.PageSize
maxpage=mRs.PageCount
page=request("page")
If Not IsNumeric(page) or page="" then
page=1
Else
page=cint(page)
End If
If page<1 then
page=1
ElseIf page>maxpage then
page=maxpage
End If
mRs.AbsolutePage=Page
If page=maxpage then
x=iCount-(maxpage-1)*iPageSize
Else
x=iPageSize
End If
End If
%>
<style>
<!--
.shellTable
{
position: relative;
top: 2px;
z-index: 1;
background-color: #d3e2e9;
background-image: url('img/bg_middle_aurora.jpg');
background-repeat: repeat-x
}
.glassTableBottom {
background: #d3e2e9 url('img/bg_hero_aurora_IE_Yellow.jpg') no-repeat bottom; }
.glassTable
{
background-image: url('img/bg_hero_aurora.jpg');
background-repeat: no-repeat;
background-color:#d3e2e9; background-position-y:center
}
table.porcelainItem
{
display:inline;
cursor:pointer;
font-family:Verdana;
font-size:140%;
}
table.porcelainItemCurrent
{
display:inline;
cursor:pointer;
font-family:Verdana;
font-size:140%;
}
table.porcelainItemCurrent td.itemLeft
{
background-image: url('img/por_active_cap_lft.gif');
}
table.porcelainItemCurrent td.itemMiddle
{
background-image: url('img/por_active_bkg_span.gif');
}
table.porcelainItemCurrent td.moreArrow
{
background-image:url('img/por_active_bkg_span.gif');
}
table.porcelainItemCurrent td.itemRight
{
background-image: url('img/por_active_cap_rt.gif');
}
table.porcelain2Item
{
display:inline;
cursor:pointer;
font-family:Verdana;
font-size:140%;
}
.glassBorderLeft
{
background-image: url('img/bg_glass_borderleft.jpg');
background-repeat: repeat-y
}
.ieHero {height: 296px;}
.ieHeroHomeLinks {padding-top: 170px;}
.ieHeroLinks {padding-top: 170px;}
#downloadLink {display: none;} .ieHeroBoldText {font-weight: bold;}
.subnavigationIESelected
{
background-image: url('img/btn_232x24_a.gif');
}
.subnavigationIE
{
background-image: url('img/btn_232x24.gif');
}
.tabContainer
{
background-image: url('img/vert_tab_bkg.png');
}
.tabLabelTopSelected
{
position:relative;
left:1px;
}
.tabLabelTopSelected
{
background-image: url('img/vert_tab_top_active.png');
}
.tabLabelSelected
{
position:relative;
left:1px;
}
.tabLabelSelected
{
background-image: url('img/vert_tab_bkg_active.png');
}
.tabArrow
{
background-image: url('img/arrow_green_rt.gif');
}
.tabLabelBottomSelected
{
position:relative;
left:1px;
}
.tabLabelBottomSelected
{
background-repeat: no-repeat;
background-image: url('img/vert_tab_btm_active.png');
}
.tabLabelTop
{
position:relative;
left:1px;
}
.tabLabel
{
position:relative;
left:1px;
}
.tabLabelBottom
{
position:relative;
left:1px;
}
.tabLabelBottom
{
background-image: url('img/vert_tab_divline.png');
}
.tabContentContainerSmall
{
background-image: url('img/vert_tab_contnt_bkg_331.png');
}
.ieQuickLinksSpanBkg
{
background-image: url('img/bkg_quicklinks_ie_span.png');
}
.ieQuickLinksBtmBkg
{
background-image: url('img/bkg_quicklinks_ie_btm.png');
}
.ieQuickLinksTopBkg
{
background-image: url('img/bkg_quicklinks_ie_top.png');
}
.glassBorderRight
{
background-image: url('img/bg_glass_borderright.jpg');
background-repeat: repeat-y
}
-->
body,td,th {
font-size: 12px;
color: #666666;
}
.input {
font-size: 12px;
border: 1px solid #CCCCCC;
background-color: #FFFFFF;
width: 130px;
}
.style {
font-size: 12px;
color: #FF6600;
}
a:link {
color: #666666;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #666666;
}
a:hover {
text-decoration: none;
color: #FF6600;
border-bottom-width: 1px;
border-top-style: none;
border-right-style: none;
border-bottom-style: dashed;
border-bottom-color: #FF6600;
}.line {
border-top-style: none;
border-right-style: none;
border-bottom-style: dashed;
border-left-style: none;
border-bottom-color: #CCCCCC;
border-bottom-width: 1px;
font-size: 12px;
}
.button {
border: 1px solid #CCCCCC;
font-size: 12px;
background-color: #FFFFFF;
}
.STYLE5 {color: #FFFFFF}
</style>
</head>
<body topmargin="0">
<div id="msviMasthead">
<div id="page">
<table border="0" width="986" cellspacing="0" cellpadding="0" background="img/bg_header_aurora.jpg" id="table125" height="68">
<tr>
<td colspan="2" rowspan="4">
<p align="center"><img src=<%=Logo%> alt="1" width="58" height="59"></td>
<td width="374"> </td>
<td width="12"> </td>
<td colspan="2" valign="middle"> </td>
<td width="23" valign="middle"><div align="center"><img border="0" src="img/icon_newsletter.gif" width="16" height="16"></div></td>
<td width="96" valign="middle"><font color="#FFFFFF"><a href="index.asp"><font color="#FFFFFF">首 页</font></a></font></td>
</tr>
<tr>
<td colspan="4" rowspan="2"><font color="#FFFFFF" size="+2">
<% =Title %></font></td>
<td width="23" height="26" align="center">
<img border="0" src="img/icon_community.gif" width="16" height="16"></td>
<td width="96" align="left"><font color="#FFFFFF"><a href="add.asp">
<font color="#FFFFFF">添加报价</font></a></font></td>
</tr>
<tr>
<td width="23" height="16" rowspan="2" align="center">
<img border="0" src="img/icon_quickref.gif" width="16" height="16"></td>
<td width="96" height="16" rowspan="2" align="left"><font color="#FFFFFF"><a href="admin/admin_index.asp">
<font color="#FFFFFF">系统管理</font></a></font></td>
</tr>
<tr>
<td colspan="4"> </td>
</tr>
<tr>
<td width="41">
<p align="right"></td>
<td width="105">
<p align="center"></td>
<td colspan="2">
<div align="right"></div></td>
<form action="search.asp" style="background-color: #C0C0C0">
<td width="259" valign="middle">
<p align="right">
<input type="text" name="search" class="goto" size="15" style="background-image: url('img/back.gif')" value="记录查询">
<select name="select1" class="goto" id="select1" size="1" style="background-color: #C0C0C0">
<option value="1" selected>客户名称</option>
<option value="2">报价日期</option>
<option value="3">传真号码</option>
<option value="4">电话号码</option>
</select>
</td>
<td width="76"><p align="left">
<input type="submit" name="Submit" class="goto" value="搜索">
</td>
</form>
<td width="23" align="center">
<img border="0" src="img/icon_support.gif" width="16" height="16"></td>
<td width="96" align="left"><a href="check_userlogin.asp?action=Quit" class="STYLE5">
<font color="#FFFFFF">退出系统</font></a></td>
</tr>
</table>
<table class="shellTable" id="table6" cellSpacing="0" cellPadding="0" width="100%" border="0">
<td class="shellTD" id="shellTD" vAlign="middle" align="middle">
<table class="shellFrame" id="table7" cellSpacing="0" cellPadding="0" border="0">
<td vAlign="top" align="middle">
<table class="glassFrame" id="table8" cellSpacing="0" cellPadding="0" border="0">
<tr>
<td class="glassTableBottom" vAlign="top">
<table class="glassTable" id="table9" cellSpacing="0" cellPadding="0" width="962" border="0">
<tr>
<td vAlign="top" align="middle" colSpan="3">
<table id="table10" style="z-index: 99; width: 944px" cellSpacing="0" cellPadding="0" border="0">
<tr id="obsidianRow">
<td width="2">
<img border="0" src="img/obs_bkg_cap_lft.png" width="2" height="30"></td>
<td width="125" background="img/obs_bkg.png" align="center">
<font color="#FFFFFF">日
期</font></td>
<td width="174" background="img/obs_bkg.png" align="center">
<font color="#FFFFFF">客户名称</font></td>
<td width="167" background="img/obs_bkg.png" align="center">
<font color="#FFFFFF">报价项目名称</font></td>
<td width="133" background="img/obs_bkg.png" align="center">
<font color="#FFFFFF">报价人姓名</font></td>
<td width="181" background="img/obs_bkg.png" align="center">
<font color="#FFFFFF">传真号码</font></td>
<td width="159" background="img/obs_bkg.png" align="center">
<font color="#FFFFFF">报价总金额</font></td>
<td width="2">
<img border="0" src="img/obs_bkg_cap_rt.png" width="2" height="30"></td>
<td width="0">
</td>
</tr>
</table>
<%
i=1
for j=1 to mRs.pagesize
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="line">
<tr >
<td width="12%" height="25" align="center"><%=mRs("date")%></td>
<td width="19%" align="center">
<a href="qq.asp?id=<%=mRs("id")%>" target="_blank" title='请拨电话 <%=mRs("tel")%> 联系客户 <%=mRs("kfname")%> !'><%=mRs("kfname")%></a></td>
<td width="18%" align="center">
<%=mRs("cpname1")%></td>
<td width="14%" align="center"><a href="qq.asp?id=<%=mRs("id")%>" target="_blank" title='请与 <%=mRs("kfname")%> 联系!'><%=mRs("bjname")%></a></td>
<td width="19%" align="center"><a href="qq.asp?id=<%=mRs("id")%>" target="_blank" title='报价单请传真至 <%=mRs("fax")%> !'><%=mRs("fax")%></a></td>
<td width="18%" align="center"><a href="qq.asp?id=<%=mRs("id")%>" target="_blank" title='请与 <%=mRs("kfname")%> 联系!'><%=mRs("zjiner")%></a></td>
</table>
<%
i=i+1
mRs.movenext
If mRs.eof then exit for
next
%>
<%
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
mRs.close
Set mRs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write("<table " & Table_style & ">" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
Response.Write("<TD align=right>" & vbCrLf )
Response.Write(font_style & vbCrLf )
If page<=1 then
Response.Write ("首页 " & vbCrLf)
Response.Write ("上一页 " & vbCrLf)
Else
Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</A> " & vbCrLf)
End If
If page>=pagecount then
Response.Write ("下一页 " & vbCrLf)
Response.Write ("尾页 " & vbCrLf)
Else
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)
End If
Response.Write(" 页次：" & page & "/" & pageCount & "页" & vbCrLf)
Response.Write(" 共有" & iCount & "个记录" & vbCrLf)
Response.Write(" 转到" & "<INPUT TYEP=TEXT NAME=page class=diyColor3 SIZE=1 Maxlength=5 VALUE=" & page & ">" & "页" & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO class=diyColor3>")
Response.Write("</TR></form>" & vbCrLf )
Response.Write("</table>" & vbCrLf )
End Sub
%>
</p></td>
<td class="zoneThree" vAlign="top" height="387" width="4"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table126" height="103">
<tr>
<td>
<div style="position: absolute; width: 100px; height: 100px; z-index: 1" id="layer1"></div>
<p>
<img border="0" src="img/bg_footer_aurora.jpg" width="986" height="126"></td>
</tr>
</table>
</div>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -