function.asp

电子商城代码

				skin_basket_cashsave = www56770com_sys_56770skins(15)
				skin_myuser = www56770com_sys_56770skins(16)
				skin_jfpro = www56770com_sys_56770skins(17)
				skin_zhuanti = www56770com_sys_56770skins(18)
				skin_help = www56770com_sys_56770skins(19)
				skin_book = www56770com_sys_56770skins(20)
				skin_search = www56770com_sys_56770skins(21)
				webwidth = www56770com_sys_56770skins(22)
				skin_search_gj = www56770com_sys_56770skins(23)
				skin_button = www56770com_sys_56770skins(24)
				skin_pic_size = www56770com_sys_56770skins(25)
				skin_id = www56770com_sys_56770skins(26)
				skin_topnum = www56770com_sys_56770skins(27)
				strskin_main = split(skin_main,"@@@")
				skin_head = strskin_main(0)
				skin_topmenu = strskin_main(1)
				skin_topgg = strskin_main(2)
				skin_footer = strskin_main(3)
				skin_topmain = strskin_main(4)
				strskin_mulu = split(skin_mulu,"@@@")
				skin_mulu_dh = strskin_mulu(0)
                skin_mulu_list = strskin_mulu(1)
				strskin_brand = split(skin_brand,"@@@")
				skin_brand_dh = strskin_brand(0)
                skin_brand_tjlist = strskin_brand(1)
                skin_brand_list = strskin_brand(2)
				strskin_reg = split(skin_reg,"@@@")
				skin_reginput = strskin_reg(0)
				skin_regok_top = strskin_reg(1)
				skin_regok_footer = strskin_reg(2)
				strskin_basket_cashsave = Split(skin_basket_cashsave,"@@@")
				skin_basket_cashsave_1 = strskin_basket_cashsave(0)
				skin_basket_cashsave_2 = strskin_basket_cashsave(1)
				strskin_myuser = Split(skin_myuser,"@@@")
				skin_myuser_left = strskin_myuser(0)
				skin_myuser_ctop = strskin_myuser(1)
				skin_myuser_cfooter = strskin_myuser(2)
				skin_myuser_right = strskin_myuser(3)
				strskin_jfpro = Split(skin_jfpro,"@@@")
				skin_jfpro_list = strskin_jfpro(0)
				strskin_zhuanti = Split(skin_zhuanti,"@@@")
				skin_zhuanti_menu = strskin_zhuanti(0)
				skin_zhuanti_top = strskin_zhuanti(1)
				skin_zhuanti_footer = strskin_zhuanti(2)
				skin_zhuanti_class = strskin_zhuanti(3)
				skin_zhuanti_list = strskin_zhuanti(4)
				skin_zhuanti_right = strskin_zhuanti(5)
				strskin_help = Split(skin_help,"@@@")
				help_word1 = strskin_help(0)
				help_word2 = strskin_help(1)
				skin_help_menu = strskin_help(2)
				skin_help_rtop = strskin_help(3)
				skin_help_rfooter = strskin_help(4)
				strskin_book = Split(skin_book,"@@@")
				skin_book_left = strskin_book(0)
				skin_book_rtop = strskin_book(1)
				skin_book_rfooter = strskin_book(2)
				strskin_button = Split(skin_button,"@@@")
				unlogin = strskin_button(0)
				button_1 = strskin_button(1)
				button_2 = strskin_button(2)
				button_3 = strskin_button(3)
				button_4 = strskin_button(4)
				button_5 = strskin_button(5)
				button_6 = strskin_button(6)
				button_7 = strskin_button(7)
				button_8 = strskin_button(8)
				button_9 = strskin_button(9)
				button_10 = strskin_button(10)
				button_11 = strskin_button(11)
				button_12 = strskin_button(12)
				button_13 = strskin_button(13)
				button_14 = strskin_button(14)
				button_15 = strskin_button(15)
				button_16 = strskin_button(16)
				button_17 = strskin_button(17)
				button_18 = strskin_button(18)
				button_19 = strskin_button(19)
				button_20 = strskin_button(20)
				button_21 = strskin_button(21)
				button_22 = strskin_button(22)
				button_23 = strskin_button(23)
				button_24 = strskin_button(24)
				button_25 = strskin_button(25)
				button_26 = strskin_button(26)
				button_27 = strskin_button(27)
				button_28 = strskin_button(28)
				button_29 = strskin_button(29)
				button_30 = strskin_button(30)
				button_31 = strskin_button(31)
				pic_size = Split(skin_pic_size,"##")
				pic_xw = pic_size(0)
				pic_xh = pic_size(1)
				pic_dw = pic_size(2)
				pic_dh = pic_size(3)
				pic_zt = pic_size(4)
				show_html = pic_size(5)
				show_mouse = pic_size(6)
				str_num=Split(skin_topnum,"$$$")
				top1=str_num(0)
				top2=str_num(1)
				top3=str_num(2)
				top4=str_num(3)
				top5=str_num(4)
				top6=str_num(5)
				top7=str_num(6)
				top8=str_num(7)
				top9=str_num(8)
				top10=str_num(9)
				top11=str_num(10)
				top12=str_num(11)
				top13=str_num(12)
				top14=str_num(13)
				top15=str_num(14)
				top16=str_num(15)
				top17=str_num(16)
				top18=str_num(17)
				top19=str_num(18)
				top20=str_num(19)
				skin_ys1=str_num(20)
				skin_ys2=str_num(21)
				skin_ys3=str_num(22)

				
