addpro.asp

by php excellent hotel management system

<%
'###########################################################################################
'			   Copyright (C) 2006 FreeLin rights reserved.                                 '
'			      本系统由FREELIN工作室独立开发2006.3.20                                      '
'				     版权所有,并保留所有版权,不得修改传播                                       '
'					    http://www.yisky.com                                          '
'						     [e-mail]                                                '
'###########################################################################################
%>
<!--#include file="config.asp"-->
<!--#include file="freelin.asp"-->
<%
dim formsize,formdata,Msg
formsize = Request.TotalBytes
formdata = Request.BinaryRead(formsize)

dim sinfo_Stream
Set Sinfo_Stream = Server.CreateObject("adodb.stream")
Sinfo_Stream.Type = 1		'2进制流
Sinfo_Stream.Mode = 3		'读写模式
Sinfo_Stream.Open
Sinfo_Stream.Write formdata		'保存二进制内容到流对象
'''分离数据变量
dim VbEnter
dim spStr,lenOfspStr,bpos
dim loopcnt,exitflag,ppoint,npoint

'''保存数据变量		
dim FldData,fldHeadStr,infldpos
dim databpos,datalen
dim FldInfo(15,1)
'''fldInfo(0)表单头内容
'''fldInfo(1)表单数据

VbEnter = chrb(13)&chrb(10) '读取第一个VbEnter位置
bpos = Instrb(formdata,VbEnter)
SpStr = midb(formdata,1,bpos+1) '''包含了一个0d0a
LenOfspStr = lenb(Spstr) 
ppoint = LenOfspStr+1 ''位置指针,指向每一个表单域内容的开始位置
formdata = midb(formdata,ppoint)
loopcnt = 0   '''表单元素
do 
	bpos = instrb(formdata,spStr) '''分割位置
	npoint = (ppoint+bpos+lenofspstr-1)  '''指向下一表单开始位置
	if bpos < 1 then
		fldData = midb(formdata,1,instrb(formdata,leftb(spStr,lenOfspstr-2))-1)
		bpos = lenb(fldData)+1
		exitflag = true
	else
		FldData = leftb(formdata,bpos-1)		
		formdata = midb(formdata,bpos+LenOfspstr)
	end if
	infldpos = instrb(fldData,vbEnter&vbEnter)
	fldHeadStr = bytes2bstr(midb(fldData,1,infldpos-1))
	fldInfo(loopcnt,0) = fldHeadStr	                          ''表单头
	databpos = (ppoint+infldpos-1+4)
	Sinfo_Stream.Position = databpos-1
	datalen = (bpos-infldpos-6)
	if datalen = 0 then
		fldInfo(loopcnt,1) = ""
	else
		fldInfo(loopcnt,1) = Sinfo_Stream.Read(datalen)
	end if
	ppoint = npoint
	loopcnt = loopcnt + 1
loop until exitflag = true
Sinfo_Stream.close
Set Sinfo_Stream = Nothing

filedata = myrequest("filedata")
proName = myrequest("proName")
proType = myrequest("proType")
proClass = myrequest("proClass")
proInfo = server.htmlencode(myrequest("proInfo"))
filename = GetFileName("filedata")
if proName="" or proType="" or proInfo="" or filename="" then xln_showmsg "操作失败","所有项目都不能为空！","product.asp","自动返回"
if IsvalidFile(filename)=False Then xln_showmsg "添加图片出错","你只能上传是jpg，gif，png，bmp格式的图片","product.asp","自动返回"
SavetoFile filedata,"../images/",IDname(now()) & filename

sql = "select * from pro"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("proName") = proName
rs("proType") = proType
rs("proPic") = IDname(now()) & filename
rs("proClass") = proClass
rs("proInfo") = proInfo
rs("proNo") = "ID" & IDname(now())
rs.update
conn.close

xln_showmsg "操作成功","添加客房成功！","listpro.asp","进入查看"
%>