www.gusucode.com > 水族产品用品经营类企业网站asp源代码程序 > comm.asp

    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
'各栏目编号===========================================================================================
dim sz_sort1(25)
sz_sort1(1)="池塘泵MP系列"
sz_sort1(2)="池塘泵TYP系列"
sz_sort1(3)="喷泉泵"
sz_sort1(4)="水族泵"
sz_sort1(5)="池塘泵/污水泵"
sz_sort1(6)="水族气泵"
sz_sort1(7)="直流直吸泵"
sz_sort1(8)="户外气泵"
sz_sort1(9)="生化过滤器材"
sz_sort1(10)="过滤器系列"
sz_sort1(11)="缸外过滤器"
sz_sort1(12)="水族灯具"
sz_sort1(13)="金卤灯"
sz_sort1(14)="T5 HO灯架"
sz_sort1(15)="潜水灯"
sz_sort1(16)="杀菌灯"
sz_sort1(17)="空气压缩机"
sz_sort1(18)="雾化器"
sz_sort1(19)="磁力刷"
sz_sort1(20)="加热棒"
sz_sort1(21)="鱼缸"
sz_sort1(22)="鱼缸附件"
sz_sort1(23)="仿真系列"
sz_sort1(24)="树脂系列"
sz_sort1(25)="陶瓷精品"

dim sz_sort2(30,10)
sz_sort2(1,1)="MP系列带前罩花园泵"
sz_sort2(1,2)="MP系列花园泵"

sz_sort2(2,1)="TYP带前罩花园水泵"
sz_sort2(2,2)="TYP系列花园泵"

sz_sort2(3,1)="TYP花园喷泉泵"
sz_sort2(3,2)="PF系列喷泉泵"

sz_sort2(4,1)="QD系列水泵"
sz_sort2(4,2)="P系列水族泵"

sz_sort2(5,1)="PP系列"
sz_sort2(5,2)="SP系列池塘泵"

sz_sort2(6,1)="X-N8系列"
sz_sort2(6,2)="X系列"
sz_sort2(6,3)="SK系列"

sz_sort2(7,1)="12V直流直吸泵"

sz_sort2(8,1)="LP系列"
sz_sort2(8,2)="Pond Air系列"

sz_sort2(9,1)="HF系列"
sz_sort2(9,2)="顶部过滤器"

sz_sort2(10,1)="PF系列"
sz_sort2(10,2)="QD-F"
sz_sort2(10,3)="QD-G"

sz_sort2(11,1)="迷你型缸外过滤器"
sz_sort2(11,2)="NEO系列缸外过滤器"

sz_sort2(12,1)="水族灯具"
sz_sort2(12,2)="聚光灯"

sz_sort2(13,1)="MH-T5HO管带LED等系列"
sz_sort2(13,2)="MH PL管系列"

sz_sort2(14,1)="T5 HO灯架"

sz_sort2(15,1)="潜水灯SL系列"

sz_sort2(16,1)="杀菌灯UVC-A系列"
sz_sort2(16,2)="杀菌灯UVC-B系列"

sz_sort2(17,1)="DKY系列"
sz_sort2(17,2)="YKY系列"
sz_sort2(17,3)="HL系列"

sz_sort2(18,1)="雾化器"

sz_sort2(19,1)="MB系列"
sz_sort2(19,2)="MBF系列"

sz_sort2(20,1)="HE系列"
sz_sort2(20,2)="HW系列"
sz_sort2(20,3)="JR系列"

sz_sort2(21,1)="鱼碗"
sz_sort2(21,2)="YG缸"
sz_sort2(21,3)="水族缸"
sz_sort2(21,4)="R型缸"
sz_sort2(21,5)="方形鱼缸"
sz_sort2(21,6)="HT系列缸内过滤鱼缸"
sz_sort2(21,7)="HR系列缸内过滤鱼缸"

sz_sort2(22,1)="鱼网"
sz_sort2(22,2)="真空吸尘器"
sz_sort2(22,3)="二氧化碳扩散器"
sz_sort2(22,4)="温度计"
sz_sort2(22,5)="水族刷"

sz_sort2(23,1)="仿真鱼"
sz_sort2(23,2)="仿真水草"
sz_sort2(23,3)="仿真珊瑚"
sz_sort2(23,4)="仿真石头"
sz_sort2(23,5)="桌上喷泉"

sz_sort2(24,1)="磨形茶盘"
sz_sort2(24,2)="工艺树脂"
sz_sort2(24,3)="艺术树脂"

sz_sort2(25,1)="工艺瓷"
sz_sort2(25,2)="日用瓷"
sz_sort2(25,3)="洁具瓷"


'发送email的函数============================================================================================
'myfrom:发送人的邮箱 myto:发送往该邮箱 mycc:抄送往该邮箱 mysubject:邮件主题 mybody:邮件主体
'myemail("发送人的邮箱","发送往该邮箱","抄送往该邮箱","邮件主题","邮件主体")
function myemail(myfrom,myto,mycc,mysubject,mybody)
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail") 
objCDO.To = myto
objCDO.From = myfrom
objCDO.cc = mycc
objCDO.Subject = mysubject
objCDO.Body = mybody
objCDO.Send			'发送
end function




