PHP随机生成一串字母和数字组合

<?php
class GetChar{

function getCode ($length = 32, $mode = 0){
    switch ($mode) {
    case '1':
    $str = '1234567890';
    break;
    case '2':
    $str = 'abcdefghijklmnopqrstuvwxyz';
    break;
    case '3':
    $str = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
    break;
    default:
    $str = '1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
    break;
    }

阅读全文>>

评论(0) 引用(0) 浏览(550)
post by 不懂戀愛魚兒 | 2011年6月7日 | 归档于 [Php技术]
标签: php 函数 code class break

HTTP 错误 403.9 - 禁止访问：连接的用户过多解决方案

　　有些时候我们在IIS上测试网站时，会出现HTTP 错误 403.9 - 禁止访问：连接的用户过多，这是因为XP系统作为IIS服务器时默认的连接数只有10，所以才导致HTTP 错误 403.9 - 禁止访问:连接的用户过多这个问题。我们只需要改变IIS连接数就好了。由于XP的IIS本身没有提供性能这个选项卡，微软自己正好提供这个小工具,估计他们也感觉到了这些问题了吧，微软出的一个管理IIS的小工具,名字叫做MtaEdt22.exe

阅读全文>>

评论(0) 引用(0) 浏览(558)
post by 不懂戀愛魚兒 | 2011年6月1日 | 归档于 [我的日记]
标签: http 403.9 禁止访问

asp获取当前网址函数

Function GetLocationURL() '获取当前页面的URL

Dim Url 

Dim ServerPort,ServerName,ScriptName,QueryString 

ServerName = Request.ServerVariables("SERVER_NAME") 

ServerPort = Request.ServerVariables("SERVER_PORT") 

ScriptName = Request.ServerVariables("SCRIPT_NAME") 

QueryString = Request.ServerVariables("QUERY_STRING") 

Url="http://">ServerName 

If ServerPort <> "80" Then Url = Url > ":" > ServerPort 

Url=Url>ScriptName 

If QueryString <>"" Then Url=Url>"?"> QueryString 

GetLocationURL=Url 

End Function

 

评论(2) 引用(0) 浏览(709)
post by 不懂戀愛魚兒 | 2011年5月22日 | 归档于 [Asp技术]
标签: asp function 函数 url

ASP利用COOKIES判断多少时间内只能提交一次数据。

dim SetTime
TimeSet = 3600
iF Request.Cookies("thisTime")<>"" Then
Response.Write "<script>alert('您提交动作太频繁了，1小时内只能提交一次评论。谢谢合作');history.go(-1);</script>"
Response.End()
else
set Rs=server.createobject("adodb.recordset")
sql="select * from 表名"
Rs.open sql,conn,1,3
Rs.addnew
Rs("ip")=Request.servervariables("remote_addr")
Response.Cookies("thisTime") = Now
Response.Cookies("thisTime").Expires = DateAdd("s",TimeSet,Now)
Rs.update
enD if
评论(0) 引用(0) 浏览(391)
post by 不懂戀愛魚兒 | 2011年5月14日 | 归档于 [Asp技术]
标签: asp dim update cookies

asp自动识别链接函数

<%
Function autoLink(str)   
str=" "&str  
Set re=new regExp     '建立正则表达式对象regular expression  
re.IgnoreCase=true     '忽略大小写  
re.Global=true            '搜索匹配字串针对全部文本  
'查找带协议前缀的链接  
re.Pattern="(http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?)"  
str=re.replace(str,"<a href='$1' target='_blank'>$1</a>")  
'查找不带协议前缀的链接  
re.Pattern="([^(http:\/\/)])(www\.([\w-]+\.)+[\w]+(\/[\w-]+)*[\/]?([\w-]+\.[\w]+)?(\?[\w]+=[\w]+(&[\w]+=[\w]+)*)?)"  
str=re.replace(str,"$1<a href='http://$2' target='_blank'>$2</a>")  
'查找邮件链接  
re.Pattern="(mailto:)?([\w]+@([\w-]+\.)+[\w]+)"  
str=re.replace(str,"<a href='mailto:$2'>$1$2</a>")  
Set re=nothing  
autolink=trim(str)  
End Function
%>

阅读全文>>

评论(0) 引用(0) 浏览(434)
post by 不懂戀愛魚兒 | 2011年5月12日 | 归档于 [Asp技术]
标签: asp 函数
sitemap ƽ̨