订单系统的数据库连接 - tomtom

文章档案

积分与排名

积分 - 19918

排名 - 1714

最新评论

一种我未用过的方法，但现在觉得很爽

<%@language=vbscript codepage=936 %>
2

<%
3

option explicit
4

response.buffer=true
5

dim conn
6

dim connstr
7

dim db
8

db="yipinjia.asp"
9

Set conn = Server.CreateObject("ADODB.Connection")
10

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
11

conn.Open connstr
12

%>
14

<%
16

Rem 判断发言是否来自外部
17

function ChkPost()
18

dim server_v1,server_v2
19

chkpost=false
20

server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
21

server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
22

if mid(server_v1,8,len(server_v2))<>server_v2 then
23

chkpost=false
24

else
25

chkpost=true
26

end if
27

end function
28

posted on 2006-03-16 00:34 The Game, tomtom 阅读(194) 评论(0) 编辑收藏

随笔档案