asp Http_Referer,Server_Name和Http_Host
以前感觉Request.ServerVariables里的值很多，现在看看还是那么多，不过今天谈其中的一个值----HTTP_Referer以及Request.ServerVariables里Server_Name与Http_Host之间有什么区别呢？
刚才运行了一段代码，来查看Request.ServerVariables里面有多少值，看了一下，共50个！
代码<%=Request.ServerVariables.count%>
以前感觉Request.ServerVariables里的值很多，现在看看还是那么多，不过今天谈其中的一个值----HTTP_Referer
首先，我们先知道HTTP_Referer最常用的应用就是能够防止外部提交。
下列情况是从浏览器的地址栏正常取得Request.ServerVariables("HTTP_REFERER")：
1) 直接用<a href="">
2) 用Submit或<input type="image">提交的表单(POST或GET)
3) 使用JAvaScript提交的表单(POST或GET)
下面我们再看看Request.ServerVariables("HTTP_REFERER")不能正常取值的情况：
1) 从收藏夹链接
2) 单击主页或自定义的地址
3) 在浏览器中直接输地址
4) 使用JavaScript的Location.href或者是Location.replace()
5) <%Response.Redirect%>
6) <%Response.AddHeader%>或者� ......
<%
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)
Private m_l2Power(30)
Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And 1 Then
LShift = &H80000000
Else
LShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
If (lValue And m_l2Power(31 - iShiftBits)) Then
LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
Else
LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
End If
End Function
Private Function RShift(lValue, iShiftBits)
If iShiftBits = 0 Then
RShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And &H80000000 Then
RShift = 1
Else
RShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
RS ......
求高手说一下ASP数据库双重检索的代码，越简单越好，只要把怎么样才能同时搜索两个数据表的代码发一下就可以。
你的问题不清楚，连个表有关联吗？
csql = "select table1.field1,table2.field1,table2.field2 from table1,table2 where " _
& " table1.ID=table2.ID and table1.field1=...."
如果没有联系，使用两个记录集查。下面的conn是你定义的数据库对象
set conn= Server.Createobject("ADODB.CONNECTION")
conn.open "数据库连接字符........."
set RS1= Server.CreateObject("ADODB.RecordSet")
set RS2 = Server.CreateObject("ADODB.RecordSet")
csql1 = "select * from table1"
RS1.open csql1,conn,1,1
....
RS1.close
csql2 = "select * from table2"
RS2.open csql,conn,1,1
.....
RS2.close
Set rs1=nothing
set rs2=nonting
有两个表table1和table2
table1.field1是表一中的字段名，按你实际的字段写
table2.field1是表二中的字段名
csql = "select table1.field1,table2.field1,table2.field2 from table1,table2 where table1.ID=table2.ID and table1.field1=...."
就是在两个表 ......
<%
'建立文件夹函数
Function CreateFolder(strFolder)'参数为相对路径
'首选判断要建立的文件夹是否已经存在
Dim strTestFolder,objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'检查文件夹是否存在
If not objFSO.FolderExists(strTestFolder) Then
'如果不存在则建立文件夹
objFSO.CreateFolder(strTestFolder)
End If
Set objFSO = Nothing
End function
'删除文件夹
Function DelFolder(strFolder)'参数为相对路径
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'检查文件夹是否存在
If objFSO.FolderExists(strTestFolder) Then
objFSO.DeleteFolder(strTestFolder)
end if
Set objFSO = Nothing
End function
'创建文本文件
Function Createtextfile(fileurl,filecontent)'参数为相对路径和要写入文件的内容
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set fout = objFSO.CreateTextFile(Server.MapPath(fileurl))
fout.WriteLine filecontent
fout.close
......
Asp Split
描述：
返回基于 0 的一维数组，其中包含指定数目的子字符串。
语法：
Split(expression[, delimiter[, count[, start]]])
Split 函数的语法有以下参数：
参数 描述
expression 必选。字符串表达式，包含子字符串和分隔符。如果 expression 为零长度字符串，Split 返回空数组，即不包含元素和数据的数组。
delimiter 可选。用于标识子字符串界限的字符。如果省略，使用空格 ("") 作为分隔符。如果 delimiter 为零长度字符串，则返回包含整个 expression 字符串的单元素数组。
count 可选。被返回的子字符串数目，-1 指示返回所有子字符串。
compare 可选。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。
设置
compare 参数可以有以下值：
常数 值 描述
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。
vbDatabaseCompare 2 执行基于数据库（在此数据库中执行比较）中包含的信息的比较。
————————————————————————— ......
文件头用了
<%@Language="VBScript" CodePage="65001"%>
文件本身已经是Utf-8的编码了
提交过到Access库中怎么都是 “产品介绍 ”这样的编码
一步步分析，不存库直接输出，也是这样的编码。想来跟Access无关了。
相于迷惑，后来重新建一个表单元，提交，输出结果，编码正常
对比之下发现，原来的提交的表单数据都用了Server.HTMLEncode（）这个函数处理过，去掉就不会被编码了。
找到原因，在文件头用<%@Language="VBScript" CodePage="65001"%>定义字符集的时候，Server.HTMLEncode（）会将中文转成对应的10进制代码。
解决方法：不用Server.HTMLEncode（），自己定义一个：
'' 替换Server.HTMLEncode，避免对utf-8进行编码
'' ＆要换成半角的&
function HTMLEncode(Str)
Str = Replace(Str, """", "＆quot;", 1, -1, 1)
Str = Replace(Str,"<","＆lt;", 1, -1, 1)
Str = Replace(Str,">","＆gt;", 1, -1, 1)
HTMLEncode = Str
end function ......
文件头用了
<%@Language="VBScript" CodePage="65001"%>
文件本身已经是Utf-8的编码了
提交过到Access库中怎么都是 “产品介绍 ”这样的编码
一步步分析，不存库直接输出，也是这样的编码。想来跟Access无关了。
相于迷惑，后来重新建一个表单元，提交，输出结果，编码正常
对比之下发现，原来的提交的表单数据都用了Server.HTMLEncode（）这个函数处理过，去掉就不会被编码了。
找到原因，在文件头用<%@Language="VBScript" CodePage="65001"%>定义字符集的时候，Server.HTMLEncode（）会将中文转成对应的10进制代码。
解决方法：不用Server.HTMLEncode（），自己定义一个：
'' 替换Server.HTMLEncode，避免对utf-8进行编码
'' ＆要换成半角的&
function HTMLEncode(Str)
Str = Replace(Str, """", "＆quot;", 1, -1, 1)
Str = Replace(Str,"<","＆lt;", 1, -1, 1)
Str = Replace(Str,">","＆gt;", 1, -1, 1)
HTMLEncode = Str
end function ......
最新文章 :