Asp :数据库基本连接\解析 , 及捕捉错误输出.....

SqlConnection.asp :数据库connect

<%
   Function Open_conn()
   dim Conn,Strconn
   set Conn = server.createobject( " adodb.connection " )
  Strconn = " Provider=SQLOLEDB;Server=xiao;Database=piao;Uid=sa;Pwd=; "
  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
%>

输出错误:showmsg.asp

<%

sub errshow(errmsg)
    tempstr = " <script language=""JavaScript"" type=""text/JavaScript""> "
    tempstr = tempstr & " alert("" " & errmsg & " ""); "
    tempstr = tempstr & " history.back(); "
    tempstr = tempstr & " </script> "
    response.Write(tempstr)
    response.End()
end sub

sub successshow(errmsg,a)
    tempstr = " <script language=""JavaScript"" type=""text/JavaScript""> "
    tempstr = tempstr & " alert("" " & errmsg & " ""); "
    tempstr = tempstr & " history.go("" " & a & " ""); "
    tempstr = tempstr & " </script> "
    response.Write(tempstr)
    response.End()
end sub

%>

Pager.asp :数据表的分页.

<%
function pageturn(pageno,pagesize,rscount,strsearch)

     dim pagecount
    iCount = rscount \ pagesize
     if rscount > 0 and rscount mod pagesize > 0 then iCount = iCount + 1
    pagecount = iCount
     ' if pagecount<2 then
         ' response.write " "
         ' exit function
     ' end if
    pageno = cint (pageno)
     if rscount = 0 then pageno = 0

    response.Write( " 共计 " & pagecount & " 页 " )
    response.write( "    " )
    response.Write( " 第 " & pageno & " 页 " )
    response.write( "    " )
    response.Write( " 每页 " & pagesize & " 条信息 " )
    response.write( "    " )
    response.Write( " 共计 " & rscount & " 条信息 " )
    response.write( "     " )
    response.Write( " <a class='lianjie1' href='?pageno=1& " & strsearch & " '>首页</a> " )
    response.write( "    " )


     if pageno = 1 or rscount = 0 then
        Response.Write( " 上一页 " )
     else
        Response.Write( " <a class='lianjie1' href='?pageno= " & pageno - 1 & " & " & strsearch & " '>上一页</a> " )
     end if

    response.write( "    " )

    pageno_star = pageno - 2
    pageno_over = pageno + 2

     if pageno_star <= 1 then
         for i = 1 to pagecount
             if i <= 5 then
                 if i = pageno then
                Response.Write( "  <strong> " & i & " </strong>  " )
                 else
                Response.Write( "  <a class='lianjie1' href='?pageno= " & i & " & " & strsearch & " '> " & i & " </a>  " )
                 end if
             end if
         next
         if pagecount > 5 then response.Write( " → " )
     elseif pageno_over >= pagecount then
        response.Write( " ← " )
         for i = pagecount - 5 to pagecount

                 if i = pageno then
                Response.Write( "   " & i & "   " )
                 else
                Response.Write( "  <a class='lianjie1' href='?pageno= " & i & " & " & strsearch & " '> " & i & " </a>  " )
                 end if

         next
     else
        response.Write( " ← " )
         for i = pageno_star to pageno_over

             if i = pageno then
            Response.Write( "   " & i & "   " )
             else
            Response.Write( "  <a class='lianjie1' href='?pageno= " & i & " & " & strsearch & " '> " & i & " </a>  " )
             end if

         next
        response.Write( " → " )
     end if





    response.write( "    " )

     if pageno = pagecount or rscount = 0 then
        Response.Write( " 下一页 " )
     else
        Response.Write( " <a class='lianjie1' href='?pageno= " & cint (pageno + 1 ) & " & " & strsearch & " '>下一页</a> " )
     end if

    response.write( "    " )
    response.Write( " <a class='lianjie1' href='?pageno= " & pagecount & " & " & strsearch & " '>尾页</a> " )

' pageturn=strtemp
end function
%>

serceat.asp 加密...

<%
A_Key = split ( " 46,39,63,90,81,71,53,24,18,99,11 " , " , " ) ' 定义密钥
' *********加密的过程*********
Function EnCrypt(m)
if m = "" or isnull (m) then exit function
Dim strChar,iKeyChar,iStringChar,I
k = 0
for I = 1 to Len ( trim (m))
iKeyChar = Cint (A_Key(k))
iStringChar = Asc ( mid (m,I, 99 )) ' 获取字符的ASCII码值
iCryptChar = iKeyChar Xor iStringChar ' 进行异或运算


' 对密钥进行移位运算
If k < 5 Then
k = k + 1
Else
k = 0
End If

c = c & chr (iCryptChar)
next
EnCrypt = c
End Function

' *********解密的过程*********
Function DeCrypt(c)
if c = "" or isnull (c)   then exit function
Dim strChar, iKeyChar, iStringChar, I
k = 0
for I = 1 to Len ( trim (c))
iKeyChar = Cint (A_Key(k))
iStringChar = Asc ( mid (c,I, 99 ))
iDeCryptChar = iKeyChar Xor iStringChar ' 进行异或运算

' 对密钥进行移位运算
If k < 5 Then
k = k + 1
Else
k = 0
End If
strDecrypted = strDecrypted & Chr (iDeCryptChar)
next
DeCrypt = strDecrypted
End Function

%>

Rs.Open参数说明

在ASP中经常用Rs.Open sql,conn,1,1这样的方式打开数据库,但仍有一部分同行不知道这是嘛意思,现整理如下:

Rs.Open语法如下:rs.Open Source,ActiveConnection,CursorType,LockType
Source为sql语句,ActiveConnection为数据库连接,CursorType是游标,LockType是数据锁定类型.
CursorType

常量                                             说明
adOpenForwardOnly(值为0)     （默认值）打开仅向前类型游标。
adOpenKeyset(值为1)               打开键集类型游标。
adOpenDynamic(值为2)             打开动态类型游标。
adOpenStatic(值为3)               打开静态类型游标。

-----------------------
LockType


常量   说明
adLockReadOnly (值为1) （默认值）只读   —   不能改变数据。
adLockPessimistic(值为2)   保守式锁定（逐个）   —   提供者完成确保成功编辑记录所需的工作，通常通过在编辑时立即锁定数据源的记录来完成。
adLockOptimistic(值为3)   开放式锁定（逐个）   —   提供者使用开放式锁定，只在调用   Update   方法时才锁定记录。
adLockBatchOptimistic(值为4)   开放式批更新   —   用于批更新模式（与立即更新模式相对）。

CursorType
0             仅向前游标，只能向前浏览记录，不支持分页、Recordset、BookMark
1             键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
2             动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览。
3             静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动

LockType
    LockType为记录集的锁定类型，其取值为：
1             锁定类型，默认的，只读，不能作任何修改
2             当编辑时立即锁定记录，最安全的方式
3             只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
4             当编辑时记录不会被锁定，而更改、插入和删

秒客网

Asp :数据库基本连接\解析 , 及捕捉错误输出.....

相关文章