在线万能数据库原码(在线万能数据库原码查询)

网站建设 10
今天给各位分享在线万能数据库原码的知识,其中也会对在线万能数据库原码查询进行解释,如果能碰巧解决你现在面临的问题,别忘了关注本站,现在开始吧!ACCESS开发的数据库系统集成后,怎么查看原代码? 想看access打包后的工程的,要保证打包后的数据文件格式是.mdb的。而.mde格式是不允许打开查询的。查看步骤:1、按住Shift后,再打开系统,就可将启动项屏蔽;

今天给各位分享在线万能数据库原码的知识,其中也会对在线万能数据库原码查询进行解释,如果能碰巧解决你现在面临的问题,别忘了关注本站,现在开始吧!

ACCESS开发的数据库系统集成后,怎么查看原代码?

想看access打包后的工程的,要保证打包后的数据文件格式是.mdb的。

而.mde格式是不允许打开查询的。

查看步骤:

1、按住Shift后,再打开系统,就可将启动项屏蔽;

2、将该数据库的AllowBypassKey 属性设为True,之后,再按住Shift后,再打开系统,就可将启动项屏蔽。

求解md5的原码?

这不是常用的密码字符串加密的出的md5,因此不能采用常规数据库纪录破解,只能靠暴力破解了,不过对一般人是不可能的

找个ASP无组件多图片文字上传到数据库原码 在线等

%

我在用的

'----------------------------------------------------------

'***************** 风声无组件上传类 2.0 *****************

'作者:风声

'网站:

'邮件:rumor@17560.net

'版权:版权全体,源代码公开,各种用途均可免费使用

'**********************************************************

'----------------------------------------------------------

class uploadclass

private p_maxsize,p_filetype,p_savepath,p_autosave,p_error

private objform,binform,binitem,strdate,lngtime

public formitem,fileitem

public property get version

version="rumor uploadclass version 2.0"

end property

public property get error

error=p_error

end property

public property get maxsize

maxsize=p_maxsize

end property

public property let maxsize(lngsize)

if isnumeric(lngsize) then

p_maxsize=clng(lngsize)

end if

end property

public property get filetype

filetype=p_filetype

end property

public property let filetype(strtype)

p_filetype=strtype

end property

public property get savepath

savepath=p_savepath

end property

public property let savepath(strpath)

p_savepath=replace(strpath,chr(0),"")

end property

public property get autosave

autosave=p_autosave

end property

public property let autosave(byval flag)

select case flag

case 0:

case 1:

case 2:

case false:flag=2

case else:flag=0

end select

p_autosave=flag

end property

private sub class_initialize

p_error = -1

p_maxsize = 153600

p_filetype = "jpg/gif/doc/txt/htm/html/xls/rar/zip/mp3"

p_savepath = "../../wj/"

p_autosave = 0

strdate = replace(cstr(date()),"-","")

lngtime = clng(timer()*1000)

set binform = server.createobject("adodb.stream")

set binitem = server.createobject("adodb.stream")

set objform = server.createobject("scripting.dictionary")

objform.comparemode = 1

end sub

private sub class_terminate

objform.removeall

set objform = nothing

set binitem = nothing

binform.close()

set binform = nothing

end sub

public sub open()

if p_error=-1 then

p_error=0

else

exit sub

end if

dim lngrequestsize,binrequestdata,strformitem,strfileitem

const strsplit="'"""

lngrequestsize=request.totalbytes

if lngrequestsize1 then

p_error=4

exit sub

end if

binrequestdata=request.binaryread(lngrequestsize)

binform.type = 1

binform.open

binform.write binrequestdata

dim bcrlf,strseparator,intseparator

bcrlf=chrb(13)chrb(10)

intseparator=instrb(1,binrequestdata,bcrlf)-1

strseparator=leftb(binrequestdata,intseparator)

dim p_start,p_end,stritem,strinam,inttemp,strtemp

dim strftyp,strfnam,strfext,lngfsiz

p_start=intseparator+2

do

p_end =instrb(p_start,binrequestdata,bcrlfbcrlf)+3

binitem.type=1

binitem.open

binform.position=p_start

binform.copyto binitem,p_end-p_start

binitem.position=0

binitem.type=2

binitem.charset="gb2312"

stritem=binitem.readtext

binitem.close()

p_start=p_end

p_end =instrb(p_start,binrequestdata,strseparator)-1

binitem.type=1

binitem.open

binform.position=p_start

lngfsiz=p_end-p_start-2

