📄 qtzl_zlsc.asp
字号:
<%
' 将数据中的单引号改成两个单引号
Function SqlStr( data )
SqlStr = Replace( data, "'", "''" )
End Function
'完美的显示空格子程序-----------------------------------------------------------
sub break1(now_page,total_page)
for a_page=1 to total_page-now_page
if a_page mod 2=1 then
color="#F8F4E0"
else
color="#F4F4E8"
end if
response.write "<tr bgcolor="&color&">"
response.write "<td class='small'> </td>"
response.write "<td class='small'> </td>"
response.write "<td class='small'> </td>"
response.write "<td class='small'> </td>"
response.write "</tr>"
next
end sub
'显示数据的子程序---------------------------------------------------------------
sub showdata
for ipage=1 to rs.pagesize
'决定颜色
if ipage mod 2=1 then
color="#F8F4E0"
else
color="#F4F4E8"
end if
'输出数据
response.write "<tr bgcolor="&color&">"
idno=rs("id")
'建立rs1对象
SET rs1=CONN.EXECUTE("select id from worker where name='"&rs("worker")&"'")
idno1=rs1("id")
SET rs2=CONN.EXECUTE("select id from company where index='"&rs("guester")&"'")
idno2=rs2("id")
response.write "<td class='small'><a href='javascript:openFrameless1("&idno1&")' title='点击["&left(rs("worker"),18)&"]查看详情'>"&left(rs("worker"),6)&"</A></td>"
response.write "<td class='small'><a href='javascript:openFrameless3("&idno2&")' title='点击["&left(rs("guester"),18)&"]查看详情'>"&left(rs("guester"),14)&"</A></td>"
response.write "<td class='small'><a href='javascript:openFrameless2("&idno&")' title='点击["&left(rs("program"),18)&"]查看详情'>"&left(rs("program"),16)&"</A></td>"
response.write "<td class='small'><a href='qtzl_zlsc_1.asp?id="&idno&"'><div align='center'><img src='images/sc.gif' width='15' height='15' border='0' alt='删除'></div></A></td>"
response.write "</tr>"
rs.MoveNext
'如果没有数据
if rs.eof then
'输出空表格
call break1(ipage,rs.pagesize)
exit for
end if
next
end sub
'显示分页符号的子程序---------------------------------------------------------------
'如果是第一页
sub fenye
if page=1 then
Response.Write " [最前页]"
Response.Write "[上一页]"
else
Response.Write "[<a href=qtzl_zlsc.asp?page=1 class='01'>最前页</a>]"
Response.Write "[<a href=qtzl_zlsc.asp?Page="&Page-1&" class='01'>上一页</a>]"
End If
'如果是最后一页
If Page <> rs.PageCount Then
Response.Write "[<A HREF=qtzl_zlsc.asp?Page="&Page+1&" class='01'>下一页</a>]"
Response.Write "[<A HREF=qtzl_zlsc.asp?Page="&rs.PageCount&" class='01'>最末页</a>]"
else
Response.Write "[下一页]"
Response.Write "[最末页]"
End If
end sub
'--程序开始----------------------------------------------------------------------------------------
'打开数据库
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=webcool_2000;dbq=" & Server.MapPath("../database/customer.mdb")
if request("keyword")="" then
'建立rs对象
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT id,worker,guester,program FROM talk where check='1'"
'发送一条SQL的指令
rs.Open sql, conn, 3
else
'建立rs对象
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT id,worker,guester,program,nexttime FROM talk where (worker like '%"&SqlStr(request("keyword"))&"%' or guester like '%"&SqlStr(request("keyword"))&"%' or linkman like '%"&SqlStr(request("keyword"))&"%' or qiatan like '%"&SqlStr(request("keyword"))&"%' or program like '%"&SqlStr(request("keyword"))&"%' or demo like '%"&SqlStr(request("keyword"))&"%') and check='1'"
'发送一条SQL的指令
rs.Open sql, conn, 3
end if
'如果没有记录
If rs.eof then
Response.Redirect "ywyzl_no.asp"
else
'设置一页显示n条记录
rs.PageSize =15
'计算总记录数
page1=rs.PageCount
rs.AbsolutePage = Page1
for apage=1 to rs.pagesize
recno=(page1-1)*rs.pagesize+apage
rs.movenext
if rs.eof then exit for
next
'设置当前显示页码
Page = cint(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
rs.AbsolutePage = Page
'如果数据是最后一页，那数字为最后一个
page_end=page*rs.pagesize
if page=rs.PageCount then page_end=recno end if
%>
<SCRIPT LANGUAGE="JavaScript">
function openFrameless1(aaa)
{
var bbb="ywyzl_zlcx_4.asp?id_1="+aaa
NFW =window.open(bbb,"","fullscreen");//打开一个窗口为满屏显示
NFW.resizeTo(420,500);//改变窗口大小
NFW.moveTo(200,100);//移动窗口
}
function openFrameless2(aaa)
{
var bbb="qtzl_ck.asp?id="+aaa
NFW =window.open(bbb,"","fullscreen");//打开一个窗口为满屏显示
NFW.resizeTo(420,500);//改变窗口大小
NFW.moveTo(200,100);//移动窗口
}
function openFrameless3(aa)
{
var bb="khzl_zlxg_com_2.asp?id="+aa
NFW =window.open(bb,"","fullscreen");//打开一个窗口为满屏显示
NFW.resizeTo(420,500);//改变窗口大小
NFW.moveTo(200,100);//移动窗口
}
</SCRIPT>
<html>
<head>
<title>『晨景软体』-业务员资料修改</title>
<link rel="stylesheet" href="other/customer.css">
<script language="JavaScript">
var dragapproved=false
var eventsource,x,y
function move()
{
if (event.button==1&&dragapproved) //改变被拖动元素在页面上的位置
{
self.moveBy (event.clientX-x,event.clientY-y); //改变窗体位置
return false
}
}
function drags()
{
if (!document.all)
return
if (event.srcElement.className=="drag") //捕捉鼠标当前位置
{
dragapproved=true//确信当前鼠标是按下
x=event.clientX//鼠标当前位置
y=event.clientY//鼠标当前位置
document.onmousemove=move//调动move函数
}
}
document.onmousedown=drags //鼠标左键按下时,准备拖动
document.onmouseup=new Function("dragapproved=false")//鼠标左键放开时,拖动停止
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
</head>
<body bgcolor="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table border="0" cellpadding="0" cellspacing="0" width="619">
<tr>
<td><img src="images/spacer.gif" width="5" height="1" border="0"></td>
<td><img src="images/spacer.gif" width="609" height="1" border="0"></td>
<td><img src="images/spacer.gif" width="5" height="1" border="0"></td>
<td><img src="images/spacer.gif" width="1" height="1" border="0"></td>
</tr>
<tr>
<td colspan="3" background="images/cx_r1_c1.gif" class="title" valign="middle"> 『晨景软体』-洽谈资料-资料删除
<div id="Layer1" style="position:absolute; width:22px; height:21px; z-index:3; left: 598px; top: 6px"><a href="javascript:window.close()"><img src="images/xx.gif" width="13" height="13" border="0"></a></div>
</td>
<td><img src="spacer.gif" width="1" height="26" border="0"></td>
</tr>
<tr>
<td rowspan="2"><img name="cx_r2_c1" src="images/cx_r2_c1.gif" width="5" height="423" border="0"></td>
<td bgcolor="#cdd5e4">
<!-- 重要表 --------------------------------------------------------------------------------------------->
<table width="100%" cellspacing="1" height="415">
<tr>
<td height="37" colspan="2">
<table width="100%" bordercolor="#000000" border="1" cellspacing="0">
<FORM METHOD=POST ACTION="qtzl_zlsc.asp" >
<tr bgcolor="#657cb1" bordercolor="#657cb1">
<td class="big" valign="bottom" height="2" width="36%">
<div align="right">关键字：</div>
</td>
<td class="small" valign="middle" height="2" width="22%">
<input type="text" name="keyword" size="20" style="border-style: solid; border-width: 1">
</td>
<td class="small" valign="middle" height="2" width="42%"><input type="image" border="0" name="imageField" src="images/ss.gif" width="45" height="17" align="middle"></td>
</tr>
</FORM>
</table>
</td>
</tr>
<tr>
<td height="349" colspan="2">
<table width="100%" cellspacing="1" bgcolor="#666666">
<tr bgcolor="#657cb1" class="big_b">
<td width="18%">
<div align="center">业务员姓名</div>
</td>
<td width="33%">
<div align="center">客 户 名 称</div>
</td>
<td width="36%">
<div align="center">洽 谈 项 目</div>
</td>
<td width="13%">
<div align="center">删除</div>
</td>
</tr>
<%
'显示数据的子程序
call showdata
%>
</table>
</td>
</tr>
<tr>
<td class="small" width="22%" >
<div align="left">[<%=(page-1)*rs.pagesize+1%> - <%=page_end%>] 共<%=recno%>记录</div>
</td>
<td class="small" width="78%" >
<div align="right" >
<%
'调用分页子程序
call fenye
%>
</div>
</td>
</tr>
</table>
<!-- 重要表 --------------------------------------------------------------------------------------------->
</td>
<td rowspan="2"><img name="cx_r2_c3" src="images/cx_r2_c3.gif" width="5" height="423" border="0"></td>
<td><img src="spacer.gif" width="1" height="418" border="0"></td>
</tr>
<tr>
<td><img name="cx_r3_c2" src="images/cx_r3_c2.gif" width="609" height="5" border="0"></td>
<td><img src="images/spacer.gif" width="1" height="5" border="0"></td>
</tr>
</table>
<div class="drag" id="Layer2" style="position:absolute; left:2px; top:1px; width:596px; height:22px; z-index:2"></div>
</body>
</html>
<%end if%>
<%'=关闭数据库============================
conn.close'关闭数据库
set conn=nothing
%>
<html><script language="JavaScript"> </script></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -