📄 khzl_srtx.asp

📁 asp+Access开发的客户资源管理系统,用户名:admin,密码:
💻 ASP
字号:
<html>
<head>
<title>『晨景软体』-客户资源管理系统</title>

<style>
.drag{position:relative;cursor:hand}
</style>
<script language="JavaScript">

function openFrameless(ccc) 
{
var ddd="khzl_link_ck.asp?id="+ccc
NFW =window.open(ddd,"","fullscreen");//打开一个窗口为满屏显示
NFW.resizeTo(420,500);//改变窗口大小
NFW.moveTo(screen.width/2-210,screen.height/2-250);//移动窗口
}

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>
<link rel="stylesheet" href="other/customer.css">         
</head>

<body bgcolor="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table border="0" cellpadding="0" cellspacing="0" width="403">
  <tr>
   <td><img src="images/spacer.gif" width="4" height="1" border="0"></td>
   <td><img src="images/spacer.gif" width="395" height="1" border="0"></td>
   <td><img src="images/spacer.gif" width="4" 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/tc_wgl(7)_r1_c1.gif" class="title">
      <div id="Layer1" style="position:absolute; width:19px; height:18px; z-index:3; left: 381px; top: 5px"><a href="javascript:window.close()"><img src="images/xx.gif" width="13" height="13" border="0"></a></div>
      &nbsp;&nbsp;&nbsp;『晨景软体』-生日提醒</td>
   <td><img src="images/spacer.gif" width="1" height="25" border="0"></td>
  </tr>
  <tr>
   <td rowspan="2"><img name="tc_wgl7_r2_c1" src="images/tc_wgl(7)_r2_c1.gif" width="4" height="146" border="0"></td>
    <td bgcolor="#cdd5e4" valign="top">
<%
vvv=1
abcde=""
'与数据库*.mdb建立连接
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=webcool_2000;dbq=" & Server.MapPath("../database/customer.mdb")
SET rs=CONN.EXECUTE("select * from linkman")

do while not rs.eof
old_yue=cstr(month(rs("birthday")))
new_yue=cstr(month(date()))
old_ri=cstr(Day(rs("birthday")))
new_ri=cstr(Day(date()))

if old_yue=new_yue then
	if old_ri=new_ri then
	vvv=0
	abcde=abcde&"、"&"<A HREF='javascript:openFrameless("&rs("id")&")'>"&rs("name")&"</A>"
	end if
end if

rs.movenext
loop

if vvv=1 then
%>
      <table width="100%" cellspacing="0">
	<tr class="big"> 
	  <td height="61" width="23%"> 
	    <div align="right" ><img src="images/dg.gif" width="66" height="51"></div>
	  </td>
	  <td height="61">今天没有客户的生日 </td>
	</tr>
	<tr class="big"> 
	  <td height="54" colspan="2"> 
	    <div align="center">谢谢您!!!</div>
	  </td>
	</tr>
      </table>
<%
else
%>
      <table width="100%" cellspacing="0">
	<tr class="big"> 
	  <td height="61" width="23%"> 
	    <div align="right" ><img src="images/dg.gif" width="66" height="51"></div>
	  </td>
	  <td height="61">今天是你的客户<%=abcde%> 的生日</td>
	</tr>
	<tr class="big"> 
	  <td height="54" colspan="2"> 
	    <div align="center">你是否要为他准备什么?</div>
	  </td>
	</tr>
      </table>
<%
end if
%>

</td>
   <td rowspan="2"><img name="tc_wgl7_r2_c3" src="images/tc_wgl(7)_r2_c3.gif" width="4" height="146" border="0"></td>
   <td><img src="images/spacer.gif" width="1" height="141" border="0"></td>
  </tr>
  <tr>
   <td><img name="tc_wgl7_r3_c2" src="images/tc_wgl(7)_r3_c2.gif" width="395" 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:2px; width:375px; height:22px; z-index:2"></div>

<%'=关闭数据库============================

conn.close'关闭数据库
set conn=nothing
%>
</body>
</html>

<html></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -