clsnews.asp

网店批发系统,很好很强大,很好很强大很好很强大

<%
'*********************************************************************************************
'                                  (函数功能介绍)
'sqlchg -- 判断传递字符参数正确性  sqlcheck -- 判断传递的是否为字符型  DBOpen -- 连接数据库
'DBClass -- 查询数据库并读取数据组  DBExecute -- 执行无返回值SQL语句  DBClose -- 关闭rs  
'connClose -- 关闭conn  getPic() -- 利用正则表达式获取图片地址
'
'
'
'
'
'*********************************************************************************************
dim ArrayNum,rs

function sqlchg(key)			
	if instr(key,"'") or instr(key,"script") or instr(key,"chr") or instr(key,";") or instr(key,"#") or instr(key,"(") or instr(key,")") then
		response.Write("<script language='javascript'>window.location.href='error.asp?errorMsg=请不要输入非法字符"&key&"';</script>")
		response.End()
	end if
	sqlchg=key
end function

function sqlcheck(key)
	if not isnumeric(key) then
		response.Write("<script language='javascript'>window.location.href='error.asp?errorMsg=传递非数字型参数出错';</script>")
		response.End()
	end if
	sqlcheck=key
end function

sub DBOpen()
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open connstr			
end sub
		
function DBClass(query)
	call DBOpen()
	set rs = conn.execute(query)
	if not rs.eof then
		DBClass = rs.getrows
		ArrayNum = ubound(DBClass,2)
	else
		response.Write("<font color = 'red'>记录集为空</font>")
		ArrayNum = -1
	end if
	call DBClose()
	call connClose()
end function

sub DBExecute(query)
	call DBOpen()
	conn.execute(query)
	call connClose()
end sub

sub DBClose()
	set rs = nothing		
end sub

sub connClose()
	conn.close
	set conn = nothing	
end sub

sub OUTjs(alert,return,flag)
	if flag = 0 then
		response.Write("<script language='javascript'>alert('"&alert&"');window.location.href='"&return&"';</script>")
		response.End()
	else
		response.Write("<script language='javascript'>alert('"&alert&"');history.go(-1);</script>")
		response.End()
	end if
end sub

Function CheckExp(patrn,strng,tagstr)
	Dim regEx,Matches
	
	Set regEx=New RegExp'建立一个新对像
	regEx.Pattern=patrn'设置模板
	regEx.IgnoreCase=true'搜索是否区分大小写的 true表是不区分 flase表示区分
	regEx.Global=True'搜索是否应用于整个字符串
	
	Matches=regEx.replace(strng,tagstr)'匹配并替代字符串
	Set regEx = Nothing	
	
	CheckExp=Matches'返回函数结果
end function 
%>