'过滤非法字段
'****  Start  ************************************************************************************************************************
'Function Safereplace(str)
'	    Safereplace = Replace(Replace(Replace(Trim(str), "'", "’"), Chr(34), ""), ";", "")
'End Function


Public Function Safereplace(Str)
            'dim str
	    If Isnull(Str) Then
	    	    Safereplace = ""
	    	    Exit Function 
	    End If
            Str = Replace(Str,"execute","[execute]")
            Str = Replace(Str,"request","[request]")
	    Str = Replace(Str,"'","''")
	    Str = Replace(Str,"--","－－")
	    Str = Replace(Str,";","；")
	    Str = Replace(Str,",","，")
	    Str = Replace(Str,"(","（")
	    Str = Replace(Str,")","）")
	    Str = Replace(Str,"0x","Ox")
	    Str = Replace(Str,"%","％")
	    Str = Replace(Str,"<","＜")
	    Str = Replace(Str,">","＞")
		Str = Replace(Str,"。","")
		Str = Replace(Str,"！","")
		Str = Replace(Str,"!","")
		Str = Replace(Str,"１","1")
		Str = Replace(Str,"２","2")
		Str = Replace(Str,"３","3")
		Str = Replace(Str,"４","4")
		Str = Replace(Str,"５","5")
		Str = Replace(Str,"６","6")
		Str = Replace(Str,"７","7")
		Str = Replace(Str,"８","8")
		Str = Replace(Str,"９","9")
		Str = Replace(Str,"Ａ","A")
		Str = Replace(Str,"Ｂ","B")
		Str = Replace(Str,"Ｃ","C")
		Str = Replace(Str,"Ｄ","D")
		Str = Replace(Str,"Ｅ","E")
		Str = Replace(Str,"Ｆ","F")
		Str = Replace(Str,"Ｇ","G")
		Str = Replace(Str,"Ｈ","H")
		Str = Replace(Str,"Ｉ","I")
		Str = Replace(Str,"Ｊ","J")
		Str = Replace(Str,"Ｋ","K")
		Str = Replace(Str,"Ｌ","L")
		Str = Replace(Str,"Ｍ","M")
		Str = Replace(Str,"Ｎ","N")
		Str = Replace(Str,"Ｏ","O")
		Str = Replace(Str,"Ｐ","P")
		Str = Replace(Str,"Ｑ","Q")
		Str = Replace(Str,"Ｒ","R")
		Str = Replace(Str,"Ｓ","S")
		Str = Replace(Str,"Ｔ","T")
		Str = Replace(Str,"Ｕ","U")
		Str = Replace(Str,"Ｖ","V")
		Str = Replace(Str,"Ｗ","W")
		Str = Replace(Str,"Ｘ","X")
		Str = Replace(Str,"Ｙ","Y")
		Str = Replace(Str,"Ｚ","Z")
	    Safereplace = Str
End Function
'****  End   *************************************************************************************************************************

'过滤非法字段
'****  Start  ************************************************************************************************************************
'Function Safereplace(str)
'	    Safereplace = Replace(Replace(Replace(Trim(str), "'", "’"), Chr(34), ""), ";", "")
'End Function

Public Function change(Str)
	    Str = Replace(Str,"{","<%=")
	    Str = Replace(Str,"]","%")
		Str = Replace(Str,"}",">")
	    change = Str
End Function
'****  End   *************************************************************************************************************************


'检测表单输入EMAIL的合法性
'****  Start  ************************************************************************************************************************
Public function IsValidEmail(email)
Dim re
if len(email)>40 then 
IsValidEmail=false
exit function
end if
Set re = new RegExp
re.pattern = "([\.a-zA-Z0-9_-]){3,10}@([a-zA-Z0-9_-]){2,10}(\.([a-zA-Z0-9]){2,}){1,4}$"
IsValidEmail=re.Test(email)
end function