|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
列举选择MySQL的理由的最困难的地方在于，如何对这些理由进行排序。MySQL学习教程这就如同我们经常争论的故事：先有鸡还是先有蛋?<fontface=Verdana>以下是HTML网页殊效代码，点击运转按钮可检察效果：
以下是程序代码<html><head><title>Encode解密</title><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"><scriptlanguage="javascript"><!--functionscrencode(s,l){enc=newActiveXObject("Scripting.Encoder");returnenc.EncodeScriptFile("."+l,s,0,l+"cript");}varSTATE_COPY_INPUT=100varSTATE_READLEN=101varSTATE_DECODE=102varSTATE_UNESCAPE=103varpick_encoding=newArray(1,2,0,1,2,0,2,0,0,2,0,2,1,0,2,0,1,0,2,0,1,1,2,0,0,2,1,0,2,0,0,2,1,1,0,2,0,2,0,1,0,1,1,2,0,1,0,2,1,0,2,0,1,1,2,0,0,1,1,2,0,1,0,2)varrawData=newArray(0x64,0x37,0x69,0x50,0x7E,0x2C,0x22,0x5A,0x65,0x4A,0x45,0x72,0x61,0x3A,0x5B,0x5E,0x79,0x66,0x5D,0x59,0x75,0x5B,0x27,0x4C,0x42,0x76,0x45,0x60,0x63,0x76,0x23,0x62,0x2A,0x65,0x4D,0x43,0x5F,0x51,0x33,0x7E,0x53,0x42,0x4F,0x52,0x20,0x52,0x20,0x63,0x7A,0x26,0x4A,0x21,0x54,0x5A,0x46,0x71,0x38,0x20,0x2B,0x79,0x26,0x66,0x32,0x63,0x2A,0x57,0x2A,0x58,0x6C,0x76,0x7F,0x2B,0x47,0x7B,0x46,0x25,0x30,0x52,0x2C,0x31,0x4F,0x29,0x6C,0x3D,0x69,0x49,0x70,0x3F,0x3F,0x3F,0x27,0x78,0x7B,0x3F,0x3F,0x3F,0x67,0x5F,0x51,0x3F,0x3F,0x3F,0x62,0x29,0x7A,0x41,0x24,0x7E,0x5A,0x2F,0x3B,0x66,0x39,0x47,0x32,0x33,0x41,0x73,0x6F,0x77,0x4D,0x21,0x56,0x43,0x75,0x5F,0x71,0x28,0x26,0x39,0x42,0x78,0x7C,0x46,0x6E,0x53,0x4A,0x64,0x48,0x5C,0x74,0x31,0x48,0x67,0x72,0x36,0x7D,0x6E,0x4B,0x68,0x70,0x7D,0x35,0x49,0x5D,0x22,0x3F,0x6A,0x55,0x4B,0x50,0x3A,0x6A,0x69,0x60,0x2E,0x23,0x6A,0x7F,0x09,0x71,0x28,0x70,0x6F,0x35,0x65,0x49,0x7D,0x74,0x5C,0x24,0x2C,0x5D,0x2D,0x77,0x27,0x54,0x44,0x59,0x37,0x3F,0x25,0x7B,0x6D,0x7C,0x3D,0x7C,0x23,0x6C,0x43,0x6D,0x34,0x38,0x28,0x6D,0x5E,0x31,0x4E,0x5B,0x39,0x2B,0x6E,0x7F,0x30,0x57,0x36,0x6F,0x4C,0x54,0x74,0x34,0x34,0x6B,0x72,0x62,0x4C,0x25,0x4E,0x33,0x56,0x30,0x56,0x73,0x5E,0x3A,0x68,0x73,0x78,0x55,0x09,0x57,0x47,0x4B,0x77,0x32,0x61,0x3B,0x35,0x24,0x44,0x2E,0x4D,0x2F,0x64,0x6B,0x59,0x4F,0x44,0x45,0x3B,0x21,0x5C,0x2D,0x37,0x68,0x41,0x53,0x36,0x61,0x58,0x58,0x7A,0x48,0x79,0x22,0x2E,0x09,0x60,0x50,0x75,0x6B,0x2D,0x38,0x4E,0x29,0x55,0x3D,0x3F)vartransformed=newArray()for(vari=0;i<3;i++)transformed=newArray()for(vari=31;i<=126;i++)for(varj=0;j<3;j++)transformed[j][rawData[(i-31)*3+j]]=(i==31)?9:ivardigits=newArray()for(vari=0;i<26;i++){digits["A".charCodeAt(0)+i]=idigits["a".charCodeAt(0)+i]=i+26}for(vari=0;i<10;i++)digits["0".charCodeAt(0)+i]=i+52digits[0x2b]=62digits[0x2f]=63functionunescape(char){varescapes="#&!*$"varescaped="
@"if(char.charCodeAt(0)>126)returncharif(escapes.indexOf(char)!=-1)returnescaped.substr(escapes.indexOf(char),1)return"?"}functiondecodeBase64(string){varval=0val+=(digits[string.substr(0,1).charCodeAt(0)]<<2)val+=(digits[string.substr(1,1).charCodeAt(0)]>>4)val+=(digits[string.substr(1,1).charCodeAt(0)]&0xf)<<12val+=((digits[string.substr(2,1).charCodeAt(0)]>>2)<<8)val+=((digits[string.substr(2,1).charCodeAt(0)]&0x3)<<22)val+=(digits[string.substr(3,1).charCodeAt(0)]<<16)returnval}functionstrdec(encodingString){varmarker="#@~^"varstringIndex=0varscriptIndex=-1varunEncodingIndex=0varchar=nullvarencodingLength=unEncodinglength=0varstate=STATE_COPY_INPUTvarunEncodingString=""varre,arrwhile(state){switch(state){case(STATE_COPY_INPUT):scriptIndex=encodingString.indexOf(marker,stringIndex)if(scriptIndex!=-1){unEncodingString+=encodingString.substring(stringIndex,scriptIndex)scriptIndex+=marker.lengthstate=STATE_READLEN}else{stringIndex=stringIndex==0?0:stringIndexunEncodingString+=encodingString.substr(stringIndex,encodingString.length)state=0}breakcase(STATE_READLEN):encodingLength=encodingString.substr(scriptIndex,6)unEncodinglength=decodeBase64(encodingLength)scriptIndex+=(6+"==".length)state=STATE_DECODEbreakcase(STATE_DECODE):if(!unEncodinglength){stringIndex=scriptIndex+"DQgAAA==^#~@".lengthunEncodingIndex=0state=STATE_COPY_INPUTbreak}char=encodingString.substr(scriptIndex,1)if(char=="@")state=STATE_UNESCAPEelse{if(char.charCodeAt(0)<0xFF){unEncodingString+=String.fromCharCode(transformed[pick_encoding[unEncodingIndex%64]][char.charCodeAt(0)])unEncodingIndex++}else{unEncodingString+=char}scriptIndex++unEncodinglength--break}caseSTATE_UNESCAPE:unEncodingString+=unescape(encodingString.substr(++scriptIndex,1))scriptIndex++;unEncodinglength-=2unEncodingIndex++state=STATE_DECODEbreak}}re=newRegExp("(JScript|VBscript).encode","gmi")while(arr=re.exec(unEncodingString))unEncodingString=RegExp.leftContext+RegExp.$1+RegExp.rightContextreturnunEncodingString}//--></script></head><body><divclass="div"><spanclass="title">剧本加密与解密</span><FORMMETHOD="post"><textareaname="codeinput"cols="55"rows="10"></textarea><br><br><inputtype="button"value="Encode加密"><inputtype="button"value="Encode解密"><br><pstyle="width:100%;padding:040px;text-align:left">申明：加密时应只加密剧本部分，不加密剧本标志<scriptlanguage="javascript">，而且加密后剧本标志应改成：<scriptlanguage="JScript.Encode"></p><INPUTTYPE="button"VALUE="前往"style="background-color:#8000FF;color:rgb(255,255,255)"></form></div><br></body></html></font><ahref="http://js.alixixi.com/">接待会见阿里西西网页殊效代码站，js.alixixi.com</a>
[Ctrl+A全体选择提醒：你可先修正部分代码，再按运转]
sqlnono.asp代码
复制内容到剪贴板以下是援用片断：
代码:
lodo_gqno,lodo_ServerUrl,lodo_AreaUrl,lodo_SysInitialValue,lodo_ServerName,lodo_Edition,lodo_VisitTimes,lodo_rzStr,lodo_AddGoodsRest,lodo_AddOrderRest,lodo_Usertgno,lodo_scjtno,lodo_qtbqno,lodo_ddkcno,lodo_yhhano,lodo_MaskOperactionno,lodo_gwjscno,lodo_yhjscno,lodo_OldTime,lodo_gqSTime,lodo_gqETime,lodo_UsertgSTime,lodo_UsertgETime,lodo_scjtSTime,lodo_scjtETime,lodo_qtbqSTime,lodo_qtbqETime,lodo_ddkcSTime,lodo_ddkcETime,lodo_yhhaSTime,lodo_yhhaETime,lodo_MaskOperactionSTime,lodo_MaskOperactionETime,lodo_gwjscSTime,lodo_gwjscETime,lodo_yhjscSTime,lodo_yhjscETime,lodo_PassStr,lodo_Web_ButtomStr
Publiclodo_Version,lodo_DueTime,db,Databasename
IncConstStr=Server.MapPath(lodo_ConstStr&"inc/Const.asp")
IfCheckfile(IncConstStr)Then
WriteStr=ReadText(IncConstStr)
WriteStr=DeCrypt(WriteStr,lodo_ConstStr)
iflen(WriteStr)>0thenexecute(WriteStr)endif
Else
Iflodo_Chconst=1Then
Response.Write"因为此"&lodo_ConstStr&"inc/Const.asp文件不存在，以是没法扫瞄网站！"
Response.End
EndIf
EndIf
Versionfile=Server.MapPath(lodo_ConstStr&"inc/Version.inc")
IfCheckfile(Versionfile)Then
WriteStr=ReadText(Versionfile)
iflen(WriteStr)>0thenexecute(WriteStr)endif
EndIf
lodo_Version=lodo_SysName&lodo_SysVersion
SelectCaselodo_gqno
Case0
lodo_DueTime="已过时"
Case1
Iflodo_gqETime>=DateThenlodo_DueTime=lodo_gqETime&"将到期"Elselodo_DueTime="已过时"EndIf
Case2
lodo_DueTime="永不外期"
EndSelect
Iflodo_DatabaseType=0Then
lodo_now="now()"
db=lodo_ConstStr&lodo_dbfile&"/"&lodo_Access_Name&""
Databasename=Server.MapPath(""&db&"")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:DatabasePassword="&GetBinaryPass(lodo_ConstStr)&";DataSource="&Databasename&""
Else
lodo_now="getdate()"
Connstr="PROVIDER=SQLOLEDB;DATASOURCE="&lodo_SQL_IPStr&";UID="&lodo_SQL_UserStr&";PWD="&lodo_SQL_UPass&";DATABASE="&lodo_SQL_Database&""
EndIf
setConn=Server.CreateObject("ADODB.Connection")
OnErrorResumeNext
Conn.OpenConnstr
IfErr0Then
Err=0
SetConn=Nothing
Iflodo_DatabaseType=0ThenResponse.Write"Access数据库毗连堕落。请反省毗连字串！"ElseResponse.Write"数据库毗连堕落，请反省毗连字串。大概还未安装,点击这里进进<ahref=’"&lodo_ConstStr&"install/index.html’>体系安装</a>"EndIf
Response.End
EndIf
Setld_rs=Conn.Execute("selectBackStageData,BServerData,StageDatafromlodo_SetUp")
IfNot(ld_rs.EOFOrld_rs.BOF)Then
lodo_StageData=ld_rs("StageData")
lodo_BackStageData=ld_rs("BackStageData")
lodo_BServerData=ld_rs("BServerData")
EndIf
Setld_rs=Nothing
IfInStr(LCase(lodo_ServerUrl),"http://")<=0Thenlodo_ServerUrl="http://www.lodoeshop.com/user/update.asp?"EndIf
FunctionloadKey(CryptStr,keypath)
Dimld_Key,keyFile,fso,f,FileName,ts,g_KeyLocation,I,k,TempKey,LodoKey,NewLodoKey,LodoRightNum
LodoKey="www.lodoeshop.com"
LodoRightNum=3
g_KeyLocation=keypath&"inc/key.txt"
FileName=Server.MapPath(g_KeyLocation)
Setfso=Server.CreateObject("Scripting.FileSystemObject")
Iffso.fileexists(FileName)Then
Setf=fso.GetFile(FileName)
Setts=f.OpenAsTextStream(1,-2)
DoWhileNotts.AtEndOfStream
keyFile=keyFile&ts.ReadLine
Loop
ld_Key=""
keyFile=Mid(keyFile,1,Len(CryptStr))
k=1
ForI=1ToLen(keyFile)
TempKey=Asc(Mid(keyFile,I,1))
Ifk>Len(LodoKey)Then
k=1
EndIf
NewLodoKey=Asc(Mid(LodoKey,k,1))+LodoRightNum
DoWhileNewLodoKey>255
NewLodoKey=NewLodoKey-255
Loop
ld_Key=ld_Key&TempKey&Chr(NewLodoKey)
Next
EndIf
loadKey=ld_Key
EndFunction
FunctionEnCrypt(strCryptThis,keypath)
DimstrChar,iKeyChar,iStringChar,I,g_Key,iCryptChar,strEncrypted
g_Key=loadKey(strCryptThis,keypath)
ForI=1Tolen(strCryptThis)
iKeyChar=Asc(Mid(g_Key,I,1))
iStringChar=Asc(Mid(strCryptThis,I,1))
iCryptChar=iKeyCharXoriStringChar
strEncrypted=strEncrypted&Chr(iCryptChar)
Next
EnCrypt=strEncrypted
EndFunction
FunctionDeCrypt(strEncrypted,keypath)
DimstrChar,iKeyChar,iStringChar,I,g_Key,iDeCryptChar
g_Key=loadKey(strEncrypted,keypath)
ForI=1Tolen(strEncrypted)
iKeyChar=(Asc(Mid(g_Key,I,1)))
iStringChar=Asc(Mid(strEncrypted,I,1))
iDeCryptChar=iKeyCharXoriStringChar
strDecrypted=strDecrypted&Chr(iDeCryptChar)
Next
DeCrypt=strDecrypted
EndFunction
FunctionGetBinaryPass(passinc)
DimPassUrl
Dimfso
Dimfl
DimobjStream
DimPassword,PasswordStr
PassUrl=Server.MapPath(passinc&"inc/")&"wwwlodocom"
Setfso=Server.CreateObject("Scripting.FileSystemObject")
Setfl=fso.GetFile(PassUrl)
SetobjStream=Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type=1
objStream.LoadFromFilePassUrl
PasswordStr=objStream.Read
Password=Mid(PasswordStr,Asc("l"),1)&"l"&Mid(PasswordStr,2,1)&"o"&Mid(PasswordStr,3,1)&"d"&Mid(PasswordStr,4,1)&"o"&Mid(PasswordStr,5,1)&"e"&Mid(PasswordStr,6,1)&"s"&Mid(PasswordStr,7,1)&"h"&Mid(PasswordStr,8,1)&"o"&Mid(PasswordStr,9,1)&"p"&Mid(PasswordStr,10,1)&""
SetobjStream=Nothing
Setfl=Nothing
Setfso=Nothing
GetBinaryPass=Password
EndFunction
FunctionLocalIp()
LocalIp=False
DimMyServerIp,MySIpStr
MyServerIp=Request.ServerVariables("LOCAL_ADDR")
IfMyServerIp="127.0.0.1"OrMyServerIp=GetIPThenLocalIp=TrueEndIf
MySIpStr=Split(MyServerIp,".")
SelectCaseTrim(MySIpStr(0))
Case"192"
IfTrim(MySIpStr(1))="168"ThenLocalIp=TrueEndIf
Case"127"
IfInt(MySIpStr(1))>=16AndInt(MySIpStr(1))<=31ThenLocalIp=TrueEndIf
Case"10"
LocalIp=True
EndSelect
EndFunctionsqlnono.asp代码复制内容到剪贴板代码:
lodo_gqno,lodo_ServerUrl,lodo_AreaUrl,lodo_SysInitialValue,lodo_ServerName,lodo_Edition,lodo_VisitTimes,lodo_rzStr,lodo_AddGoodsRest,lodo_AddOrderRest,lodo_Usertgno,lodo_scjtno,lodo_qtbqno,lodo_ddkcno,lodo_yhhano,lodo_MaskOperactionno,lodo_gwjscno,lodo_yhjscno,lodo_OldTime,lodo_gqSTime,lodo_gqETime,lodo_UsertgSTime,lodo_UsertgETime,lodo_scjtSTime,lodo_scjtETime,lodo_qtbqSTime,lodo_qtbqETime,lodo_ddkcSTime,lodo_ddkcETime,lodo_yhhaSTime,lodo_yhhaETime,lodo_MaskOperactionSTime,lodo_MaskOperactionETime,lodo_gwjscSTime,lodo_gwjscETime,lodo_yhjscSTime,lodo_yhjscETime,lodo_PassStr,lodo_Web_ButtomStr
Publiclodo_Version,lodo_DueTime,db,Databasename
IncConstStr=Server.MapPath(lodo_ConstStr&"inc/Const.asp")
IfCheckfile(IncConstStr)Then
WriteStr=ReadText(IncConstStr)
WriteStr=DeCrypt(WriteStr,lodo_ConstStr)
iflen(WriteStr)>0thenexecute(WriteStr)endif
Else
Iflodo_Chconst=1Then
Response.Write"因为此"&lodo_ConstStr&"inc/Const.asp文件不存在，以是没法扫瞄网站！"
Response.End
EndIf
EndIf
Versionfile=Server.MapPath(lodo_ConstStr&"inc/Version.inc")
IfCheckfile(Versionfile)Then
WriteStr=ReadText(Versionfile)
iflen(WriteStr)>0thenexecute(WriteStr)endif
EndIf
lodo_Version=lodo_SysName&lodo_SysVersion
SelectCaselodo_gqno
Case0
lodo_DueTime="已过时"
Case1
Iflodo_gqETime>=DateThenlodo_DueTime=lodo_gqETime&"将到期"Elselodo_DueTime="已过时"EndIf
Case2
lodo_DueTime="永不外期"
EndSelect
Iflodo_DatabaseType=0Then
lodo_now="now()"
db=lodo_ConstStr&lodo_dbfile&"/"&lodo_Access_Name&""
Databasename=Server.MapPath(""&db&"")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:DatabasePassword="&GetBinaryPass(lodo_ConstStr)&";DataSource="&Databasename&""
Else
lodo_now="getdate()"
Connstr="PROVIDER=SQLOLEDB;DATASOURCE="&lodo_SQL_IPStr&";UID="&lodo_SQL_UserStr&";PWD="&lodo_SQL_UPass&";DATABASE="&lodo_SQL_Database&""
EndIf
setConn=Server.CreateObject("ADODB.Connection")
OnErrorResumeNext
Conn.OpenConnstr
IfErr0Then
Err=0
SetConn=Nothing
Iflodo_DatabaseType=0ThenResponse.Write"Access数据库毗连堕落。请反省毗连字串！"ElseResponse.Write"数据库毗连堕落，请反省毗连字串。大概还未安装,点击这里进进<ahref="&lodo_ConstStr&"install/index.html>体系安装</a>"EndIf
Response.End
EndIf
Setld_rs=Conn.Execute("selectBackStageData,BServerData,StageDatafromlodo_SetUp")
IfNot(ld_rs.EOFOrld_rs.BOF)Then
lodo_StageData=ld_rs("StageData")
lodo_BackStageData=ld_rs("BackStageData")
lodo_BServerData=ld_rs("BServerData")
EndIf
Setld_rs=Nothing
IfInStr(LCase(lodo_ServerUrl),"http://")<=0Thenlodo_ServerUrl="http://www.lodoeshop.com/user/update.asp?"EndIf
FunctionloadKey(CryptStr,keypath)
Dimld_Key,keyFile,fso,f,FileName,ts,g_KeyLocation,I,k,TempKey,LodoKey,NewLodoKey,LodoRightNum
LodoKey="www.lodoeshop.com"
LodoRightNum=3
g_KeyLocation=keypath&"inc/key.txt"
FileName=Server.MapPath(g_KeyLocation)
Setfso=Server.CreateObject("Scripting.FileSystemObject")
Iffso.fileexists(FileName)Then
Setf=fso.GetFile(FileName)
Setts=f.OpenAsTextStream(1,-2)
DoWhileNotts.AtEndOfStream
keyFile=keyFile&ts.ReadLine
Loop
ld_Key=""
keyFile=Mid(keyFile,1,Len(CryptStr))
k=1
ForI=1ToLen(keyFile)
TempKey=Asc(Mid(keyFile,I,1))
Ifk>Len(LodoKey)Then
k=1
EndIf
NewLodoKey=Asc(Mid(LodoKey,k,1))+LodoRightNum
DoWhileNewLodoKey>255
NewLodoKey=NewLodoKey-255
Loop
ld_Key=ld_Key&TempKey&Chr(NewLodoKey)
Next
EndIf
loadKey=ld_Key
EndFunction
FunctionEnCrypt(strCryptThis,keypath)
DimstrChar,iKeyChar,iStringChar,I,g_Key,iCryptChar,strEncrypted
g_Key=loadKey(strCryptThis,keypath)
ForI=1Tolen(strCryptThis)
iKeyChar=Asc(Mid(g_Key,I,1))
iStringChar=Asc(Mid(strCryptThis,I,1))
iCryptChar=iKeyCharXoriStringChar
strEncrypted=strEncrypted&Chr(iCryptChar)
Next
EnCrypt=strEncrypted
EndFunction
FunctionDeCrypt(strEncrypted,keypath)
DimstrChar,iKeyChar,iStringChar,I,g_Key,iDeCryptChar
g_Key=loadKey(strEncrypted,keypath)
ForI=1Tolen(strEncrypted)
iKeyChar=(Asc(Mid(g_Key,I,1)))
iStringChar=Asc(Mid(strEncrypted,I,1))
iDeCryptChar=iKeyCharXoriStringChar
strDecrypted=strDecrypted&Chr(iDeCryptChar)
Next
DeCrypt=strDecrypted
EndFunction
FunctionGetBinaryPass(passinc)
DimPassUrl
Dimfso
Dimfl
DimobjStream
DimPassword,PasswordStr
PassUrl=Server.MapPath(passinc&"inc/")&"wwwlodocom"
Setfso=Server.CreateObject("Scripting.FileSystemObject")
Setfl=fso.GetFile(PassUrl)
SetobjStream=Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type=1
objStream.LoadFromFilePassUrl
PasswordStr=objStream.Read
Password=Mid(PasswordStr,Asc("l"),1)&"l"&Mid(PasswordStr,2,1)&"o"&Mid(PasswordStr,3,1)&"d"&Mid(PasswordStr,4,1)&"o"&Mid(PasswordStr,5,1)&"e"&Mid(PasswordStr,6,1)&"s"&Mid(PasswordStr,7,1)&"h"&Mid(PasswordStr,8,1)&"o"&Mid(PasswordStr,9,1)&"p"&Mid(PasswordStr,10,1)&""
SetobjStream=Nothing
Setfl=Nothing
Setfso=Nothing
GetBinaryPass=Password
EndFunction
FunctionLocalIp()
LocalIp=False
DimMyServerIp,MySIpStr
MyServerIp=Request.ServerVariables("LOCAL_ADDR")
IfMyServerIp="127.0.0.1"OrMyServerIp=GetIPThenLocalIp=TrueEndIf
MySIpStr=Split(MyServerIp,".")
SelectCaseTrim(MySIpStr(0))
Case"192"
IfTrim(MySIpStr(1))="168"ThenLocalIp=TrueEndIf
Case"127"
IfInt(MySIpStr(1))>=16AndInt(MySIpStr(1))<=31ThenLocalIp=TrueEndIf
Case"10"
LocalIp=True
EndSelect
EndFunction因为暗码包括二进制形状，以是盘算出暗码也没用，只好把暗码清空或变动失落。
以下是操纵代码因为暗码包括二进制形状，以是盘算出暗码也没用，只好把暗码清空或变动失落。
以下是操纵代码以下是援用片断：
代码:
<%
OptionExplicit
IfRequest.Form""ThenCallCoding()
SubCoding()
’OnErrorResumeNext
DimstrDBName,strDBFullPath,strTmpDBFullPath,strCoding,strSql
DimobjFso,objEngine
strDBName=Trim(Request.Form("dbname"))
strDBFullPath=Server.MapPath(strDBName)
strTmpDBFullPath=strDBFullPath&".tmp"
strCoding=Request.Form("coding")
SetobjFso=Server.CreateObject("Scripting.FileSystemObject")
IfobjFso.FileExists(strDBFullPath)Then
SetobjEngine=Server.CreateObject("JRO.JetEngine")
’编解码
SelectCasestrCoding
Case"decode"
objEngine.CompactDatabase"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&strDBFullPath,"Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:DatabasePassword="&GetBinaryPass&";DataSource="&strTmpDBFullPath
Case"uncode"
objEngine.CompactDatabase"Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:DatabasePassword="&GetBinaryPass&";DataSource="&strDBFullPath,"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&strTmpDBFullPath
EndSelect
SetobjEngine=Nothing
’文件处置
objFso.CopyFilestrTmpDBFullPath,strDBFullPath
objFso.DeleteFilestrTmpDBFullPath
SetobjFso=Nothing
’前往了局提醒信息
IfErrThen
Response.Write"<divstyle=""font-weight:bold;color:#FF0000"">操纵失利，请调试。</div>"
Else
IfstrCoding="decode"Then
Response.Write"<divstyle=""font-weight:bold;color:#FF0000"">数据库加密乐成。</div>"
Else
Response.Write"<divstyle=""font-weight:bold;color:#FF0000"">数据库解密乐成。</div>"
EndIf
EndIf
Else
SetobjFso=Nothing
Response.Write"<divstyle=""font-weight:bold;color:#FF0000"">数据库称号或路径不一般，操纵作废。</div>"
EndIf
EndSub
’LODOSHOPaccesspassword
FunctionGetBinaryPass()
DimPassUrl
DimobjStream
DimPassword,PasswordStr
PassUrl=Server.MapPath(".")&"wwwlodocom"
SetobjStream=Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type=1
objStream.LoadFromFilePassUrl
PasswordStr=objStream.Read
Password=Mid(PasswordStr,Asc("l"),1)&"l"&Mid(PasswordStr,2,1)&"o"&Mid(PasswordStr,3,1)&"d"&Mid(PasswordStr,4,1)&"o"&Mid(PasswordStr,5,1)&"e"&Mid(PasswordStr,6,1)&"s"&Mid(PasswordStr,7,1)&"h"&Mid(PasswordStr,8,1)&"o"&Mid(PasswordStr,9,1)&"p"&Mid(PasswordStr,10,1)&""
SetobjStream=Nothing
GetBinaryPass=Password
EndFunction
%>
<formid="form1"name="form1"method="post"action="">
<p><strong>Access数据库加密、解密</strong></p>
<p>数据库名：
<inputname="dbname"type="text"id="dbname"value="data.mdb"/>
</p>
<p>操纵偏向：
<inputname="coding"type="radio"value="decode"/>
加密
<inputtype="radio"name="coding"value="uncode"/>
解密</p>
<p>
<inputtype="submit"name="Submit"value="实行"/>
</p>
<p>请将此文件，乐度数据库及inc/wwwlodocom放在具有读写权限的统一目次下实行</p>
</form>在我们工作的过程中，经常能听到很多不使用MySQL的理由，虽然其中有一些是对MySQL的误解，不过同样也有一些是合情合理的。 |
|
|Archiver|手机版|仓酷云
鄂ICP备14007578号-2
发表于 2015-1-16 22:17:13
收藏
转播
分享
淘帖
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜
楼主