用ASP做个查询系统

imaccom 2010-07-14 06:28:26
现想用asp做个简单的查询系统，结构如下：
1.cx.xls中内容：
NO YF XM MA xm01 xm02 xm03
序号 月份 姓名 密码 项目01 项目01 项目01
序号 月份 姓名 密码 项目01 项目01 项目01
001 201006 AAA AAA01 xm01AAA xm02AAA xm03AAA
002 201006 BBB BBB01 xm01BBB xm02BBB xm03BBB
003 201006 BBB CCC01 xm01CCC xm02CCC xm03CCC

2.cx.mdb中内容：
ID NO YF XM MA xm01 xm02 xm03
1 序号 月份 姓名 密码 项目01 项目01 项目01
2 序号 月份 姓名 密码 项目01 项目01 项目01
3 001 201006 AAA AAA01 xm01AAA xm02AAA xm03AAA
4 002 201006 BBB BBB01 xm01BBB xm02BBB xm03BBB
5 003 201006 BBB CCC01 xm01CCC xm02CCC xm03CCC

3. index.asp中内容

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>查询系统</title>
</head>

<body>
<table width='100%' height='100%' border='0' cellpadding='0' cellspacing='0'><tr><td>
<form name='Login' action='cx.asp' method='post' target='_parent' onSubmit='return CheckForm();'>
<table width='100%' border='0' cellpadding='0' cellspacing='0'>
<tr>
<td width='219' height='164' background='login_01.gif'></td>
<td width='64' height='164' background='login_02.gif'></td>
<td valign='top' background='login_03.gif'><table border='0' cellpadding='0' cellspacing='0'>
<tr>
<td><table width='100%' border='0' cellpadding='0' cellspacing='0'>
<tr>
<td width='270' height='79' background='login_04.gif'></td>
<td width='150' height='79' background='login_05.gif'></td>
<td valign='top'><table width='100%' border='0' cellpadding='0' cellspacing='0'>
<tr>
<td height='21'></td>
<td></td>
</tr>
<tr>
<td><input type='hidden' name='Action' value='Login' /><input type='image' name='Submit' src='login_06.gif' style='width:50px; HEIGHT: 50px;' /></td>
<td width='58' height='50' background='login_07.gif'></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height='85'><table border='0' cellspacing='0' cellpadding='0'>
<tr>
<td width='22' rowspan='2' valign='bottom'><img src='login_08.gif' alt='' width="20" height="30" /></td>
<td width='80'><font color='#ffffff'>姓名：</font></td>
<td width='22' rowspan='2' valign='bottom'><img src='login_09.gif' alt='' width="20" height="30" /></td>
<td width='80'><font color='#ffffff'>密码：</font></td>
</tr>
<tr>
<td><input name='UserName' type='text' id='UserName' maxlength='20' style='width:70px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #F7F7F7' onmouseover=''this.style.background='#ffffff';'' onmouseout=''this.style.background='#F7F7F7''' onFocus='this.select();'></td>
<td><input name='password' type='password' maxLength='20' style='width:70px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #F7F7F7' onmouseover=''this.style.background='#ffffff';'' onmouseout=''this.style.background='#F7F7F7''' onFocus='this.select();'></td>

</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</form>
</td></tr></table>


</body>
</html>

4. cx.asp中内容：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>查询系统</title>
</head>

<body>
<table width="95%" border="0" cellpadding="0" cellspacing="0" align="center" valign="top">
<tr>
<td height="60"><div align="center"><font size="3" face="黑体">查询结果仅供参考</font></div></td>
</tr>
</table>
<%
dim conn
dim db
dim xm_t,ma_t
xm_t="a"+request.Form("xm")
ma_t="a"+request.Form("ma")
if xm_t="a" or ma_t="a" then
response.Redirect "index.asp?no=1"
end if
db="cx.mdb" '数据库文件位置
conn="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set rs= Server.CreateObject("ADODB.Recordset")
%>

<%
sql="SELECT * from gzcx where xm='"+request.Form("xm")+"' and ma='"+request.Form("ma")+"'"
rs.open sql,conn,2,2

%>

