1.返回文件扩展名functiongetformat($file){$ext=strrchr($file,".");$format=strtolower($ext);return$format;}2.格式化变量<?$num=1;printf("%04d",$num);?>3.php重定向网页//例如重定向到www.cgsir.com(注意重定向之前不要有html内容)header("location:http://www.jb51.net");或echo"<metahttp-equiv='refresh'content='0;url=http://www.jb51.net.c...
http://www.jb51.net//article/15794.htm
<?functionGetIP(){//获取IPif($_SERVER["HTTP_X_FORWARDED_FOR"])$ip=$_SERVER["HTTP_X_FORWARDED_FOR"];elseif($_SERVER["HTTP_CLIENT_IP"])$ip=$_SERVER["HTTP_CLIENT_IP"];elseif($_SERVER["REMOTE_ADDR"])$ip=$_SERVER["REMOTE_ADDR"];elseif(getenv("HTTP_X_FORWARDED_FOR"))$ip=getenv("HTTP_X_FORWARDED_FOR");els...
http://www.jb51.net//article/15510.htm
sub SaveConfig() dim fso,hf set fso=Server.CreateObject("Scripting.FileSystemObject") set hf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true) hf.write "<" & "%" & vbcrlf hf.write "Const SiteName="&...
http://www.jb51.net//article/14309.htm
去除html标签正则<\/*[^<>]*>Function LoseHtml(ContentStr) Dim ClsTempLoseStr,RegEx ClsTempLoseStr = Cstr(ContentStr) Set RegEx = New RegExp ...
http://www.jb51.net//article/13676.htm
<%function loadtempletfile(byval path) on error resume next dim objstream set objstream = server.createobject("adodb.stream") with objstream &nb...
http://www.jb51.net//article/13403.htm
WAP常见问题问答大全(二)二、关于WML的常见问答1. 简单说WML代表什么？ WML代表“Wireless Markup Language”。WML就是无线标记语言（Wireless Markup Language），内置于移动设备中的微型浏览器能够解释这种标记语言。虽然它和HTML语言很相像，但WML其实是XML的一个应用子集。2. 什么是WML？ WML代表Wireless Markup Language，就象HTM...
http://www.jb51.net//article/8381.htm
ASP函数集 ’========取得带端口的URL，推荐使用================Function Get_ScriptNameUrl() If request.servervariables("SERVER_PORT")="80" Then Get_ScriptNameUrl="http://" & request.servervariables("server_name")&lcase(request.servervariables("script_name")) ...
http://www.jb51.net//article/8261.htm
1、数据库连接。ASP与Access数据库连接： <%@ language=VBscript%> <% dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;...
http://www.jb51.net//article/7154.htm
<%’去掉HTML标记Public Function ReplaceHTML(Textstr) Dim Str, re Str = Textstr Set re = New RegExp re.IgnoreCase = True re.Glob...
http://www.jb51.net//article/6796.htm
<%Public Function ArrayToxml(DataArray, Recordset, row, xmlroot) Dim i, node, rs, j If xmlroot = "" Then xmlroot = "xml" Set ArrayToxml =&...
http://www.jb51.net//article/6795.htm
用法: IIF(条件表达式,为真时返回值,为假时返回值)<%Function IIf(bExp1, sVal1, sVal2) If (bExp1) Then IIf = sVal1 Else IIf = sVal...
http://www.jb51.net//article/6794.htm