upload.asp

又一套宾馆全站源码

<%@	language=vbscript %>
<%	Option Explicit
	dim formdata,bncrlf,divider,datastart,dataend,mydata,dish_id,img
	dish_id=request("dish_id")
	img=request("img")
	formdata=request.binaryread(request.totalbytes)
	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)
	session("imgdata")=mydata
	if dish_id <> "" then
	  response.redirect "modify_dish.asp?id="& dish_id &"&img="& img
	else
	  response.redirect "input_dish.asp"
	end if
%>