asp数据库连接代码
conndb.asp
<%
Session.CodePage=65001
response.Charset="utf-8"
%>
<%
'数据库连接文件
dim conn
dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath("../date/#heihuhuhuajian.mdb")+";Jet OLEDB:Database Password=;"
set conn=server.createobject("ADODB.CONNECTION")
On Error Resume Next
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
%>
<%
'数据库表文件
'全局变量，方便程序的整体转移,这几个变量为核心变量。
dim table,tables,config
table="xinwen_fenlei" '定义分类表单的名称
tables="news" '定义存储数据表单的名称
config="class_config" '定义分类属性表单的名称
picwenzi="www.xx.cn" '定义水印图片的文字
pickuandu=400 '定义缩略图的宽度
picgaodu=400 '定义缩略图的高度
pickuandu_xiao=105 '定义缩略图的宽度
picgaodu_xiao=100 '定义缩略图的高度
sites=""
%>
<%
'网站基本信息显示
set rs_jiben=server.CreateObject("adodb.recordset")
rs_jiben.open "select * from site where id=1",conn,1,1
wznames=rs_jiben("title")
wzmiaoshu=rs_jiben("content")
wzkeys=rs_jiben("keys")
wztop=rs_jiben("top")
wzfoot=rs_jiben("foot")
rs_jiben.close
set rs_jiben=nothing
%>
相关文档：
功能作用：ASP产生不重复的随机数（模拟游戏洗牌）
<%
function GetRnd(lowerNum,upperNum)
Dim unit,RndNum,Fun_X
unit = upperNum - lowerNum
Redim MyArray(unit)
For Fun_I=0 To unit
myArray(Fun_I)= lowerNum + Fun_I
Next
For Fun_I=0 To round(unit)
RndNum ......
ASP的漏洞已经算很少的了，想要找到数据库的实际位置也不简单，但这不表明黑客无孔可入，也正是这个观点，一般的程序设计员常常忘记仔细的检查是否有漏洞，所以才有可能导致网站资料被窃取的事件发生。今天我在这里和大家谈谈ASP常见的安全漏洞，以引起大家的重视及采取有效的防范措施。(注意，在本文中所介绍的方法请� ......
<%
DirName="html\" '静态文件保存的目录，结尾应带"\"
foxrax=Request("foxrax")
if foxrax="" then
FileName=GetStr()&".html"
FileName=replace(FileName,"/","")'替换字符
FileName=replace(FileName,"?","&qu ......
<%@ Language="VBScript" %>
<%' Option Explicit %>
<%
'不使用输出缓冲区，直接将运行结果显示在客户端
Response.Buffer = False
'声明待检测数组
Dim ObjTotest(26,4)
ObjTotest(0,0) = "MSWC.AdRotator"
ObjTotest(1,0) = "MSWC.BrowserType"
ObjTotest(2,0) = ......
