ASP原创交友网设计(五)

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

ASP原创交友网设计(五) 及的数据库表信息
此页面为用户管理相片页，涉及到对图片数据库表pic的操作
页面代码分析
<%Option Explicit%><%
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
%><%
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>

</SCRIPT>
用户添加相片页
Addpic.asp页面示例
此页为添加相片页面，相片添加成功后页面跳转到个人管理首页，因此没有页面示例
页面所涉及的数据库表pic的操作
页面代码分析

<%
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
%><%
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
%>

<%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

首页上一页 2 3 4 5 6 7 8 下一页尾页 5/11/11

ASP原创交友网设计(五)由毕业论文网（www.huoyuandh.com）会员上传。