clssys_siteconfig.asp

html生成静态页的小程序

<%
Class clsSys_SiteConfig
	Public SiteIsClose
	Public SiteCloseNote
	Public SitePath
	Public SiteDbPath
	Public SiteAdminPath
	Public SiteName
	Public SiteTitle
	Public SiteKeyWords
	Public SiteDescription
	Public SiteUrl
	Public SiteTCPIP
	Public SiteCoName
	Public SiteLinkMan
	Public SiteTel
	Public SiteFax
	Public SiteAddress
	Public SiteZip
	Public SiteEmail
	Public SiteQQ
	Public SiteTongji
	Public SiteMailSmtpName
	Public SiteMailSmtpUser
	Public SiteMailSmtpPass
	Public SiteMailSmtpFromEmail
	Public siteMailSmtpFromUser
	Public SiteMailSmtpType
	Public PhotoThumbDLL
	Public PhotoThumbW
	Public PhotoThumbH
	Public Alipay_open
	Public Alipay_email
	Public Alipay_code
	Public Alipay_partner

	Private Sub Class_Initialize
		Call GetRs()
	End Sub
	
	Public Sub Edit()
		Call GetFormData()
		Set SiteConfigRs = Server.CreateObject("Adodb.RecordSet")
		Sql = "select * from Ok3w_SiteConfig"
		SiteConfigRs.Open Sql,Conn,1,3
		If SiteConfigRs.Eof And SiteConfigRs.Bof Then
			SiteConfigRs.AddNew
		End If
		Call UpdateRs(SiteConfigRs)
		SiteConfigRs.Update
		SiteConfigRs.Close
		Set SiteConfigRs = Nothing
	End Sub
	
	Private Sub GetFormData()
		SiteIsClose = filterhtml(Request.Form("SiteIsClose"))
		If SiteIsClose = "" Then SiteIsClose = "0"
		SiteCloseNote = filterhtml(Request.Form("SiteCloseNote"))
		SitePath = filterhtml(Request.Form("SitePath"))
		SiteDbPath = filterhtml(Request.Form("SiteDbPath"))
		SiteAdminPath = filterhtml(Request.Form("SiteAdminPath"))
		SiteName = filterhtml(Request.Form("SiteName"))
		SiteTitle = filterhtml(Request.Form("SiteTitle"))
		SiteKeyWords = filterhtml(Request.Form("SiteKeyWords"))
		SiteDescription = filterhtml(Request.Form("SiteDescription"))
		SiteUrl = filterhtml(Request.Form("SiteUrl"))
		SiteTCPIP = filterhtml(Request.Form("SiteTCPIP"))
		SiteCoName = filterhtml(Request.Form("SiteCoName"))
		SiteLinkMan = filterhtml(Request.Form("SiteLinkMan"))
		SiteTel = filterhtml(Request.Form("SiteTel"))
		SiteFax = filterhtml(Request.Form("SiteFax"))
		SiteAddress = filterhtml(Request.Form("SiteAddress"))
		SiteZip = filterhtml(Request.Form("SiteZip"))
		SiteEmail = filterhtml(Request.Form("SiteEmail"))
		SiteQQ = filterhtml(Request.Form("SiteQQ"))
		SiteTongji = Request.Form("SiteTongji")
		SiteMailSmtpName = filterhtml(Request.Form("SiteMailSmtpName"))
		SiteMailSmtpUser = filterhtml(Request.Form("SiteMailSmtpUser"))
		SiteMailSmtpPass = filterhtml(Request.Form("SiteMailSmtpPass"))
		SiteMailSmtpFromEmail = filterhtml(Request.Form("SiteMailSmtpFromEmail"))
		siteMailSmtpFromUser = filterhtml(Request.Form("siteMailSmtpFromUser"))
		SiteMailSmtpType = filterhtml(Request.Form("SiteMailSmtpType"))
		PhotoThumbDLL = filterhtml(Request.Form("PhotoThumbDLL"))
		PhotoThumbW = filterhtml(Request.Form("PhotoThumbW"))
		PhotoThumbH = filterhtml(Request.Form("PhotoThumbH"))
		Alipay_open = filterhtml(Request.Form("Alipay_open"))
		If Alipay_open="" Then Alipay_open = 0
		Alipay_email = filterhtml(Request.Form("Alipay_email"))
		Alipay_code = filterhtml(Request.Form("Alipay_code"))
		Alipay_partner = filterhtml(Request.Form("Alipay_partner"))
	End Sub
	
	Private Sub UpdateRs(ByRef Rs)
		Rs("SiteIsClose") = SiteIsClose
		Rs("SiteCloseNote") = SiteCloseNote
		Rs("SitePath") = SitePath
		Rs("SiteDbPath") = SiteDbPath
		Rs("SiteAdminPath") = SiteAdminPath
		Rs("SiteName") = SiteName
		Rs("SiteTitle") = SiteTitle
		Rs("SiteKeyWords") = SiteKeyWords
		Rs("SiteDescription") = SiteDescription
		Rs("SiteUrl") = SiteUrl
		Rs("SiteTCPIP") = SiteTCPIP
		Rs("SiteCoName") = SiteCoName
		Rs("SiteLinkMan") = SiteLinkMan
		Rs("SiteTel") = SiteTel
		Rs("SiteFax") = SiteFax
		Rs("SiteAddress") = SiteAddress
		Rs("SiteZip") = SiteZip
		Rs("SiteEmail") = SiteEmail
		Rs("SiteQQ") = SiteQQ
		Rs("SiteTongji") = SiteTongji
		Rs("SiteMailSmtpName") = SiteMailSmtpName
		Rs("SiteMailSmtpUser") = SiteMailSmtpUser
		Rs("SiteMailSmtpPass") = SiteMailSmtpPass
		Rs("SiteMailSmtpFromEmail") = SiteMailSmtpFromEmail
		Rs("siteMailSmtpFromUser") = siteMailSmtpFromUser
		Rs("SiteMailSmtpType") = SiteMailSmtpType
		Rs("PhotoThumbDLL") = PhotoThumbDLL
		Rs("PhotoThumbW") = PhotoThumbW
		Rs("PhotoThumbH") = PhotoThumbH
		Rs("Alipay_open") = Alipay_open
		Rs("Alipay_email") = Alipay_email
		Rs("Alipay_code") = Alipay_code
		Rs("Alipay_partner") = Alipay_partner
	End Sub
	
	Private Sub GetRs()
		text = ReadFile(Server.MapPath("../AppCode/SysConfig.asp"))
		textTmp = Split(text,vbCrLf)
		SiteIsClose = GetArrStr(textTmp(1))
		SiteCloseNote = GetArrStr(textTmp(2))
		SitePath = GetArrStr(textTmp(3))
		SiteDbPath = GetArrStr(textTmp(4))
		SiteAdminPath = GetArrStr(textTmp(5))
		SiteName = GetArrStr(textTmp(6))
		SiteTitle = GetArrStr(textTmp(7))
		SiteKeyWords = GetArrStr(textTmp(8))
		SiteDescription = GetArrStr(textTmp(9))
		SiteUrl = GetArrStr(textTmp(10))
		SiteTCPIP = GetArrStr(textTmp(11))
		SiteCoName = GetArrStr(textTmp(12))
		SiteLinkMan = GetArrStr(textTmp(13))
		SiteTel = GetArrStr(textTmp(14))
		SiteFax = GetArrStr(textTmp(15))
		SiteAddress = GetArrStr(textTmp(16))
		SiteZip = GetArrStr(textTmp(17))
		SiteEmail = GetArrStr(textTmp(18))
		SiteQQ = GetArrStr(textTmp(19))
		SiteTongji = GetArrStr(textTmp(20))
		SiteMailSmtpName = GetArrStr(textTmp(21))
		SiteMailSmtpUser = GetArrStr(textTmp(22))
		SiteMailSmtpPass = GetArrStr(textTmp(23))
		SiteMailSmtpFromEmail = GetArrStr(textTmp(24))
		siteMailSmtpFromUser = GetArrStr(textTmp(25))
		SiteMailSmtpType = GetArrStr(textTmp(26))
		PhotoThumbDLL = GetArrStr(textTmp(27))
		PhotoThumbW = GetArrStr(textTmp(28))
		PhotoThumbH = GetArrStr(textTmp(29))
		Alipay_open = GetArrStr(textTmp(30))
		Alipay_email = GetArrStr(textTmp(31))
		Alipay_code = GetArrStr(textTmp(32))
		Alipay_partner = GetArrStr(textTmp(33))
	End Sub
	
	'写入文件缓存
	Public Sub ToFile()
		Dim Text,txt
		Set clsRs = Server.CreateObject("Adodb.RecordSet")
        Sql = "select * from Ok3w_SiteConfig"
		clsRs.Open Sql,Conn,1,1
		Text = "<%" & vbCrLf
		For i = 0 To clsRs.Fields.Count - 1
			txt = clsRs.Fields(i).Value
			txt = Replace(txt,"""","""""")
			txt = Replace(txt,Chr(13) & Chr(10),"<br />")
			Text = Text & "Const Sys" & clsRs.Fields(i).Name & " = """ & txt & """" & vbCrLf
		Next
		Text = Text & "%"
		Text = Text & ">" & vbCrLf
		clsRs.Close
		Set clsRs = Nothing
		Call WriteFile(Server.MapPath("../AppCode/SysConfig.asp"),Text)
	End Sub
	
	Function GetArrStr(Str)
		sStr = Split(Str," = """)
		ssStr = sStr(1)
		If ssStr<>"" Then ssStr = Replace(Left(ssStr,Len(ssStr)-1), """""", """")
		GetArrStr = ssStr
	End Function
End Class
%>