'验证特殊字符的函数1=========================================================================================
'输入myinputchar为要验证的字符串，mysafechar准许使用的字符集，输出为#nosafe#时表示包含特殊字符，空为验证通过。
'mycheckchar("要验证的字符串","准许使用的字符集")
function mycheckchar(myinputchar,mysafechar)
count=len(myinputchar)
SearchString =mysafechar
for i=1 to count
SearchChar = Mid(myinputchar, i, 1)
MyPos = Instr(1,SearchString, SearchChar, 0)
if mypos=0 then
serror=1
exit for
end if
next
if serror=1 then mycheckchar="#nosafe#"
end function



'验证特殊字符的函数2=========================================================================================
'输入myinputchar为要验证的字符串，mynosafechar不准许使用的字符集，输出为#nosafe#时表示包含不准许使用的特殊字符，空为验证通过。
'mycheckchar2("要验证的字符串","不准许使用的字符集")
function mycheckchar2(myinputchar,mynosafechar)
mycount=len(mynosafechar)
SearchString = myinputchar
for i=1 to mycount
SearchChar = Mid(mynosafechar, i,1)
MyPos = Instr(SearchString, SearchChar)
if MyPos<>0 then
serror=1
exit for
end if
next
if serror=1 then mycheckchar2="#nosafe#"
end function



'特殊字符的清理函数==========================================================================================
'输入myinputchar为要验证的字符串，mynosafechar不准许使用的字符集，输出去除了不准许使用字符的字符串。
'mycharclear("要处理的字符串","不准许使用的字符集")
function mycharclear(myinputchar,mynosafechar)
mycount=len(mynosafechar)
for i=1 to mycount
SearchChar = Mid(mynosafechar, i,1)
myinputchar=Replace(myinputchar,SearchChar,"",1,-1,1)
next
mycharclear=myinputchar
end function



'字符串格式检查函数==========================================================================================
'输入myinputchar为要验证的字符串，myformat为格式表示符（#号代表准许使用的字符集，*号为任意字符），mychar为#号的字符集
'mycharformat("要处理的字符串","字符串格式","准许使用的字符集")
function mycharformat(myinputchar,myformat,mychar)
mycount=len(myinputchar)
if mycount<>len(myformat) then
	mycharformat="#error#"
else
	for i=1 to mycount
		mychar1=Mid(myinputchar, i,1)
		mychar2=Mid(myformat, i,1)
		select case mychar2
		case "#"
			if Instr(mychar, mychar1)=0 then 
				mycharformat="#error#"
				exit for
			end if
		case "*"
		case else
			if mychar1<>mychar2 then 
				mycharformat="#error#"
				exit for
			end if
		end select
	next
end if
end function


'日期处理函数==================================================================================================
function mychecktime(mytime)
mychecktime_time1=Mid(mytime,1,4)
mychecktime_time2=Mid(mytime,6,2)
mychecktime_time3=Mid(mytime,9,2)
if mycheckchar(mychecktime_time1,"0123456789")="" and mycheckchar(mychecktime_time2,"0123456789")="" and mycheckchar(mychecktime_time3,"0123456789")="" then
	if Int(mychecktime_time2) > 12 then mychecktime_time2=12
	mychecktime_day=day(DateSerial(mychecktime_time1,mychecktime_time2+1,1-1))
	if Int(mychecktime_time3) > mychecktime_day then mychecktime_time3=mychecktime_day
	mychecktime=mychecktime_time1 & "-" & mychecktime_time2 & "-" & mychecktime_time3
else
	mychecktime="#error#"
end if
end function



'验证用户是否正常登陆的函数==================================================================================
function myuserid()
if session("userid")="" then response.Redirect("index.asp")
end function


'验证管理员是否正常登陆的函数================================================================================
function myadmin()
if session("admin")="" then response.Redirect("admin_login.asp")
end function




'简单数据库查询函数==========================================================================================
'mysimpledb("数据库地址","表名","条件","字段名")，如果没找到就返回#NoFind#
'mysimpledb("xwzxdb/db.mdb","表名","条件","字段名")
function mysimpledb(mydb,mytable,mywhere,myfield)
Set mysimpledb_conn = Server.CreateObject("ADODB.Connection")
mysimpledb_conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(mydb)
Set mysimpledb_rs = Server.CreateObject("ADODB.Recordset")
mysimpledb_sql="select top 1 * from " & mytable & " where " & mywhere
mysimpledb_rs.open mysimpledb_sql,mysimpledb_conn,1,2
if mysimpledb_rs.recordcount=0 then
 mysimpledb="#NoFind#"
else
 mysimpledb=mysimpledb_rs(myfield)
end if
mysimpledb_rs.close
end function




'========================================================================================
'测试函数
function mytry1(temp1,temp2)
mytry=temp1 & temp2 & "rrr"
end function




'数据库连接实例==========================================================================================
sub mytry2

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("w_db/db.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from admin where admin='" & admin & "'"
rs.open sql,conn,1,3

end sub
%>