|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。函数========获得带端口的URL,保举利用================
FunctionGet_ScriptNameUrl()
Ifrequest.servervariables("SERVER_PORT")="80"Then
Get_ScriptNameUrl="http://"&request.servervariables("server_name")&lcase(request.servervariables("script_name"))
Else
Get_ScriptNameUrl="http://"&request.servervariables("server_name")&":"&request.servervariables("SERVER_PORT")&lcase(request.servervariables("script_name"))
EndIf
EndFunction
=================用正则表达式凸起显现字符串中查询到的单词的函数======================
FunctionBoldWord(strContent,word)
Ifword=""Then
BoldWord=strContent
ExitFunction
EndIF
dimobjRegExp
SetobjRegExp=newRegExp
objRegExp.IgnoreCase=true
objRegExp.Global=True
objRegExp.Pattern="("&word&")"
strContent=objRegExp.Replace(strContent,"<fontcolor=""#FF0000""><b>$1</b></font>")
SetobjRegExp=Nothing
BoldWord=strContent
EndFunction
===============获得用户以后IP地点===================
FunctionGetIP()
uIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
IfuIP=""ThenuIP=Request.ServerVariables("REMOTE_ADDR")
GetIp=uIP
EndFunction
===============获得以后程序剧本路径==================
FunctionGetScriptName()
ScriptAddress=CStr(Request.ServerVariables("SCRIPT_NAME"))获得以后地点
If(Request.QueryString"")Then
ScriptAddress=ScriptAddress&"?"&Server.HTMLEncode(Request.QueryString)获得带参数地点
EndIf
IfLen(ScriptAddress)>250ThenScriptAddress=Left(ScirptAddress,250)&"..."举行路径截取,最年夜为250个字符
GetScriptName=ScriptAddress
EndFunction
===========前往带参数的Url,多关头字排序时利用==============
RemoveList参数:必要从Url中往除的参数,能够是多个,两头请用逗号离隔
FunctionKeepUrlStr(RemoveList)
ScriptAddress=CStr(Request.ServerVariables("SCRIPT_NAME"))&"?"获得以后地点,并到场“?”标记
M_ItemUrl=""
ForEachM_itemInRequest.QueryString
IfInStr(RemoveList,M_Item)=0Then
M_ItemUrl=M_ItemUrl&M_Item&"="&Server.URLEncode(Request.QueryString(""&M_Item&""))&"&"
EndIf
Next
KeepUrlStr=ScriptAddress&M_ItemUrl
EndFunction
</p>ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊! |
|