求助 BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除
这个页面老调试不出来 请高手指教
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%
Dim CM
Dim CM_numRows
Set CM = Server.CreateObject("ADODB.Recordset")
CM.ActiveConnection = MM_EmpMain_STRING
CM.Source = "SELECT selectName,ID,Description FROM SelectMain"
CM.CursorType = 0
CM.CursorLocation = 2
CM.LockType = 1
CM.Open()
CM_numRows = 0
%>
<%
Dim CM1
Dim CM1_numRows
Set CM1 = Server.CreateObject("ADODB.Recordset")
CM1.ActiveConnection = MM_EmpMain_STRING
CM1.Source = "SELECT OptionContent,ID FROM SelectMain where ID = " & request("ID")
CM1.CursorType = 0
CM1.CursorLocation = 2
CM1.LockType = 1
CM1.Open()
CM1_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="CSS/SellWellWeb.css" type="text/css">
<script language="javascript" src="js_Lib/fnCheckForm.js"></script>
<script>
function doReload(obj){
if(obj.selectedIndex==0){
return
}
window.location = "Empmain_CodeMain.asp?ID="+obj.options[obj.selectedIndex].value
}
</script>
</head>
<body bgcolor="#EAF4FF" topmargin="2" class="body">
<form method="POST" action="EmpMain_CodeMain_Process.asp" name="form1">
<fieldset style="padding: 2" class="fiedset">
<legend><font size="2">选择项维护</font></legend>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber1" align="center">
<tr>
<td width="29%" class="Caption" nowrap>
<div align="right"><font size="2">选择项名称:</font></div>
</td>
<td width="71%" class="ValueArea">
<select name="textfield" class="Text" onChange="doReload(this)">
<option />
<%while not CM.EOF%>
<option <%if request("ID") <> "" then%><%if Cint(request("ID")) = Cint(CM("ID")) then%>selected<%end if%><%end if%> value="<%=CM("ID")%>"><%=Cm("Description")%></option>
<%
CM.movenext
wend
%>
</select>
</td>
</tr>
<tr>
<td colspan="2"><textarea class="text" rows="10" name="OptionContent"><%=CM1("OptionContent")%></textarea></td>
</tr>
</table>
</fieldset>
<input type="hidden" name="ID" value="<%=trim(request("ID"))%>">
<input type="button" value="提交" name="B1" class="button" onClick="fnCheckForm()">
<input type="reset" value="重置" name="B2" class="button">
</p>
</form>
<p>注：<br>
1.本模块用于自己添加设置,<br>
如部门,职位等.<br>
2.每个选项请用“,“分隔。<br>
3.请不要使用诸如”<>#$%^&*()”““等的特殊字符</p>
</body>
</html>
<%
CM.Close()
Set Cm = Nothing
%>
<%
CM1.Close()
Set Cm1 = Nothing
%>
这个页面老调试不出来 请高手指教
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%
Dim CM
Dim CM_numRows
Set CM = Server.CreateObject("ADODB.Recordset")
CM.ActiveConnection = MM_EmpMain_STRING
CM.Source = "SELECT selectName,ID,Description FROM SelectMain"
CM.CursorType = 0
CM.CursorLocation = 2
CM.LockType = 1
CM.Open()
CM_numRows = 0
%>
<%
Dim CM1
Dim CM1_numRows
Set CM1 = Server.CreateObject("ADODB.Recordset")
CM1.ActiveConnection = MM_EmpMain_STRING
CM1.Source = "SELECT OptionContent,ID FROM SelectMain where ID = " & request("ID")
CM1.CursorType = 0
CM1.CursorLocation = 2
CM1.LockType = 1
CM1.Open()
CM1_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="CSS/SellWellWeb.css" type="text/css">
<script language="javascript" src="js_Lib/fnCheckForm.js"></script>
<script>
function doReload(obj){
if(obj.selectedIndex==0){
return
}
window.location = "Empmain_CodeMain.asp?ID="+obj.options[obj.selectedIndex].value
}
</script>
</head>
<body bgcolor="#EAF4FF" topmargin="2" class="body">
<form method="POST" action="EmpMain_CodeMain_Process.asp" name="form1">
<fieldset style="padding: 2" class="fiedset">
<legend><font size="2">选择项维护</font></legend>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber1" align="center">
<tr>
<td width="29%" class="Caption" nowrap>
<div align="right"><font size="2">选择项名称:</font></div>
</td>
<td width="71%" class="ValueArea">
<select name="textfield" class="Text" onChange="doReload(this)">
<option />
<%while not CM.EOF%>
<option <%if request("ID") <> "" then%><%if Cint(request("ID")) = Cint(CM("ID")) then%>selected<%end if%><%end if%> value="<%=CM("ID")%>"><%=Cm("Description")%></option>
<%
CM.movenext
wend
%>
</select>
</td>
</tr>
<tr>
<td colspan="2"><textarea class="text" rows="10" name="OptionContent"><%=CM1("OptionContent")%></textarea></td>
</tr>
</table>
</fieldset>
<input type="hidden" name="ID" value="<%=trim(request("ID"))%>">
<input type="button" value="提交" name="B1" class="button" onClick="fnCheckForm()">
<input type="reset" value="重置" name="B2" class="button">
</p>
</form>
<p>注：<br>
1.本模块用于自己添加设置,<br>
如部门,职位等.<br>
2.每个选项请用“,“分隔。<br>
3.请不要使用诸如”<>#$%^&*()”““等的特殊字符</p>
</body>
</html>
<%
CM.Close()
Set Cm = Nothing
%>
<%
CM1.Close()
Set Cm1 = Nothing
%>
2008-6-22 19:26
