用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

请问上述代码中有什么地方出错了?望高人指点~~~~
...全文
234 点赞 收藏 4
写回复
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
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告