为什么if语句没有执行?(毕设小问题)

fanea 2008-04-05 10:51:34
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/nana.asp" -->
<%
Dim rs1
Dim rs1_numRows

Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_nana_STRING
rs1.Source = "SELECT fid FROM dbo.fina"
rs1.CursorType = 3
rs1.CursorLocation = 2
rs1.LockType = 1
rs1.Open()

rs1_numRows = 0

%>
<html>
<form name="form1" method="post" action="">
<input type="submit" name="Submit" value="提交">
<input name="text1" type="text" id="text1">
</form>
<%
rs1.movefirst
dim a
dim b
a=rs1("fid")
b=request.form("text1")
if a=b then
response.write(a)
end if
%>
</html>
<%
rs1.Close()
Set rs1 = Nothing
%>
我验证过a="1234",b="1234"
为什么不执行以下语句?
if a=b then
response.write(a)
end if
...全文
90 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
fanea 2008-04-06
  • 打赏
  • 举报
回复
真的是这个问题,我怎么就没想到呢,解决了,谢谢
fanea 2008-04-06
  • 打赏
  • 举报
回复
好,我去试试
小逗狗 2008-04-06
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 hookee 的回复:]
a = trim(rs1("fid").value)
b = trim(request.form("text1"))
if a = b then

数字的话
a = rs1("fid").value
b = trim(request.form("text1"))
If CInt(a) = CInt(b) Then
[/Quote]
同意楼上
hookee 2008-04-05
  • 打赏
  • 举报
回复
a = trim(rs1("fid").value)
b = trim(request.form("text1"))
if a = b then

数字的话
a = rs1("fid").value
b = trim(request.form("text1"))
If CInt(a) = CInt(b) Then

4,009

社区成员

发帖
与我相关
我的任务
社区描述
它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。
社区管理员
  • vbScript社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