函数的问题

xmztzgq 发布于 2010-11-03 19:48， 467 次点击

哪位大侠帮偶看看啊，我想通过下面的函数从数据库中取出数值，然后赋值给文本域，可是显示网页有错误
1 <script  language=vbscript>
2 function CalBalance(TextName)
3    Dim rs, sql
4    Set rs = server.CreateObject("adodb.recordset")
5    sql = "select WorkerID,FirstNum from V2studio_Workers Where WorkerID=2"
6    rs.Open sql, conn, 1, 1
7    TextName.value = rs("FirstNum")
8    rs.Close
9    Set rs = Nothing
10 End function
11 </script>

7 回复

dzt00012010-11-04 10:18

ASP代码要在服务器端运行的，要放在<% %>里，<script>是在客户端运行的脚本

xmztzgq2010-11-04 20:11

谢谢，问题解决了，但又出现了新的问题：提示下标越界: '[number: 0]
<%
function CalBalance(TextName)
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    WorkerIdName = Split(Request.Form("WorkerID"), "┎╂┚")
    sql = "select WorkerID,FirstNum from V2studio_Workers Where WorkerID="&WorkerIdName(0)
    rs.Open sql, conn, 1, 1
    TextName.value = rs("FirstNum")
    rs.Close
    Set rs = Nothing
End function
%>

cnfarer2010-11-05 08:02

WorkerIdName = Split(Request.Form("WorkerID"), "┎╂┚")
这句出了问题!你的WORKERID中包含"┎╂┚"?

xmztzgq2010-11-05 11:55

有啊，WORDID是个列表，相关语句是这样的：
...
    response.write("<option value='"&rs("WorkerID")&"┎╂┚"&rs("WorkerName")&"'")
    if GroupID=rs("WorkerID") then response.write ("selected")
    response.write(">"&rs("WorkerName")&"</option>")
    rs.movenext
...
<select name="WorkerID">
          <% call SelectGroup() %>
        </select>

dzt00012010-11-05 13:29

把执行一下response.write(Request.Form("WorkerID"))

看看Request.Form("WorkerID")到底是什么数据。

xmztzgq2010-11-05 23:15

Request.Form("WorkerID")显示的是空值（但列表显示有值）
是不是执行顺序的原因啊

dzt00012010-11-06 08:56

你把生成的<select>部分代码看一下，name是否是WorkerID