此页面为用户管理相片页，涉及到对图片数据库表pic的操作
页面代码分析
<%Option Explicit%><!--#include file="conn.asp"--><%
dim rs_lar,rs
dim sql
dim i
叛断此用户是否已经注册
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where user_id="& session("user_id")
rs_lar.open sql,conn,3,2
if rs_lar.eof and rs_lar.bof then
if session("user_id")=1 then response.redirect "notreg.htm"
response.redirect "notregist.htm"
response.end
end if
%><!--#include file="connpic.asp"--><%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from pic where user_id=" & session("user_id")
rs.open sql,conn,3,2
%>
<Script language="java script">
function mysubmit(theform)
{
if(theform.big.value=="")
{
alert("请点击浏览按钮，选择您要上传的jpg或gif文件!")
theform.big.focus;
return (false);
}
else
{
str= theform.big.value;
strs=str.toLowerCase();
lens=strs.length;
extname=strs.substring(lens-4,lens);
if(extname!=".jpg" && extname!=".gif")
{
alert("请选择jpg或gif文件!");
return (false);
}
}
return (true);
}
</script>
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
if (theURL != "fuckyou")
{ window.open(theURL,winName,features);}
}
//-->
</SCRIPT>
用户添加相片页
Addpic.asp页面示例
此页为添加相片页面，相片添加成功后页面跳转到个人管理首页，因此没有页面示例
页面所涉及的数据库表pic的操作
页面代码分析
<!--#include file="conn.asp"-->
<%
dim rs
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from larchives where user_id=" & session("user_id"),conn,3,2
rs("photo")=rs("photo")+1
rs.update
%><!--#include file="connpic.asp"--><%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "pic",conn,3,2
rs.addnew
rs("big").appendchunk mydata
rs("user_id")=session("user_id")
rs("date")=date
rs.update
set rs=nothing
set conn=nothing
response.redirect "sendphoto.asp"
%>
用户删除相片页
Delpic.asp页面示例
此页为用户删除相片列表页面，删除成功后页面跳到个人相片管理首页，因此没有页面示例
页面中需要用户填写的html
没有
页面涉及数据库
Pic数据库
页面代码
<%
if request("id") = "" then
response.redirect"default.asp"
response.end
end if
%>
<!--#include file="connpic.asp"-->
<%Set rs_id = Server.CreateObject("ADODB.Recordset")
sql = "select User_id,id from pic where id=" & request("id")
rs_id.open sql,conn,3,2
if session("admin_pass") <> "ok" then
if