Public Function DbOpen() If IsObject(Conn) Then Exit Function Set Conn = Server.CreateObject(Cfg.nConnectionObject) If Conn.State = 1 Then Exit Function On Error Resume Next Conn.Open
隨便寫寫了.很簡單的.與accessda_path="**.mdb"set rs=server.CreateObject("adodb.recordset")set conn=server.CreateObject("adodb.connection")conn.connectionstring="provider=microsoft.jet.oledb.4.0; data
Public Function IsEmail(ByVal PString) Dim Plt,Pgt : Plt = False : Pgt = False For x = 2 To Len(PString) - 1 If Mid(PString,x,1) = "@" Then Plt = True If Mid(PString,x,1) = "." And Plt = True Then Pgt = True Next If Plt = True
Public Function DateToStr(DateTime,ShowType) Dim DateMonth,DateDay,DateHour,DateMinute,DateWeek,DateSecond Dim FullWeekday,shortWeekday,Fullmonth,Shortmonth,TimeZone1,TimeZone2 TimeZone1="+0800"
<% dim Conn,RS,sqlStr,PageSize,RowCount,TotalPages,PageNo,Position,PageBegin,PageEnd set Conn= Server.CreateObject("ADODB.Connection") set RS = Server.CreateObject("ADODB.RecordSet") Conn.open
<SCRIPT LANGUAGE=VBScript RUNAT=Server>' ************************************************************************ ' Script Compont Object Model' Design for Active Server Pages'' Copyright 2004 Version 2.0' Made by 尹曙光' ************************