binform.copyto binitem,lngfsiz

inttemp=instr(39,stritem,"""")

strinam=mid(stritem,39,inttemp-39)

if instr(inttemp,stritem,"filename=""")0 then

if not objform.exists(strinam"_from") then

strfileitem=strfileitemstrsplitstrinam

if binitem.size0 then

inttemp=inttemp+13

strftyp=mid(stritem,instr(inttemp,stritem,"content-type: ")+14)

strtemp=mid(stritem,inttemp,instr(inttemp,stritem,"""")-inttemp)

inttemp=instrrev(strtemp,"")

strfnam=mid(strtemp,inttemp+1)

objform.add strinam"_type",strftyp

objform.add strinam"_name",strfnam

objform.add strinam"_path",left(strtemp,inttemp)

objform.add strinam"_size",lngfsiz

if instr(inttemp,strtemp,".")0 then

strfext=mid(strtemp,instrrev(strtemp,".")+1)

else

strfext=""

end if

if left(strftyp,6)="image/" then

binitem.position=0

binitem.type=1

strtemp=binitem.read(10)

if strcomp(strtemp,chrb(255) chrb(216) chrb(255) chrb(224) chrb(0) chrb(16) chrb(74) chrb(70) chrb(73) chrb(70),0)=0 then

if lcase(strfext)"jpg" then strfext="jpg"

binitem.position=3

do while not binitem.eos

do

inttemp = ascb(binitem.read(1))

loop while inttemp = 255 and not binitem.eos

if inttemp 192 or inttemp 195 then

binitem.read(bin2val(binitem.read(2))-2)

else

exit do

end if

do

inttemp = ascb(binitem.read(1))

loop while inttemp 255 and not binitem.eos

loop

binitem.read(3)

objform.add strinam"_height",bin2val(binitem.read(2))

objform.add strinam"_width",bin2val(binitem.read(2))

elseif strcomp(leftb(strtemp,8),chrb(137) chrb(80) chrb(78) chrb(71) chrb(13) chrb(10) chrb(26) chrb(10),0)=0 then

if lcase(strfext)"png" then strfext="png"

binitem.position=18

objform.add strinam"_width",bin2val(binitem.read(2))

binitem.read(2)

objform.add strinam"_height",bin2val(binitem.read(2))

elseif strcomp(leftb(strtemp,6),chrb(71) chrb(73) chrb(70) chrb(56) chrb(57) chrb(97),0)=0 or strcomp(leftb(strtemp,6),chrb(71) chrb(73) chrb(70) chrb(56) chrb(55) chrb(97),0)=0 then

if lcase(strfext)"gif" then strfext="gif"

binitem.position=6

objform.add strinam"_width",binval2(binitem.read(2))

objform.add strinam"_height",binval2(binitem.read(2))

elseif strcomp(leftb(strtemp,2),chrb(66) chrb(77),0)=0 then

if lcase(strfext)"bmp" then strfext="bmp"

binitem.position=18

objform.add strinam"_width",binval2(binitem.read(4))

objform.add strinam"_height",binval2(binitem.read(4))

end if

end if

objform.add strinam"_ext",strfext

objform.add strinam"_from",p_start

inttemp=getferr(lngfsiz,strfext)

if p_autosave2 then

objform.add strinam"_err",inttemp

if inttemp=0 then

if p_autosave=0 then

strfnam=gettimestr()

if strfext"" then strfnam=strfnam"."strfext

end if

binitem.savetofile server.mappath(p_savepathstrfnam),2

objform.add strinam,strfnam

end if

end if

else

objform.add strinam"_err",-1

end if

end if

else

binitem.position=0

binitem.type=2

binitem.charset="gb2312"

strtemp=binitem.readtext

if objform.exists(strinam) then

objform(strinam) = objform(strinam)","strtemp

else

strformitem=strformitemstrsplitstrinam

objform.add strinam,strtemp

end if

end if

binitem.close()

p_start = p_end+intseparator+2

loop until p_start+3lngrequestsize

formitem=split(strformitem,strsplit)

fileitem=split(strfileitem,strsplit)

end sub

private function gettimestr()

lngtime=lngtime+1

gettimestr=strdatelngtime

end function

private function getferr(lngfsiz,strfext)

dim intferr

intferr=0

if lngfsizp_maxsize and p_maxsize0 then

if p_error=0 or p_error=2 then p_error=p_error+1

intferr=intferr+1

end if

if instr(1,lcase("/"p_filetype"/"),lcase("/"strfext"/"))=0 and p_filetype"" then

if p_error2 then p_error=p_error+2

intferr=intferr+2

end if

getferr=intferr

end function

public function save(item,strfnam)

save=false

if objform.exists(item"_from") then

dim intferr,strfext

strfext=objform(item"_ext")

intferr=getferr(objform(item"_size"),strfext)

if objform.exists(item"_err") then

if intferr=0 then

objform(item"_err")=0

end if

else

objform.add item"_err",intferr

end if

if intferr0 then exit function

if vartype(strfnam)=2 then

select case strfnam

case 0:strfnam=gettimestr()

if strfext"" then strfnam=strfnam"."strfext

case 1:strfnam=objform(item"_name")

end select

end if

binitem.type = 1

binitem.open

binform.position = objform(item"_from")

binform.copyto binitem,objform(item"_size")

binitem.savetofile server.mappath(p_savepathstrfnam),2

binitem.close()

if objform.exists(item) then

objform(item)=strfnam

else

objform.add item,strfnam

end if

save=true

end if

end function

public function getdata(item)

getdata=""

if objform.exists(item"_from") then

if getferr(objform(item"_size"),objform(item"_ext"))0 then exit function

binform.position = objform(item"_from")

getdata=binformstream.read(objform(item"_size"))

end if

end function

public function form(item)

if objform.exists(item) then

form=objform(item)

else

form=""

end if

end function

private function binval2(bin)

dim lngvalue,i

lngvalue = 0

for i = lenb(bin) to 1 step -1

lngvalue = lngvalue *256 + ascb(midb(bin,i,1))

next

binval2=lngvalue

end function

private function bin2val(bin)

dim lngvalue,i

lngvalue = 0

for i = 1 to lenb(bin)

lngvalue = lngvalue *256 + ascb(midb(bin,i,1))

next

bin2val=lngvalue

end function

end class

%

求VB打开带密码的Access数据库的原代码

Private Sub Command3_Click()

Dim password As String

Dim Nameofmdb As String

Nameofmdb = App.Path "test.mdb"

'Nameofmdb为MDB文件名

password = UnLockMdb1.GetPass(Nameofmdb)

txtPassword.Text = password

End Sub

Private Sub Command4_Click()

UnLockMdb1.About

End Sub

求助:JAVA连接ACCESS数据库原代码

首先,access和mssql是不一样的,连接access需要建数据源,因为access没有驱动程序,只能用jdk自带的驱动,也就是jdbc-odbc桥连接

而mssql官方提供驱程序,所以不需要数据源,只要把三个负责驱动的确*.jar包拷过来就OK,下面给你个连access的

import java.sql.*;

public class testaccess {

public static void main(String[] args) throws Exception

{

Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");

Connection conn = DriverManager.getConnection("jdbc:odbc:sss","","");

//ss是数据库名,后面分别是登录SQL的用户名和密码,没有就为空

Statement stat = conn.createStatement();

ResultSet rs = stat.executeQuery("SELECT id,username,password FROM user");

while(rs.next())

{

System.out.println(rs.getString("学号"));

System.out.println(rs.getString("姓名"));

System.out.println(rs.getString("年龄"));

System.out.println(rs.getString("***"));

}

}

}

连接mssql代码和这个一样,只要把class.form()里面的换成

"com.microsoft.jdbc.sqlserver.SQLServerDriver";

connection()里面的换成

jdbc:microsoft:sqlserver://localhost:1433;DatabaseName=数据库名

就OK

求在线批量修改数据库的ASP全代码

1、sql="update table set LIE1=值"

conn.execute sql

2、sql="update table set LIE1=最终改好的文字 where LIE1=准备改的文字"

conn.execute sql

3、sql="select * from table"

rs.open sql,conn,1,3

do while not rs.eof

rs("LIE1")=replace(rs("LIE1"),"准备改的文字","最终改好的文字")

rs.update

rs.movenext

loop

4、sql="select * from table"

rs.open sql,conn,1,3

do while not rs.eof

if rs("LIE1")=128 then

rs("LIE1")=replace(rs("LIE1"),"准备改的文字","最终改好的文字")

else

rs("LIE1")=replace(rs("LIE1"),"准备改的文字","最终改好的文字")

end if

rs.update

rs.movenext

loop

在线万能数据库原码的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于在线万能数据库原码查询、在线万能数据库原码的信息别忘了在本站进行查找喔。

在线万能数据库原码
扫码二维码