<table width="79%" border="0" align="center" cellpadding="4" cellspacing="0" height="357" bgcolor="#009999">
<%if rs.bof or rs.eof then%>
<tr>
<td colspan="3" align="center" height="32">姓名或密码错误，没找到人员的资料</td>
</tr>
<%else%>
<tr>
<td colspan="3" valign="top" bgcolor="#E7E7E7">查询项目</td>
</tr>
<tr>
<td width="33%" valign="top" bgcolor="#E7E7E7">
<div align="right">序 号：</div> </td>
<td width="8%" valign="top" bgcolor="#E7E7E7"><%=rs("no")%></td>
<td width="59%" bgcolor="#33FFFF"> </td>
</tr>
<tr>
<td width="33%" valign="top" bgcolor="#E7E7E7">
<div align="right">月 份：</div> </td>
<td width="8%" valign="top" bgcolor="#E7E7E7"><%=rs("yf")%></td>
<td width="59%" bgcolor="#33FFFF"> </td>
</tr>
<tr>
<td width="33%" valign="top" bgcolor="#E7E7E7">
<div align="right">姓 名：</div> </td>
<td width="8%" valign="top" bgcolor="#E7E7E7"><%=rs("xm")%></td>
<td width="59%" bgcolor="#33FFFF"> </td>
</tr>
<tr>
<td width="33%" valign="top" bgcolor="#E7E7E7">
<div align="right">项目01：</div> </td>
<td width="8%" valign="top" bgcolor="#E7E7E7"><%=rs("xm01")%></td>
<td width="59%" bgcolor="#33FFFF"> </td>
</tr>
<tr>
<td width="33%" valign="top" bgcolor="#E7E7E7">
<div align="right">项目02：</div> </td>
<td width="8%" valign="top" bgcolor="#E7E7E7"><%=rs("xm02")%></td>
<td width="59%" bgcolor="#33FFFF"> </td>
</tr>
<tr>
<td width="33%" valign="top" bgcolor="#E7E7E7">
<div align="right">项目03：</div> </td>
<td width="8%" valign="top" bgcolor="#E7E7E7"><%=rs("xm03")%></td>
<td width="59%" bgcolor="#33FFFF"> </td>
</tr>
<%end if
rs.close
set rs=nothing
%>
</table>


</table>
</body>
</html>


5. 问题：
在IIS中运行index.asp
输入姓名：AAA
输入密码：AAA01

按确定后就无法进入，不能正常显示了，地址栏中只显示：http://127.0.0.1/index.asp?no=1

请问上述代码中有什么地方出错了？望高人指点~~~~
...全文
340 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
xzwms2010 2010-07-15
  • 打赏
  • 举报
 回复
程序里运行对不！如果正常就是你配置的错了！你重新配置一下！先版本改成2.0，把你本机（http://127.0.0.1/index.asp?no=1）改成localhost 也就是http://localhost:88/index.aspx
KFCILIKEIT 2010-07-15
  • 打赏
  • 举报
 回复
sql="SELECT * from gzcx where xm='"+request.Form("xm")+"' and ma='"+request.Form("ma")+"'"
参数能用+ ？应该用& 吧
jackey07 2010-07-15
  • 打赏
  • 举报
 回复
一个超级简单的调试方法...
复制,剪切,保存,刷新页面...再粘贴,保存, 刷新页面....就知道那行出错了
wangxiaomo521 2010-07-14
  • 打赏
  • 举报
 回复
...自己加输出调试。
ASP+SQL图书管理系统
这个毕业设计项目“ASP+SQL图书管理系统”不仅包含了ASP与SQL的基本应用，还可能涉及到了用户体验设计、安全性考虑（如SQL注入防御）、错误处理以及系统优化等方面的知识，是学习Web开发和数据库管理的实战案例。
考勤管理系统asp版
标题：“考勤管理系统asp版”是一个基于ASP（Active Server Pages）技术开发的办公应用软件，主要用于企业或组织内部对员工的出勤情况、迟到早退、请假等日常管理。ASP是一种服务器端脚本语言，它允许开发者利用HTML...
ASP.NET网络书店(C#,全源码提供)
ASP.NET网络书店是一个基于C#编程语言开发的项目，它利用了ASP.NET框架的强大功能来构建一个完整的在线图书销售平台。这个项目的核心在于为用户提供一个交互式的、安全的、易于使用的网络购物体验，同时也要满足后台...
ASP.NET MVC+EF框架+EasyUI实现权限管理系列(24)之前的代码
在本系列教程中，我们将深入探讨如何利用ASP.NET MVC、Entity Framework（EF）以及EasyUI技术来构建一个全面的权限管理系统。在这个系统中，我们将会处理用户权限的分配、角色管理以及页面访问控制等多个关键方面。 ...
无需任何组件，采用SMTP服务进行在线邮件群发系统
五、可以对单一用户进行查找及模糊查询 六、管理员可以手动添加地址 七、。。。。。 安装说明： 一、下载本系统，解压缩到任意目录下 二、配置IIS，设置虚拟目录，如：mymail ...
ASP

28,409

社区成员

356,971

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章