ASP自定义函数(如能得到满意答复,所有分相送)
来源:百度知道 编辑:UC知道 时间:2024/06/27 05:56:28
先发上代码:
<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细说不?非常感谢
<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细说不?非常感谢
去掉两边的大括号应该就可以了..
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