| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 586 人关注过本帖
标题:我的asp代码有误在哪里?-->无理取闹转移
只看楼主 加入收藏
ganjing
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-8-15
收藏
 问题点数:0 回复次数:2 
我的asp代码有误在哪里?-->无理取闹转移
if stid<>"" then
If mark<>"" Then
mysql="update sreport"&
"set mark="&mark&",[note]='"& note&"'"&
"where stid='"& stid&"'and coid='"&coid&"'"
okmsg="当前记录已被成功更新!"
ermsg="更新操作出现错误!"
else
mysql="delete *from sreport where stid='"& stid&"'"& "and coid='"& coid& "'"
okmsg="当前已被!"
ermsg="删除操作失败!"
end if
set objconn=session("objconn")
objconn.execute mysql,rdsaffected
if err.number>0 or objconn.errors.count>0 then
call showerror(err.number& ":"& err.description)
err.clear
搜索更多相关主题的帖子: 无理取闹 stid asp 
2007-08-16 18:17
ganjing
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-8-15
收藏
得分:0 
回复:(ganjing)我的asp代码有误在哪里?

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<html >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>成绩管理</title>
<script language="vbscript">
<!--
sub edit_onclick
fms.submit
end sub
sub del_onclick
fms.mark.value=""
fms.note.value=""
fms.submit
end sub
sub goback_onclick
window.history.back()
end sub
-->
</script>

</head>
<body>
<div align="center" class="STYLE1">课程成绩管理页</div>
<hr>
<form name="fms" method="get" action="mst01.asp">
<table width="480" border="0">
<tr>
<td colspan="3"><div align="center">更新操作带*号为必填;删除操作不填写成绩</div></td>
</tr>
<tr>
<td width="126" height="30"><div align="right">学生学号:</div></td>
<td width="215"><input name="stid" type="text" size="20">
*</td>
<td width="117">&nbsp;</td>
</tr>
<tr>
<td height="30"><div align="right">课程编号:</div></td>
<td><input name="coid" type="text" size="20">
*</td>
<td>&nbsp;</td>
</tr>
<tr>
<td height="30"><div align="right">课程成绩:</div></td>
<td><input name="mark" type="text" size="20">
*</td>
<td>&nbsp;</td>
</tr>
<tr>
<td height="138" valign="top"><div align="right">备注信息:</div></td>
<td valign="top"><textarea name="note" rows="10"></textarea></td>
<td>&nbsp;</td>
</tr>
<tr>
<td height="32" colspan="3" align="center" valign="middle"><table width="200" border="0">
<tr>
<td width="84"><input name="edit" type="button" id="edit" value="添加记录"></td>
<td width="9">&nbsp;</td>
<td width="85"><input name="del" type="button" id="del" value="删除记录"></td>
</tr>
</table></td>
</tr>
</table>
</form>
<%
dim stid,coid,mark,note,kmsg,ermsg
on error resume next
stid=request("stid")
coid=request("coid")
mark=request("mark")
note=request("note")
sub showerror(erinfo)
Response.Write("<font color=red>")
Response.Write(ermsg&"错误原因如下……")
Response.Write("</font>")
Response.Write("<input type=button value=返回修改 name=gaback>")
Response.Write("<p>"& erinfo)
end sub
if stid<>"" then
If mark<>"" Then
mysql="update sreport"&
"set mark="&mark&",[note]='"& note&"'"&
"where stid='"& stid&"'and coid='"&coid&"'"
okmsg="当前记录已被成功更新!"
ermsg="更新操作出现错误!"
else
mysql="delete *from sreport where stid='"& stid&"'"& "and coid='"& coid& "'"
okmsg="当前已被!"
ermsg="删除操作失败!"
end if
set objconn=session("objconn")
objconn.execute mysql,rdsaffected
if err.number>0 or objconn.errors.count>0 then
call showerror(err.number& ":"& err.description)
err.clear
obj.conn.errors.clear
else
if rdsaffected=0 then
showerror("数据库中没有当前学生相关记录!")
else
Response.Write(okmsg)
end if
end if
end if

%>
</body>

</html>

2007-08-16 18:18
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
[CODE]
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>成绩管理</title>
<script language="vbscript">
<!--
sub edit_onclick
fms.submit
end sub
sub del_onclick
fms.mark.value=""
fms.note.value=""
fms.submit
end sub
sub goback_onclick
window.history.back()
end sub
-->
</script>
</head>
<body>
<div align="center" class="STYLE1">课程成绩管理页</div>
<hr>
<form name="fms" method="get" action="mst01.asp">
<table width="480" border="0">
<tr>
<td colspan="3">
<div align="center">更新操作带*号为必填;删除操作不填写成绩</div>
</td>
</tr>
<tr>
<td width="126" height="30">
<div align="right">学生学号:</div>
</td>
<td width="215">
<input name="stid" type="text" size="20"> *</td>
<td width="117">&nbsp;</td>
</tr>
<tr>
<td height="30">
<div align="right">课程编号:</div>
</td>
<td><input name="coid" type="text" size="20"> *</td>
<td>&nbsp;</td>
</tr>
<tr>
<td height="30"><div align="right">课程成绩:</div></td>
<td><input name="mark" type="text" size="20"> *</td>
<td>&nbsp;</td>
</tr>
<tr>
<td height="138" valign="top"><div align="right">备注信息:</div></td>
<td valign="top">
<textarea name="note" rows="10"></textarea>
</td>
<td>&nbsp;</td>
</tr>
<tr>
<td height="32" colspan="3" align="center" valign="middle">
<table width="200" border="0">
<tr>
<td width="84">
<input name="edit" type="button" id="edit" value="添加记录">
</td>
<td width="9">&nbsp;</td>
<td width="85">
<input name="del" type="button" id="del" value="删除记录">
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<%
dim stid,coid,mark,note,kmsg,ermsg
on error resume next
stid=request("stid")
coid=request("coid")
mark=request("mark")
note=request("note")
sub showerror(erinfo)
Response.Write("<font color=red>")
Response.Write(ermsg&"错误原因如下……")
Response.Write("</font>")
Response.Write("<input type=button value=返回修改 name=gaback>")
Response.Write("<p>"& erinfo)
end sub
if stid<>"" then
If mark<>"" Then
mysql="update sreport set mark="&mark&",[note]='"& note&"'"
mysql=mysql&" where stid='"& stid&"'and coid='"&coid&"'"
okmsg="当前记录已被成功更新!"
ermsg="更新操作出现错误!"
else
mysql="delete *from sreport "
mysql=mysql&" where stid='"& stid&"'"& "and coid='"& coid& "'"
okmsg="当前已被!"
ermsg="删除操作失败!"
end if
set objconn=session("objconn")'楼主确定写的是ASP代码?
'我目前还真没在ASP代码中看到过这种写法。
objconn.execute mysql,rdsaffected
if err.number>0 or objconn.errors.count>0 then
call showerror(err.number& ":"& err.description)
err.clear
obj.conn.errors.clear
else if rdsaffected=0 then
showerror("数据库中没有当前学生相关记录!")
else
Response.Write(okmsg)
end if
end if
end if'这里这个end if的if在哪里?
%>
</body>
</html>[/CODE]

[此贴子已经被作者于2007-8-16 19:38:23编辑过]

2007-08-16 19:37
快速回复:我的asp代码有误在哪里?-->无理取闹转移
数据加载中...
 
   



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

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