user_photo_add.asp

宁波娱乐在线城市,丰富的内容版块

<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="inc/conn1.asp"-->


<%
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
		Response.Write("对不起，您不是社区用户，请先注册！")
        Response.End
end if


UserName = Request.Cookies("NC")

if request.TotalBytes > 51200 then
%>
<script language=vbscript>
  MsgBox "抱歉，文件大小超过50k！"
  history.back
</script>
<%else

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 HY Where NC='"& UserName &"'",conn,3,3
rs("Photo")=""
rs("Photo").appendchunk mydata
rs("HavePhoto")=true
rs.update

rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "user_photo.asp"
end if
%>