文档中心

在我开发BS结构程序中，由于经常需要在ORACLE中处理一些容量较大的文本数据，所以经过反复测试终于用ASP成功解
决了大文本数据在ORACLE下存取问题。
　　
　　一、运行环境：
　　1、Microsoft Windows 2000 Server + IIS 5.0
2、Oracle8i中文标准版
　　
　　二、建立数据表：
　　CREATE TABLE SYSTEM.TEST(
BLOB LONG,
ID NUMBER)
/
　　三、源程序：
1、数据存入程序：test.asp
＜%
'表单提交处理部分
'--------------------------------------------------
If request("ok")=1 then
'字符转换函数
function tansstr(sstr)
sstr=replace(sstr," "," ")
sstr=replace(sstr,chr(13) & chr(10),"＜br＞")
tansstr=sstr
end function
'提交数据赋值
a=lenb(request("text"))
b=len(request("text"))
c=tansstr(request("text"))
'打开数据库，打开test数据表以Rs为记录集
Set OraSession=CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.DbOpenDatabase("autop","system/manager",0)
Set rs=OraDatabase.CreateDynaset("select * from test order by id desc",0)
'求ID值
if rs.eof then
id=1
else
......

ASP的DES加密解密
2007-05-18 09:49
原文：http://hi.baidu.com/myfav/blog/item/3ebc58828edd79a30cf4d290.html
前两天学到对称密码DES算法，然后就自己亲手写了个实现程序出来，好多地方用得着呐。这里是用ASP实现，当然也就是可以移到VB啦。懂得怎样写后写成什么语言都行啦，只要懂得那门语言。如果有朋友想知道具体DES算法过程是怎样的，可以到网上查找。
（这两天又把它改进了一下，加密字符串并且使用十六进制，这样加密后的字符串会短些~~~      —— 2007年5月2日）
<%
Class Cls_DES
     Private IPRule, CPRule, EPRule, PRule, SBox(7), PCRule(1), MvRule
     Private K(16), L(16), R(16)
     Private FillCode, DesStatus

     Private Sub Class_Initialize()
         DesStatus = -1
         FillCode = "0001101"
         IPRule = "58,50,42,34,26,18,1 ......

新建立一个ASP文件把以下代码复制进去
<%
ip=request.ServerVariables("REMOTE_ADDR") '获取来访的IP地址
dim conn
set conn=server.CreateObject("ADODB.connection")
conn.open "Dbq="&server.MapPath("yb/dat/data.mdb")&";Driver={Microsoft Access Driver (*.mdb)}" '建立数据库连接这里你可以自己改
sql="select * from ip_user where ip地址='"&ip&"'"
set rs=server.CreateObject("ADODB.recordset")
rs.open sql,conn,3,3
if rs.eof then
call ip_fir("thenew")
else
vistime=rs("访问时间")
if DateDiff("h",vistime,now)>=12 then
call ip_fir("theup")
else
call ip_notfir
end if
end if
%>
<%'--------------为了方便写成了过程形式：
Sub Ip_fir(action)'---------------------第一次访问的过程
response.write "12小时内，你是第一次访问本站，这里贴上加流量代码"
if action="theup" then
rs("访问时间")=now()
rs.update
elseif action="thenew" then
sql1="insert into ip_user(ip地址) values ('"&request.ServerVariables("REMOTE_ADDR")&"')"
conn.e ......

前几天在自己的笔记本上安装了OFFICE2007。今天做了一个百度友情链接检查的工具，在连接ACCESS2007数据库的时候，使用的驱动代码为："provider=microsoft.jet.oledb.4.0;data source="&server.mappath("queryrecord.mdb") 。确发现提示：
Microsoft JET Database Engine 错误 ''80004005''
不可识别的数据库格式
但是以前没装OFFICE2007前建立好的数据库（以前用的ACCESS2003），使用这个代码可以正常运行。想了一想，估计是因为ACCESS2007的驱动代码已经发生变化。进入http://www.connectionstrings.com/（注意：该网站提供了现有所有数据库的连接方式，建议大家收藏该网址）一看，果真ACCESS2007的数据库连接方式已经发生变化。已经更改为：
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Persist Security Info=False;
于是更改了下代码，程序运行正常。
随后将代码更新至服务器http://baiduquery.newbooks.com.cn ,确发现程序还是不能运行，提示“驱动没有安装”，于是把驱动代码更改为microsoft.jet.oledb.4.0，提示“不可识别的数据库格式”，看来在本机建立的数据库为ACCESS2007的话，传到服务器 ......

<input name="total" type="text" value="<%=webcounter%>" size="12" onbeforepaste="clipboarddata.setdata('text',clipboarddata.getdata('text').replace(/[^\d]/g,''))"
onkeydown="subOnKeyDown()"
onkeyup="value=value.replace(/[^\d]/g,'')"/>
使用后如果输入为非数字则输入无效 ......

1. ASP连接Access数据库语句
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("www/bbs.mdb")+";DefaultDir=;DRIVER={Microsoft
AccessDriver(*.mdb)};"
Conn.Open connstr
其中Set Conn=Server.CreateObject("ADODB.Connection")为建立一个访问数据的对象
server.mappath("www/bbs.mdb")是告诉服务器access 数据库访问的路径
2. ASP连接Sqlserver数据库语句
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open"driver={SQLServer};server=202.108.32.94;uid=wu77445;pwd=p780522;database=w
ww_panwei_com"
conn open
其中/Set conn = Server.CreateObject("ADODB.Connection")为设置一个数据库的连接对象
driver=（）告诉连接的设备名是SQL-SERVER
server是连接的服务器的ip地址，Uid是指用户的用户名，pwd是指的用户的password，
database是用户数据库在服务器端的数据库的名称 ......

Oracle大文本在ASP中存取问题的解决

Oracle大文本在ASP中存取问题的解决

ASP的DES加密解密

ASP 限制发帖时间和登陆限制

使用asp连接access2007注意事项

使用asp连接access2007注意事项

asp中判断input标签输入是否为数字

ASp连接数据库