| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 558 人关注过本帖
标题:我怎么控制不了人数选题!!
只看楼主 加入收藏
minjian12
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2006-4-27
收藏
 问题点数:0 回复次数:6 
我怎么控制不了人数选题!!

我的这个程序是用来控制一个同学只可以选3个题目 但是出错了 不知道错在那么 各位大哥大姐帮我看看啊
<!--#include file="conn.asp"-->
<!--#include file="top1.asp"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type"

content="text/html; charset=gb2312">
</head>
<%
if request("submit")="提交内容" then
xm=request("xm")
xh=request("xh")
bj=request("bj")
keyid=cstr(request("keyid"))
leibie=cstr(request("leibie"))
set

rs=server.createobject("adodb.recordset")
sql="select * from xuanti

where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("xm")=xm
rs("xh")=xh
rs("bj")=bj
rs("timu")=keyid
rs("leibie")=leibie
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing

<!-- sub message

dim shuzi
shuzi=1

Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from xuti where xm= "& xm
shuizi= shuzi+1
if rs.bof and rs.eof then response.Write
if shuzi<=3 then
shuizi= shuzi+1
response.write "选题成功,<a

href=setclass.asp>[请单击这里返回]</a>"
else
response.write "您已经选了三个题目,不可以在

选了!<a href=index.asp>[请单击这里返回]</a>"
end sub
call message
-->

<script language="JavaScript"

type="text/JavaScript">
function check()
{
if(document.form1.xm.value=="")
{
alert("姓名不能为空!");
document.form1.xm.focus();
return false;
}
if(document.form1.xh.value=="")
{
alert("学号不能为空!");
document.form1.xh.focus();
return false;
}
if(document.form1.bj.value=="")
{
alert("题目类别不能为空!");
document.form1.bj.focus();
return false;
}
return true;
}
</script>


<body>
<form name="form1" method="post"

action="saveclass.asp" onSubmit="return

check();">

<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<table width="400" border="0"

align="center">
<tr>
<td>姓名</td>
<td><input type="text"

name="xm"></td>
<input type="hidden"

name="keyid" value="<%=request("id")%>">
<input type="hidden"

name="leibie" value="<%=request("leibie")%>">
</tr>
<tr>
<td width="24%">学号</td>
<td width="76%"><input type="text"

name="xh"></td>
</tr>
<tr>
<td>班级</td>
<td><input type="text" name="bj"></td>
</tr>
<tr>
<td><input type="submit" name="Submit"

value="提交内容"> </td>
<td><input type="button" name="retset"

onClick="javascript:window.close();"value="放

弃选课"></td>
</tr>
</table>
</form>

</body>
</html>

搜索更多相关主题的帖子: 选题 
2006-04-27 16:48
minjian12
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2006-4-27
收藏
得分:0 
没有人回答啊 版主告诉我一下啊   在线等!!!
2006-04-27 17:29
zfjyyzycl
Rank: 2
等 级:论坛游民
帖 子:239
专家分:10
注 册:2006-4-15
收藏
得分:0 
出的什么错说一下
2006-04-27 22:20
minjian12
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2006-4-27
收藏
得分:0 
浏览器显示缺少IF 我官爵是不是我的循环语句和我后面接的判断语句有问题
<!-- sub message

dim shuzi
shuzi=1

Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from xuti where xm= "& xm
shuizi= shuzi+1
if rs.bof and rs.eof then response.Write
if shuzi<=3 then
shuizi= shuzi+1
response.write "选题成功,<a

href=setclass.asp>[请单击这里返回]</a>"
else
response.write "您已经选了三个题目,不可以在

选了!<a href=index.asp>[请单击这里返回]</a>"
end sub
call message
-->
可是我查不出什么毛病

2006-04-27 22:27
minjian12
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2006-4-27
收藏
得分:0 
没有人 自己先顶下!!!
2006-04-30 16:23
程序错误
Rank: 1
等 级:新手上路
帖 子:52
专家分:0
注 册:2006-4-30
收藏
得分:0 

<!--#include file="conn.asp"-->
<!--#include file="top1.asp"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
if request("submit")="提交内容" then
xm=request("xm")
xh=request("xh")
bj=request("bj")
keyid=cstr(request("keyid"))
leibie=cstr(request("leibie"))
set rs=server.createobject("adodb.recordset")
sql="select * from xuanti where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("xm")=xm
rs("xh")=xh
rs("bj")=bj
rs("timu")=keyid
rs("leibie")=leibie
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
End If

sub message
dim shuzi
shuzi=1
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from xuti where xm= "& xm
shuizi= shuzi+1
if rs.bof and rs.eof then response.Write
if shuzi<=3 then
shuizi= shuzi+1
response.write "选题成功,<a href=setclass.asp>[请单击这里返回]</a>"
else
response.write "您已经选了三个题目,不可以在选了!<a href=index.asp>[请单击这里返回]</a>"
End if
End If
end sub
call message
%>

<script language="JavaScript" type="text/JavaScript">
function check()
{
if(document.form1.xm.value=="")
{
alert("姓名不能为空!");
document.form1.xm.focus();
return false;
}
if(document.form1.xh.value=="")
{
alert("学号不能为空!");
document.form1.xh.focus();
return false;
}
if(document.form1.bj.value=="")
{
alert("题目类别不能为空!");
document.form1.bj.focus();
return false;
}
return true;
}
</script>


<body>
<form name="form1" method="post" action="saveclass.asp" onSubmit="return check();">
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<table width="400" border="0" align="center">
<tr>
<td>姓名</td>
<td><input type="text" name="xm"></td>
<input type="hidden" name="keyid" value="<%=request("id")%>">
<input type="hidden" name="leibie" value="<%=request("leibie")%>">
</tr>
<tr>
<td width="24%">学号</td>
<td width="76%"><input type="text" name="xh"></td>
</tr>
<tr>
<td>班级</td>
<td><input type="text" name="bj"></td>
</tr>
<tr>
<td><input type="submit" name="Submit" value="提交内容"> </td>
<td><input type="button" name="retset" onClick="javascript:window.close();"value="放弃选课"></td>
</tr>
</table>
</form>

</body>
</html>


天因你而更蔚蓝~~~~~~
地狱因我而黑暗~~~~~~
2006-04-30 16:50
minjian12
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2006-4-27
收藏
得分:0 
还是不行, 错误类型:

技术信息(用于支持人员)

  • 错误类型:
    Microsoft VBScript 编译器错误 (0x800A03F8)
    缺少 'Sub'
    /saveclass.asp, line 43, column 4
    End If sub
    ---^
2006-05-05 17:35
快速回复:我怎么控制不了人数选题!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012453 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved