generaltools.asp

用asp做的咨询平台 比较简单 但是修改很方便 很实用

<%
webURL="http://"&Request.ServerVariables("SERVER_NAME")&"/"
sub tackleEmpty(strItem)
	strItem=lTrim(strItem)
	strItem=rTrim(strItem)
	if strItem="" then
		trigErr
	end if
end sub

sub tacklePrime(strItem)
	if inStr("'",strPassword)=1 then
		trigErr
	end if
end sub

sub tackleOverLen(strItem,intLen)
	if len(strItem)>intLen then
		trigErr
	end if
end sub

function replacePrime(strItem)
	if strItem="" then
		trigErr
	end if
	replacePrime=replace(strItem,"'","#Rep_PRIME_lacer#")
end function

sub insureID()
	if session("USER_NAME")="" then
		closeDB
		response.redirect webURL
	end if
end sub

function replaceBack(strItem)
	if strItem="" then
		trigErr
	end if
	replaceBack=replace(strItem,"#Rep_PRIME_lacer#","'")
end function

sub trigErr()
	'showMsg("很抱歉，系统出了一些问题，相关操作被取消，请稍后再试，或<a 'href='mailto:[e-mail]'>联系网站管理员</a>。")
end sub

sub showMsg(strItem)
	response.write "<div ailgn='center'>"
	response.write "<table border='0' width='100%' height='75'cellspacing=0 cellpadding=0>"
	response.write "<tr>"
	response.write "<td align='center' valign='center'>"
	response.write "<font size=3 color=#FF0000>"
	response.Write strItem
	response.write "<a href='javaScript:history.back()'>&lt;&lt;"
	response.write "返回</a>"
	response.write "</font>"
	response.write "</td></tr></table>"
	response.write "</div>"
	closeDB
	response.end
end sub
%>