public.asp

一个不错的拍卖网站,fdsafdsfdfe

<!-- #include file="config.asp" -->
<%
'*******************************************************************************
'* QuickAuction Copyright 2002-2003 vqqq.com - www.vqqq.com                      *
'* QuickAuction is a trademark of vqqq.com                                        *
'* This notice may not be removed from this source code file                   *
'*******************************************************************************

Sub OpenDBConn
   Set conn = Server.CreateObject("ADODB.Connection")
   conn.Open connstr
End Sub

Sub CloseDBConn
   conn.Close
   Set conn = Nothing
End Sub

Function FCurrency(pvValue)
	FCurrency = gsMoneySymbol & Trim(FormatNumber(FVal(pvValue), 2))
End Function

Sub DoPagebotter
   'Dim sDebug
   'sDebug = Session("DEBUG")
   'If UCase(sDebug) = "ON" Then
    '  Call ShowDebug
   'End If
   If Len(Trim(botter)) > 0 Then
      OutputTemplate(botter)
   End If
End Sub

Sub OutputTemplate( psStream )
   Dim lEmbeddedAt
   
   sTemp = "" & psStream
   If Len(Trim(sTemp)) > 0 Then
      lEmbeddedAt = Instr(1, sTemp, gsAuxCode, 1)
      If lEmbeddedAt > 0 Then
         Response.Write( Left(sTemp, lEmbeddedAt - 1) )
         Response.Write( Right(sTemp, Len(sTemp) - lEmbeddedAt - Len(gsAuxCode) + 1 ) )
      Else
         Response.Write( sTemp )
      End IF
   End If
End Sub

Function SQLStr(pvValue)
   Dim sTemp
   Select Case VarType(pvValue)
      Case 0, 1:
         SQLStr = "NULL"
      Case 2, 3, 4, 5, 6:
         sTemp = "" & pvValue
         sTemp = Replace(sTemp, "'", "''")
         SQLStr = "'" & sTemp & "'"
      Case 7: 'DateTime
         sTemp = FormatDateTime(pvValue)
         sTemp = Replace(sTemp, "'", "''")
         SQLStr = "'" & sTemp & "'"
      Case 8: 'String
         sTemp = pvValue
         sTemp = Replace(sTemp, "'", "''")
         If Len(Trim(sTemp)) > 0 Then
            SQLStr = "'" & sTemp & "'"
         Else
            SQLStr = "NULL"
         End If
      Case Else
         SQLStr = "NULL"
   End Select
End Function

Function SQLBool(pvValue)
   Dim sTemp
   Select Case VarType(pvValue)
      Case 0, 1:
         SQLBool = "'N'"
      Case 2, 3, 4, 5, 6:
         If pvValue Then
            SQLBool = "'Y'"
         Else
            SQLBool = "'N'"
         End If
      Case 8: 'String
         sTemp = UCase(Left(Trim(pvValue), 1))
         Select Case sTemp
            Case "Y", "T", "1", "-":
               SQLBool = "'Y'"
            Case "N", "F", "0", "":
               SQLBool = "'N'"
            Case Else
               SQLBool = "'N'"
         End Select
      Case 11:
         If pvValue Then
            SQLBool = "'Y'"
         Else
            SQLBool = "'N'"
         End If
      Case Else
         SQLBool = "'N'"
   End Select
End Function

Function SQLVal(pvValue)
   Dim sTemp

   Select Case VarType(pvValue)
      Case 0, 1:
         SQLVal = "NULL"
      Case 2, 3, 4, 5, 6:
         SQLVal = "" & pvValue
      Case 8: 'String
         sTemp = Trim(pvValue)
         On Error Resume Next
         SQLVal = "" & CDbl(sTemp)
         If Err.Number <> 0 Then
            Err.Clear
            SQLVal = "NULL"
         End If
      Case 11:
         SQLVal = "" & Cint(pvValue)         
      Case Else
         SQLVal = "NULL"
   End Select
End Function

