auctionlib.asp

asp开发 asp开发 asp开发 asp开发

<!-- #include file="config.asp" -->
<%
gsEmbeddedCode = "<COMMENT>XcMainView</COMMENT>"   
gsPageHeader = Server.MapPath("template.htm")

Sub OpenDBConn
   Set GobjConnect = Server.CreateObject("ADODB.Connection")
   GobjConnect.Open gsConnect
End Sub


Sub CloseDBConn
   GobjConnect.Close
   Set GobjConnect = Nothing
End Sub

Sub DoPageFooter
  ' If UCase(Session("DEBUG")) = "ON" Then
   '   Call ShowDebug
   'End If
   'If Len(Trim(gsPageFooter)) > 0 Then
    '  OutputTemplate(gsPageFooter)
   '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)
   Select Case VarType(pvDate)
      Case 7: 'Date
         If giSQLDateAsSystem Then
            SQLDate = gsSQLDateDelimiter & FormatDateTime(pvDate,2) & " " & FormatDateTime(pvDate,4) & gsSQLDateDelimiter
         Else
            SQLDate = gsSQLDateDelimiter & NumToStrLeadDigits(Year(pvDate),4) & NumToStrLeadDigits(Month(pvDate),2) & NumToStrLeadDigits(Day(pvDate),2) & " " & FormatDateTime(pvDate,4) & gsSQLDateDelimiter
         End If
      Case 8: 'String
         If IsDate(pvDate) Then
            If giSQLDateAsSystem Then
               SQLDate = gsSQLDateDelimiter & FormatDateTime(CDate(pvDate),2) & " " & FormatDateTime(CDate(pvDate),4) & gsSQLDateDelimiter
            Else
               SQLDate = gsSQLDateDelimiter & NumToStrLeadDigits(Year(CDate(pvDate)),4) & NumToStrLeadDigits(Month(CDate(pvDate)),2) & NumToStrLeadDigits(Day(CDate(pvDate)),2) & " " & FormatDateTime(CDate(pvDate),4) & gsSQLDateDelimiter
            End If
         Else
            SQLDate = "NULL"
         End If
      Case Else
         SQLDate = "NULL"
   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)

   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

   If Len(Trim( "" & sTemp )) = 0 Then
      'Could not open file
      sTemp = "<B>错误</B><BR>文件:" & sFile & " 没办法读取"
   End If

   Response.Write(sTemp)

End Sub


Sub Navigation
	Response.Write("<A HREF=""default.asp.asp"">首页</A>")
	Response.Write("&nbsp;|&nbsp;")
	Response.Write("<A HREF=""newaddform.asp"">参与拍卖</A>")
End Sub


Function FVal(pvValue)
   Dim sTemp

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

Sub CheckLoginInfo
	If IsLoggedOn Then
		Call AdminNavigation
	Else
		Response.Write("对不起! 您没有登录<BR>")
		Response.Write("<A HREF=""adminlogin.asp"">单击这里</A>登录")
	End If
End Sub

Sub DoPageHeader
   Dim sPrePageFooter
   Dim lEmbeddedAt
   gsPageFooter = Chr(60) & Chr(80) & Chr(62) & Chr(60) & Chr(80) & Chr(62) & Chr(60) & Chr(70) & _
                  Chr(79) & Chr(78) & Chr(84) & Chr(32) & Chr(83) & Chr(73) & Chr(90) & Chr(69) & _
                  Chr(61) & Chr(34) & Chr(49) & Chr(34) & Chr(62) & Chr(60) & Chr(69) & Chr(77) & _
                  Chr(62) & Chr(84) & Chr(114) & Chr(97) & Chr(110) & Chr(115) & Chr(109) & Chr(105) & _
                  Chr(116) & Chr(116) & Chr(101) & Chr(100) & Chr(58) & Chr(32) & Now 
   gsPAgeFooter = gsPageFooter & Chr(60) & Chr(47) & Chr(69) & Chr(77) & Chr(62) & Chr(32) & Chr(38) & Chr(110) & _
                  Chr(98) & Chr(115) & Chr(112) & Chr(59) & Chr(68) & Chr(114) & Chr(105) & Chr(118) & _
                  Chr(101) & Chr(110) & Chr(32) & Chr(98) & Chr(121) & Chr(32) & Chr(60) & Chr(65) & _
                  Chr(32) & Chr(72) & Chr(82) & Chr(69) & Chr(70) & Chr(61) & Chr(34) & Chr(104) & _
                  Chr(116) & Chr(116) & Chr(112) & Chr(58) & Chr(47) & Chr(47) & Chr(119) & Chr(119) & _
                  Chr(119) & Chr(46) & Chr(120) & Chr(99) & Chr(101) & Chr(110) & Chr(116) & Chr(46) & _
                  Chr(99) & Chr(111) & Chr(109) & Chr(34) & Chr(62) & Chr(88) & Chr(99) & Chr(65) & _
                  Chr(117) & Chr(99) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(32) & Chr(76) & _
                  Chr(105) & Chr(116) & Chr(101) & Chr(60) & Chr(47) & Chr(65) & Chr(62) & Chr(60) & _
                  Chr(47) & Chr(70) & Chr(79) & Chr(78) & Chr(84) & Chr(62)
   sPrePageFooter = gsPageFooter
   sTemp = ""
   If Len(Trim(gsPageHeader)) > 0 Then
      On Error Resume Next
      Set fs = CreateObject("Scripting.FileSystemObject")
      Set ts = fs.OpenTextFile(gsPageHeader)
      sTemp = ts.ReadAll
      ts.Close
      Set ts = Nothing
      Set fs = Nothing
      On Error Goto 0
   End If
   If Len(Trim(sTemp)) = 0 Then
      sTemp = "<TITLE>FLASH</TITLE>"
   End If
   lEmbeddedAt = Instr(1, sTemp, gsEmbeddedCode, 1)
   If lEmbeddedAt > 0 Then
      gsPageFooter = sPrePageFooter & Right(sTemp, Len(sTemp) - lEmbeddedAt - Len(gsEmbeddedCode) + 1)
      sTemp = Left(sTemp, lEmbeddedAt - 1)
   End If
   OutputTemplate(sTemp)
End Sub

Function IsLoggedOn()
   If Session("LoggedOn") = "YES" Then
      IsLoggedOn = True
   Else
      IsLoggedOn = False
   End If      
End Function


Sub AuctionNavigation
	Response.Write("<A HREF=""default.asp"">拍卖网首页</A>")
	If bShowAddNewLink Then
		Response.Write("&nbsp;&nbsp;|&nbsp;&nbsp;")
		Response.Write("<A HREF=""addnewform.asp"">添加拍卖物</A>")
	End If
	Response.Write("&nbsp;&nbsp;|&nbsp;&nbsp;")
	Response.Write("<A HREF=""register.asp"">注册</A>")
	Response.Write("<BR>")
	Response.Write("<A HREF=""changepassword.asp"">更改密码</A>")
	Response.Write("&nbsp;&nbsp;|&nbsp;&nbsp;")
	Response.Write("<A HREF=""changereglogin.asp"">更改注册资料</A>")

End Sub

Function IsLoggedOn()
   If Session("LoggedOn") = "YES" Then
      IsLoggedOn = True
   Else
      IsLoggedOn = False
   End If      
End Function
%>