首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > ASP >

大家帮小弟我看看下面的代码有什么有关问题 调试通不过

2012-02-03 
大家帮我看看下面的代码有什么问题 调试通不过如题,谢谢!%@LANGUAGE VBSCRIPT CODEPAGE 936 %!DO

大家帮我看看下面的代码有什么问题 调试通不过
如题,谢谢!
<%@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>
<!--   #include   file   =   "conn.asp "   -->
 
<body>

保单编号: <%=request.QueryString( "baodanbianhao ")%> <br>
被保险人: <%=request.QueryString( "beibaoxianren ")%> <br>
所属处室: <%=request.QueryString( "suochuchushi ")%> <br>
客户经理: <%=request.QueryString( "kehujingli ")%> <br>
评估类型:   <%=request.QueryString( "pingguleixing ")%> <br>
<p>

<form   name= "data ">
<table   bgcolor= "#00CCFF "   width= "425 "   height= "150 "   border= "1 ">
    <caption   align= "top ">
        评估指标录入
    </caption>
    <tr>
        <td   width= "174 "> 保费收入: </td>
        <td   width= "235 "> <input   type= "text "   name= "baofeishouru "   /> </td>
    </tr>
    <tr>
        <td> 申报保额: </td>
        <td> <input   type= "text "   name= "shenbaobaoe "   /> </td>
    </tr>
    <tr>
        <td> 约定保费: </td>
        <td> <input   type= "text "   name= "yuedingbaofei "   /> </td>
    </tr>
    <tr>
        <td> 约定保额: </td>
        <td> <input   type= "text "   name= "yuedingbaoe "   /> </td>
    </tr>
    <tr>
        <td> 海关统计出口额: </td>
        <td> <input   type= "text "   name= "haiguantongji "   /> </td>
    </tr>
    <tr>
        <td> 有申报限额个数: </td>
        <td> <input   type= "text "   name= "shenbaoxianegeshu "   /> </td>
    </tr>
    <tr>
        <td> 批复限额总个数: </td>
        <td> <input   type= "text "   name= "xianepifuzongshu "   /> </td>
    </tr>
    <tr>
        <td> 累计赔付金额: </td>
        <td> <input   type= "text "   name= "lijipeifujine "   /> </td>
    </tr>


    <tr>
        <td> 承保通知书总金额: </td>
        <td> <input   type= "text "   name= "chengbaotongzhizonge "   /> </td>
    </tr>
    <tr>
        <td> 财务处评级: </td>
        <td> <select   name= "caiwu ">
  <option   value= "5 "   selected> 5分 </option>
  <option   value= "4 "> 4分 </option>
  <option   value= "3 "> 3分 </option>
<option   value= "2 "> 2分 </option>
<option   value= "1 "> 1分 </option>
<option   value= "0 "> 0分 </option>
</select>         </td>
    </tr>
    <tr>
        <td> 迟申报: </td>
        <td>
<select   name= "chishenbao ">
        <option   value= "2 "   selected= "selected "> 2分 </option>
<option   value= "1 "> 1分 </option>
<option   value= "0 "> 0分 </option>
</select> </td>
    </tr>
    <tr>
        <td> 限额倒签: </td>
        <td>
<select   name= "daoqian ">
        <option   value= "2 "   selected= "selected "> 2分 </option>
<option   value= "1 "> 1分 </option>
<option   value= "0 "> 0分 </option>
</select> </td>
    </tr>
    <tr>
        <td> 文档管理 </td>
        <td>
<select   name= "wendangguanli ">
<option   value= "1 "   selected= "selected "> 1分 </option>
<option   value= "0 "> 0分 </option>
</select> </td>
    </tr>
    <tr   align= "center "   bgcolor= "#FFFFFF ">
        <td>
<input   type= "reset "   value= "重置 "   name= "cancel "   />
  </td>
        <td>
<input   type= "button "   value= "下一步 "   name= "save "   onclick   =   "saveData() ">    
</td>
<%
sub   saveData()
        set   rs   =   Server.CreateObject( "ADODB.recordset ")
        sql   =   "Select   *   from   ranktable   Where   baodanbianhao   =   ' "&baodanbianhao& " ' "
rs.open   sql,db,3,3
If   Rs.EOF   or     Rs.BOF     Then
Rs.addNew
Rs( "baodanbianhao ")   =   request.QueryString( "baodanbianhao ")
Rs( "pingguleixing ")   =   request.QueryString( "pingguleixing ")
Rs.Update


Else
        response.write( " <script   language= 'vbscript '> msgbox( '提示内容 ',0, '错误 ') </script> ")
        End   If
End   sub
%>
    </tr>
</table>
</form>



<p>
<注:> <br>
一个保单年度内   保费收入、实际缴纳保费、实际申报保费先阶段按相同的方法计算; <br>
一个保单年度内   申报保额、实际申报保额、申报总额现阶段按相同的方法计算。
</body>
</html>

[解决办法]
onclick = "saveData() "> '调用客户端代码.

<% '服务器端代码
sub saveData()
....
end sub
%>

两者不要搞混了.
[解决办法]
最好用些变量来存request.QueryString( "baodanbianhao ")的值,再进行传递,不然在saveData()中取不到值
[解决办法]
客户端代码执行放在
<script> </script> 之间。

热点排行