webconfig.asp

闲置物品免费交易的平台

<%
dim pay_username,z_a,z_b,z_c,z_d,jf_1,jf_2,jf_3,jf_4,jf_hb,g_a,g_b,g_c,g_d,rmb_hb,z_hb,del_xx,b_y,s_y
dim webname,webemail,dizhi,youbian,dianhua,copyright,webbanner,weblogo,weburl,gonggao
set rs=server.CreateObject("adodb.recordset")
rs.Open "select webname,webemail,dizhi,youbian,dianhua,copyright,gonggao,weblogo,weburl,webbanner,pay_username,z_a,z_b,z_c,z_d,jf_1,jf_2,jf_3,jf_4,jf_hb,g_a,g_b,g_c,g_d,rmb_hb,z_hb,del_xx,b_y,s_y from shop_config",conn,1,1
webname=trim(rs("webname"))
webemail=trim(rs("webemail"))
dizhi=trim(rs("dizhi"))
youbian=trim(rs("youbian"))
dianhua=trim(rs("dianhua"))
copyright=trim(rs("copyright"))
weblogo=trim(rs("weblogo"))
webbanner=trim(rs("webbanner"))
weburl=trim(rs("weburl"))
gonggao=trim(rs("gonggao"))
pay_username=trim(rs("pay_username"))
z_a=trim(rs("z_a"))
z_b=trim(rs("z_b"))
z_c=trim(rs("z_c"))
z_d=trim(rs("z_d"))
z_hb=trim(rs("z_hb"))
jf_1=trim(rs("jf_1"))
jf_2=trim(rs("jf_2"))
jf_3=trim(rs("jf_3"))
jf_4=trim(rs("jf_4"))
jf_hb=trim(rs("jf_hb"))
g_a=trim(rs("g_a"))
g_b=trim(rs("g_b"))
g_c=trim(rs("g_c"))
g_d=trim(rs("g_d"))
rmb_hb=trim(rs("rmb_hb"))
b_y=trim(rs("b_y"))
s_y=trim(rs("s_y"))
del_xx=trim(rs("del_xx"))
rs.Close
set rs=nothing

Rem 过滤HTML代码
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
else
   HTMLEncode=fstring
end if
end function

Rem 过滤SQL非法字符
function checkStr(str)
	if isnull(str) then
		checkStr = ""
		exit function 
	end if
	checkStr=replace(str,"'","''")
end function

Rem 判断数字是否整形
function isInteger(para)
       on error resume next
       dim str
       dim l,i
       if isNUll(para) then 
          isInteger=false
          exit function
       end if
       str=cstr(para)
       if trim(str)="" then
          isInteger=false
          exit function
       end if
       l=len(str)
       for i=1 to l
           if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
              isInteger=false 
              exit function
           end if
       next
       isInteger=true
       if err.number<>0 then err.clear
end function
%>