function.asp

学校部门网站设计,里面有好多模块譬如 简介联系方式 登陆注册留言新闻发布

<%
function CheckStr(str)
' 检查sql字符串中是否有单引号，有则进行转化
	dim tstr,l,i,ch
	l=len(str)
	for i=1 to l
		ch=mid(str,i,1)
		if ch="'" then
			tstr=tstr+"'"
		end if
		tstr=tstr+ch
	next
	CheckStr=tstr
end function

function repSquote(srcstr)
  if srcstr="" then
   repSquote="" 
   exit function 
  end if
  dim targetstr
    targetstr=trim(srcstr)
    targetstr=replace(targetstr,"'","\'")
    repSquote=targetstr
end function

function isSelected(srcstr,targetstr)
   if trim(targetstr)=trim(srcstr) then
	 isSelected="selected"
   else
     isSelected=""
   end if
end function

'***************************************************
'函数名：IsObjInstalled
'作  用：检查组件是否已经安装
'参  数：strClassString ----组件名
'返回值：True  ----已经安装
'       False ----没有安装
'***************************************************
Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
%>