function.asp

CC足球投注系统

<%
Dim About,Rule,Contact,Pronounce,Rule_fb,Rule_bb,joinus
sub Webjoin()
	sql = "Select joinus from Config"
	set rs = conn.execute(sql)
	joinus=rs("joinus")
	rs.close
	set rs=nothing
end sub

sub WebAbout()
	sql = "Select About from Config"
	set rs = conn.execute(sql)
	About=rs("About")
	rs.close
	set rs=nothing
end sub

sub WebRule()
	sql = "Select Rules from Config"
	set rs = conn.execute(sql)
	Rule=rs("Rules")
	rs.close
	set rs=nothing
end sub

sub WebRule_bb()
	sql = "Select Rules_bb from Config"
	set rs = conn.execute(sql)
	Rule_bb=rs("Rules_bb")
	rs.close
	set rs=nothing
end sub

sub WebRule_fb()
	sql = "Select Rules_fb from Config"
	set rs = conn.execute(sql)
	Rule_fb=rs("Rules_fb")
	rs.close
	set rs=nothing
end sub

sub WebContact()
	sql = "Select Contact from Config"
	set rs = conn.execute(sql)
	Contact=rs("Contact")
	rs.close
	set rs=nothing
end sub

sub Webpronounce()
	sql = "Select pronounce from Config"
	set rs = conn.execute(sql)
	Pronounce=rs("pronounce")
	rs.close
	set rs=nothing
end sub

function HTMLEncode(fString)
if not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")
    fString=ChkBadWords(fString)
    HTMLEncode = fString
end if
end function

function HTMLcode(fString)
if not isnull(fString) then
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLcode = fString
end if
end function

Const Btn_First="