编程论坛 → ASP技术论坛

求助！想编写一个sub过程。调用数据库中数据，用于判断

lwh3328 发布于 2012-05-05 10:58， 558 次点击

想编写一个sub过程。用来判断已经发表信息的记录中时间（AddTime字段），判断是否今天发布了信息否，如没有发布信息就弹出窗口。
conn.asp
-----------------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<%
Option Explicit
Response.Buffer = True
'Session.CodePage=936
Const Timeset=0 '时区相对东八区(北京时间)
Dim Conn,StartTime,PageUrl,CacheName
StartTime = Timer()
PageURL=Lcase(Request.ServerVariables("URL"))
CacheName="BBS"&Replace(left(PageURL,instrRev(PageURL,"/")),"/","")
Sub ConnectionDatabase
    Dim Db,ConnStr
    on error resume next
    Db="data/db.mdb"
    Set conn=Server.CreateObject("ADODB.Connection")
    ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db)
    Conn.Open ConnStr
    If Err Then
        Err.Clear
        Set Conn = Nothing
        Response.Write "数据连接错误!"
        Response.End
    End If
End Sub
%>
-----------------------------------
数据库名db.mdb；表名：BoardID；字段名：Addtime

8 回复

#2

ysf01812012-05-05 15:26

用 function 才有返回值的

function tishi()
   tishi_f = 0
   set rs_f = server.creatobject("adodb.recordset")
   rs_f.open"select addtime from boardid where addtime #"&date()&"#",conn,1,1
   if not rs_f then
      tishi_f = 1
   end if
   rs_f.close
   tishi  = tishi_f
end fuction 'function tishi()

返回为 1 为有的，，，，

#3

lwh33282012-05-06 07:45

这样在页面上能显示当前时间
<%

OpenInfo()
sub OpenInfo()
response.Write(date())
end sub

%>

#4

lwh33282012-05-06 08:11

好像这样也可以将信息显示出来。
sub tishi()
   on error resume next

   dim tishi_f
   tishi_f = 0
   set rs_f = Server.CreateObject("ADODB.Connection")
   rs_f.open"select addtime from boardid where addtime #"&date()&"#",conn,1,1
   if not rs_f then
      tishi_f = "你好"
   end if
   rs_f.close
   response.Write(tishi_f)
end sub

#5

lwh33282012-05-06 10:05

回复 2楼 ysf0181

除了not，显示的还是1。不知道哪里出了问题

#6

ysf01812012-05-06 10:37

你只有显示啊，不能获取相应的值，不符合调用，强行给值也是可以的，但调用和思路变得很乱的。

#7

lwh33282012-05-06 10:59

回复 6楼 ysf0181

我是说用if rs_f then 和if not rs_f then，最终显示的值都是1.按理一个应该显示0的。

#8

lwh33282012-05-06 11:44

调试出了，可以进行判断。这里面可以用msgbox吗？或有其他相似的功能？
sub tishi4()
    on error resume next
   dim rs,sql

   set rs = server.creatobject("adodb.recordset")
   sql"select addtime from boardid where addtime #"&date()&"#"
   rs.open sql,conn,1,1
if not rs then
      response.Write"<h1>没有对应的值</h1>"
      end if
   rs.close
   set rs=nothing

end sub

#9

lwh33282012-05-06 14:10

下面代码无法将数据显示出来，不知道为什么？里面是有数据的！

<%
    on error resume next
   dim rs,sql
    set rs = server.creatobject("adodb.recordset")
   sql="select * from bbs1"
   rs.open sql,conn,1,1
if rs.eof and rs.bof then
      response.Write"空"
      else
      do while not rs.eof
      response.Write
      rs("addtime")
      rs.movenext
      loop
      end if
   rs.close
   set rs=nothing

%>

1