Question

ASP自定义函数（如能得到满意答复，所有分相送）

先发上代码：
<script language="vbscript">
function show(){

if request.Form("shebid")<>"" then
dim rs3,sql3
set rs3 =server.CreateObject("adodb.recordset")
sql3="select hetid from computererr where shebid ='" & request("shebid") &"'"
rs3.open sql3,conn,1,3
if rs3.eof or rs3.bof then
alert("该设备编号不存在!")
else
dim shebid
shebid=request("shebid")
htid=rs3("htid")
end if
end if
end function
}
</script>
意思是这样的，现在有两个文本框：shebid和htid，当我在shebid框中输入数据后点”确认“，执行上面这段代码，打开computererr数据库，htid框就会显示与shebid相对应的数据，（数据已经存在库里边了，所以不用写进去）该怎么实现？这段代码该怎么改？希望能详细一点，郁闷了好久的问题，我的QQ:554881654 万分感激！
但我输入那个<%=htid%>提示说未定义，这个怎么定义呢？

愁死我了，还是有出错，可以加下QQ细说不？非常感谢

Answer 1

去掉两边的大括号应该就可以了..

VBSCRIPT 没有 {}

都是使用 Function / End Function , Sub /End Sub , If / End If 来作为边界的...

另外, 你用的标签 <script language="vbscript"></script> 这个是在客户端使用的...改成 <%%>

还有就是在服务器端没有 alert /msgbox 方法的 :)要使用

Response.Write("<script>alert('msg')</script>")

-----------------------------

<%
function show()

if request.Form("shebid")<>"" then
dim rs3,sql3
set rs3 =server.CreateObject("adodb.recordset")
sql3="select hetid from computererr where shebid ='" & request("shebid") &"'"
rs3.open sql3,conn,1,3
if rs3.eof or rs3.bof then
Response.Write("该设备编号不存在!")
else
dim shebid
shebid=request("shebid")
htid=rs3("htid")
end if
end if
end function
%>

---------------------------------

你定义的函数是服务器端函数

无法在客户端调用的

可以试试:

<form action="?" method="get">
<input name="shebid" type="text" value="" size="40" maxlength="50">
<input type="submit" value="确定" />

</form>
---------------------------------

你可以在 <%%> 之后任意的地方加入

<input name="htid" type="text" id="htid" value="<%=htid%>" size="40" maxlength="50" readonly="">

--------------------------------
在函数外定义一下 htid

Dim htid

Function show