最初学ASP的时候总是找别人的代码复制过来改改就用了,不知这些东西对你们有没有用。
====================图片入库==========================
<%
'取得客户端送出的数据字节大小
frmsize=Request.TotalBytes
'以二进制方式读取数据
frmData=Request.BinaryRead(frmsize)
'去掉实际数据前、后的边界字符串行
bnCrLf=ChrB(13)&;ChrB(10)
divider=leftB(frmdata,CLng(InstrB(frmdata,bnCrLf))-1)
dataStart=InstrB(frmData,bnCrLf&;bncrlf)+4
dataEnd=InstrB(datastart+1,frmData,divider)-dataStart
'读出图象数据
myData=Midb(frmdata,dataStart,dataEnd)
'将图象数据存入数据库
strSQL= "SELECT * FROM tblImages "
set rs=Server.CreateObject( "ADODB.Recordset ")
rs.open strSQL,conn,1,3
rs.addnew
rs( "picData ").AppendChunk myData
rs.Update
counts=rs.recordCount+1
rs.close
conn.close
%>
====================图片入库==========================
====================读取图片==========================
<%
sID=Request.QueryString( "id ")
strSQL= "SELECT picData FROM tblImages WHERE id= " &; sID
Set rs=Server.CreateObject( "ADODB.Recordset ")
rs.Open strSQL,conn,1,1
Response.ContentType= "image/* "
dataSize=rs(0).actualSize
Response.BinaryWrite rs(0).getChunk(dataSize)
rs.Close
conn.Close
%>
====================读取图片==========================
====================Access数据库连接===================
<%@LANGUAGE= "VBSCRIPT "%>
<%
option explicit
dim startime
dim conn
dim connstr
dim db
startime=timer()
'更改数据库名字
db= "db/db.asa "
Set conn = Server.CreateObject( "ADODB.Connection ")
connstr= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &; Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动,请用下面连接方法
' connstr= "driver={Microsoft Access Driver (*.mdb)};dbq= " &; Server.MapPath(db)
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>
====================Access数据库连接=====================
====================身份验证=====================
<%
if request( " ") <> " " and request( "密码 ") <> " " then
Set rs= Server.CreateObject( "ADODB.Recordset ")
sql= "select * from 会员 where = ' "&;request( " ")&; " ' "
rs.open sql,conn,1,2
if rs.recordcount <> 0 then
if rs( "密码 ") = request( "密码 ") then
session( "name ") = rs( " ")
response.redirect "
登陆成功.asp "
else
response.redirect "错误.asp "
end if
else
response.redirect "错误.asp "
end if
end if
%>
=================
===身份验证=====================
====================密码修改(更新数据)=====================
<%
if request( "密码 ") <> " " and request( "新密码 ") <> " " then
Set rs= Server.CreateObject( "ADODB.Recordset ")
sql= "select * from
会员 where = ' "&;session( "name ")&; " ' "
rs.open sql,conn,1,2
if rs.recordcount <> 0 then
if rs( "密码 ") = request( "mm ") then
if request( "新密码 ") = request( "确认密码 ") <> " " then
rs( "密码 ") = request( "新密码 ")
rs.update
response.redirect "修改密码成功.asp "
else
response.redirect "错误.asp "
end if
else
response.redirect "错误.asp "
end if
else
response.redirect "错误.asp "
end if
end if
%>
====================密码修改(更新数据)=====================
=======================jmail发信示例==========================
<%@ Language=
VBScript %>
<%
’============
’ 参 数 设 置
’==================
’