📄 khtj_yftj_1.asp

📁 asp+Access开发的客户资源管理系统,用户名:admin,密码:

💻 ASP

字号:

<HTML>
<HEAD>
</HEAD>
<BODY>
<%
	  dim count
	  count=0

		  '与数据库*.mdb建立连接
	      Set conn = Server.CreateObject("ADODB.Connection")
	   	conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=webcool_2000;dbq=" & Server.MapPath("../database/customer.mdb")
nian1=request("username1")
yue1=request("username")
		  '检索符合年份和月份的记录
          SET rs=CONN.EXECUTE("select * from guest where nian='"&nian1&"' and yue='"&yue1&"'")

  	  while not rs.eof
      count=count+1
      rs.movenext
      wend
    
	  %>
<table width="388" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><%=nian1%>年<%=yue1%>月共有客户<%=count%></td>
    <td>&nbsp;</td>
  </tr>
</table>
<%'=关闭数据库============================

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

<html></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -