但是真正测试一下才发现这样效率非常低。一个15万余条的库，查询5条数据，居然要8秒以上。

采用JOIN语句的话，速度不错，需要0.5秒。

最后，把语句完善一下，加上MIN(id)的判断。

得到2种方法，完整查询语句是：

方法1、
Select * FROM `table`
Where id >= (Select floor( RAND() * ((Select MAX(id) FROM `table`)-(Select MIN(id) FROM `table`)) + (Select MIN(id) FROM `table`)))
orDER BY id LIMIT 1;

方法2、
Select *
FROM `table` AS t1 JOIN (Select ROUND(RAND() * ((Select MAX(id) FROM `table`)-(Select MIN(id) FROM `table`))+(Select MIN(id) FROM `table`)) AS id) AS t2
Where t1.id >= t2.id
orDER BY t1.id LIMIT 1;

最后在php中对这两个语句进行分别查询10次，
前者花费时间 0.147433 秒
后者花费时间 0.015130 秒
看来采用JOIN的语法比直接在Where中使用函数效率还要高很多，方法2更优。

我们先来看一看 Replace 的详细参数

描述
返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。
语法
Replace(expression, find, replacewith[, compare[, count[, start]]])

Replace 函数的语法有以下参数：

参数 描述
expression 必选项。 字符串表达式 包含要替代的子字符串。
find 必选项。被搜索的子字符串。
replacewith 必选项。用于替换的子字符串。
start 可选项。expression 中开始搜索子字符串的位置。如果省略，默认值为 1。在和count 关联时必须用
count 可选项。执行子字符串替换的数目。如果省略，默认值为 -1，表示进行所有可能的替换。在和 start 关联时必须用。
compare 可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略,缺省值为 0 ,这意味着必须进行二进制比较。


设置
compare 参数可以有以下值：
常数 值 描述
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。


返回值
Replace 返回以下值：
如果 Replace 返回
expression 为零长度 零长度字符串 ("")。
expression 为 Null 错误。
find 为零长度 expression 的副本。
replacewith 为零长度 expression 的副本，其中删除了所有由 find 参数指定的内容。
start > Len(expression) 零长度字符串。
count 为 0 expression 的副本。


说明
Replace 函数的返回值是经过替换（从由 start 指定的位置开始到 expression 字符串的结尾）后的字符串，而不是原始字符串从开始至结尾的副本。
下面的示例利用 Replace 函数返回字符串:

Dim MyString

MyString = Replace("XXpXXPXXp", "p", "Y") '二进制比较从字符串左端开始。返回 "XXYXXPXXY"。
MyString = Replace("XXpXXPXXp", "p", "Y", '文本比较从第三个字符开始。返回 "YXXYXXY"。3，, -1, 1)

方法一： 直接用ASP自带函数replace 这也是最简单的方法

title=replace(title,"DF","SD",1,-1,1)

replace函数参数详解:
参数1：源字符串
参数2：要被替换的字符
参数3：新的字符。，既，要将源字符串中的某些字符，替换成新指定的字符
参数4：值为1.指定从第一个字符开始搜索该字符串
参数5：值为－1 指定每一个子串都要被替换
参数6：值为1 指定字符串的比较不区分大小写。

(高亮显示关键字)的两个函数
方法2：用正则不区分大小写替换指定字符
以下是函数源代码：

'//函数：字符串替换
 '//参数：正则表达式,被替换字符串,替换字符串
 Public Function ReplaceTest(patrn, mStr, replStr)
  Dim regEx
  Set regEx = New RegExp
  regEx.Pattern = patrn
  regEx.IgnoreCase = True  
  regEx.Global = True
  ReplaceTest = regEx.Replace(mStr, replStr)
  Set regEx = Nothing
 End Function

不要贪图一时便宜，不要在国内的注册商及其代理商处注册国际域名！

如果你一旦这样做，到你想将域名过户或者转移至其他注册商的那天你会发现吃了大亏：

1、他们会让你填写一份申请表，签名、盖章、快递文件、等待答复...要经过繁复的过程，

2、不但如此，最重要的是他们会趁机敲诈你一笔50到100元不等的手续费

3、即使不收你手续费，也会因为你信息不符而阻止你转出。比如你注册时所有者名称使用了别名或匿名，这样的话可能一辈子都要被套在这个注册商身上，永远得不到转移密码，永远转不出！

而反观在国外的情况，就非常自由，很轻易地得到转移密码，并且根据邮件指示，两三个步骤就可以完成转出。

不是不帮自己人，是咱们中国人太不争气，就喜欢内斗，为难的都是自己人！

再次劝谕广大网友，千万不要在国内注册域名！

idcbe.com 是ResellerClub的代理商，所有在此注册的域名都可以自由转出转入，所有操作在线即可完成，我们不会设置任何关卡、障碍要你们过。

起初在firefox上测试，提交表单后，页面接收到ajax输入文本的值竟然为空，不能获取表单发送过来的内容。尝试过寻找：表单的原因（id和name的值）、js代码的原因，都不是！

后来在ie上试，居然可以成功提交！？

在网上找了很久，才找到一个针对性而有效的答案。这当中的原因其实是因为<form>和</form>嵌套的位置不够清晰，firefox无法识别。

以下是高手解答该问题的内容：

在以前的教材和实际应用里，应该很常见这种类型的嵌套：

<table>
  <form>
  <tr><td></td>
  </tr>
  </form>
</table>

目的无非是不想让form的margin和padding撑出不应有的空白，而这样做一直以来也都是有效的，在IE中无论是动态create出的表单项还是原有的内容都能被正确地传递，虽然这样是不符合DOM规范的。

在Firefox中，上面的嵌套也能正确地传递事先定义的表单参数，但是如果使用DOM创建新的表单项，新的Node无法与未按标准嵌套的form建立关联，所以post数据的时候它是不会被传递的。

需要的改动仅仅是让结构更清晰：
<form>
  <table>
  <tr><td></td></tr>
  </table>
</form>
现在我们只需要把form的margin和padding设为0，无需杂乱无可辨认的可恶嵌套。

注：此程序源于网络，但由于原程序在使用时有错误，此为本人改良版本，可直接使用--

改进：1、没有错误信息；2、适用于任何编码页面(UTF-8\GB2312...)，不会乱码

如何防止别人盗链网站上的图片呢？最主要的是要隐藏图片的真实地址，通过一个ASP文件来调用图片，而只有特定的域名才能引用，如果不是就只显示一张警示图，盗链的根本不知道图片的真正地址，他偷鸡不成还蚀把米--得不到图片内容还影响网站形象，自然就会放弃盗链。

这样做还有一个好处，就是假如某天要删掉了图片，而网页没有做更新，这样仍然不会令图片处留白或叉叉，而会自动补充一张提示图。

完整代码如下：（可起名：img.asp）

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit

Function ReadBinFile(fileName)
 Dim objStream,bin
 Set objStream = Server.CreateObject("ADODB.Stream")
 objStream.Open
 objStream.Type = 1
 objStream.LoadFromFile fileName 
    bin = objStream.Read
 objStream.Close
 ReadBinFile = bin
End Function
Function isSelfRefer() 
Dim sHttp_Referer, sServer_Name, vServer_Name
vServer_Name = "tu.jkqun.com"'允许的域名 可使用根域名泛指全部子域名
sServer_Name =  CStr(Request.ServerVariables("HTTP_REFERER"))'本图片的当前引用地址
if instr(sServer_Name,vServer_Name)<>0 then
IsSelfRefer = True 
Else 
IsSelfRefer = False 
End If 
End Function 
if request.QueryString()<>"" then
 Dim RealUrl,fso,ErrImg,ImgServPath
 ErrImg = "/Antilink_icon.jpg"
 Dim curImg:curImg=Request.QueryString()
 ImgServPath = "http://tu.jkqun.com/"&curImg
 RealUrl=Server.MapPath(ImgServPath)
 Set fso = Server.CreateObject("Scripting.FileSystemObject")
 if Not(fso.FileExists(RealUrl)) then RealUrl=Server.MapPath(ErrImg)
 
 if Not(isSelfRefer) then
 RealUrl=Server.MapPath(ErrImg)
 end if
 response.contenttype = "image/jpeg" 
 response.BinaryWrite ReadBinFile(RealUrl)
 response.end
end if
%>

看美女，欢迎访问：美女图片网

LCase：转成小写
UCase：转成大写

下面是ASP中的代码，可以直接演示效果的。

<%
dim str,str1,str2
str="AbCdEf"
str1=LCase(str)
str2=UCase(str)
Response.write("LCase转换小写"&str1 & ",UCase转换大写" & str2)
%>

而.NET中将字符串转换为大写ToUpper()，将字符串转换为小写ToLower()。