Function SQLDate(pvDate)
    Dim sSQLDate
    Dim vDate
    Dim iBuild
    Dim sYear, sMonth, sDay, sHour, sMinute, sSecond
    sSQLDate = "NULL"
    iBuild = False
    Select Case VarType(pvDate)
        Case 7: 'Date
        	iBuild = True
        	vDate = pvDate
        Case 8: 'String
            If IsDate(pvDate) Then
                vDate = CDate(pvDate)
                iBuild = True
            End If
    End Select
    
    If iBuild Then
        Select Case giSQLDateFormat
            Case 1: 'SC SQL Server
                sSQLDate = gsSQLDateDelimiter & NumToStrLeadDigits(Year(vDate),4) & NumToStrLeadDigits(Month(vDate),2) & NumToStrLeadDigits(Day(vDate),2) & " " & FormatDateTime(vDate,4) & gsSQLDateDelimiter
            Case 2: 'SC JET-MDY
                sSQLDate = gsSQLDateDelimiter & Month(vDate) & "/" & Day(vDate) & "/" & Year(vDate) & " " & FormatDateTime(vDate,4) & gsSQLDateDelimiter
            Case 3: 'SC JET-DMY
                sSQLDate = gsSQLDateDelimiter & Day(vDate) & "/" & Month(vDate) & "/" & Year(vDate) & " " & FormatDateTime(vDate,4) & gsSQLDateDelimiter
            Case Else 'As System
                'sSQLDate = gsSQLDateDelimiter & FormatDateTime(vDate,2) & " " & FormatDateTime(vDate,4) & gsSQLDateDelimiter
                sYear = "" & Year(vDate)
                Do While Len(sYear) < 4
                	sYear = "0" & sYear
                Loop
                sMonth = "" & Month(vDate)
                Do While Len(sMonth) < 2
                	sMonth = "0" & sMonth
                Loop
                sDay = "" & Day(vDate)
                Do While Len(sDay) < 2
                	sDay = "0" & sDay
                Loop
                sHour = "" & Hour(vDate)
                Do While Len(sHour) < 2
                	sHour = "0" & sHour
                Loop
                sMinute = "" & Minute(vDate)
                Do While Len(sMinute) < 2
                	sMinute = "0" & sMinute
                Loop
                sSecond = "" & Second(vDate)
                Do While Len(sSecond) < 2
                	sSecond = "0" & sSecond
                Loop
                If (Hour(vDate)=0) And (Minute(vDate)=0) And (Second(vDate)=0) Then
                	sSQLDate = "{d '" & sYear & "-" & sMonth & "-" & sDay & "'}"
                Else
                	sSQLDate = "{ts '" & sYear & "-" & sMonth & "-" & sDay & " " & sHour & ":" & sMinute & ":" & sSecond & "' }"
                End If
        End Select
    End If
    
    sSQLDate = Replace(sSQLDate, ".", "/")
    SQLDate = sSQLDate
End Function

Function EvalBool(pvValue)
   Dim sTemp
   Select Case VarType(pvValue)
      Case 0, 1:
         EvalBool = False
      Case 2, 3, 4, 5, 6:
         If pvValue Then
            EvalBool = True
         Else
            EvalBool = False
         End If
      Case 8: 'String
         sTemp = UCase(Left(Trim(pvValue), 1))
         Select Case sTemp
            Case "Y", "T", "A", "W", "V", "Z",  "1", "-":
               EvalBool = True
            Case "N", "F", "0", "":
               EvalBool = False
            Case Else
               EvalBool = False
         End Select
      Case 11:
         If pvValue Then
            EvalBool = True
         Else
            EvalBool = False
         End If
      Case Else
         EvalBool = False
   End Select
End Function

Function NumToStrLeadDigits(pvValue, piDigits)
   Dim sTemp
   sTemp = Trim("" & pvValue)
   Do While Len(sTemp) < piDigits
      sTemp = "0" & sTemp
   Loop
   NumToStrLeadDigits = sTemp
End Function

Sub ShowHTMLFile(psFile)
   Dim sFile, fso, ts, sTemp 
   If Instr(psFile, "\") > 0 Then
      sFile = psFile
   Else
      sFile = Server.MapPath(".") & "\" & psFile
   End If

   On Error Resume Next
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set ts = fso.OpenTextFile(sFile)
   sTemp = ts.ReadAll
   ts.Close
   Set ts = Nothing
   Set fso = Nothing
   
   If Len(Trim( "" & sTemp )) = 0 Then
      'Could not open file
      sTemp = "<B>Error</B><BR>File:" & sFile & " could not be read."
   End If

   Response.Write(sTemp)
End Sub

Function FVal(pvValue)
   Dim sTemp