inquiry_write.asp

泡泡堂服务端内有建站说明,喜欢玩泡泡堂的朋友下载开发.

<!-- #include virtual="/common/BombConnDB.asp" -->
<!-- #include virtual="/common/SiteUtils.asp" -->
<%
login_check = Request.Cookies("LOGIN")("check")
bomb_id		= Request.Cookies("LOGIN")("bomb_id")
bomb_name	= Request.Cookies("LOGIN")("bomb_name")

if (login_check = "" OR bomb_name= "") then%>
	<script language="javascript">
	<!--
		alert("肺弊牢 窍矫扁 官而聪促.");
		history.back();
	//-->
	</script>
<%
else
%>
	<%
	strFolder = "D:\www\newBombgame\common\inquiryfile\" & month(date()) & "\" '颇老捞 历厘瞪 版肺
	'FileDir = "/common/inquiryfile/"   

	hasfile = 0

	Set objUpload = Server.CreateObject("ABCUpload4.XForm")
	objUpload.MaxUploadSize = 1024 * 1024 * 200
	objUpload.ID = Request.QueryString("ID")

	Set theField = objUpload("file")(1)
	intUpFileSize = theField.Length
	objUpload.AbsolutePath = True

	Category = objUpload("category")
	userID = bomb_id
	Name = bomb_name
	Email = objUpload("email")
	TItle = objUpload("title")
	Ment = objUpload("text")
	qdate = now

	IP = request.ServerVariables("REMOTE_ADDR")

	If theField.FileExists Then   '颇老阑 诀肺靛 沁促搁

		hasfile = 1
		MaxFileSize = 2

		Set objFSO = CreateObject("Scripting.FileSystemObject")      '颇老矫胶袍 俺眉 积己

		If intUpFileSize > (1024 * 1024 * MaxFileSize) Then    '颇老农扁啊 MaxFileSize MB甫 逞阑 版快 诀肺靛甫 给窍霸 茄促
			PageGo "/common/inquiry.asp", "颇老狼 侩樊篮 "& MaxFileSize &"MB甫 檬苞且 荐 绝嚼聪促!!"
			Response.End
		End if

		strFilePath = theField.RawFilePath                      '颇老狼 努扼捞攫飘 版肺
		
		strFileName = Mid(strFilePath, InstrRev(strFilePath,"\")+1)   '版肺疙阑 力寇茄 颇老疙阑 绵免
		strName = Mid(strFileName, 1, instrRev(strFileName,".")-1)    '颇老疙俊辑 捞抚阑
		strExt = Mid(strFilePath,instrrev(strFilePath,".")+1)         '颇老疙俊辑 犬厘磊甫 盒府

		'悼老茄 颇老疙捞 粮犁窍绰瘤 八荤秦辑 颇老疙阑 官操绰 风凭
		blnExist = True               '悼老茄 颇老捞 粮犁茄促绊 啊沥
		intCount = 0
		strStoreFileName = strFolder & strFileName

		Do While blnExist  '颇老捞 吝汗瞪 版快 捞抚阑 促矫 瘤沥 -颇老捞抚 第俊 箭磊甫 嘿咯辑 诀
			If(objFSO.FileExists(strStoreFileName)) then      '颇老疙捞 粮犁茄促搁
				intCount = intCount + 1                       '墨款磐甫 1 刘啊
				strFileName = strName & "-" & intCount & "." & strExt
				strStoreFileName = strFolder & strFileName
			Else
				blnExist = False
			End If
		Loop

		If theField.FileExists Then
			theField.Save strStoreFileName
		End If

		Set objFSO = Nothing

	Else

	End If

	Set objUpload = Nothing	

	sql = "INSERT INTO mailtoadmin ( "
	sql = sql & "category, userid, username, email, title, cnts, attfile, qdate "
	sql = sql & ") VALUES ("
	sql = sql & "" & Category & ", "
	sql = sql & "'" & userID & "', "
	sql = sql & "'" & Name & "', "
	sql = sql & "'" & Email & "', "
	sql = sql & "'" & Title & "', "
	sql = sql & "'" & Ment & "', "
	sql = sql & "'" & strFileName & "', "
	sql = sql & "'" & now & "' "
	sql = sql & " )"
	DBCon.Execute (sql)

	PageGo "/main.asp", "巩狼荤亲捞 立荐登菌嚼聪促. \n\n狐弗 矫老郴俊 翠函靛副 荐 乐档废 畴仿窍摆嚼聪促."
	Response.End	

	Set SQL = Nothing
	Set DB = Nothing	

	%>
<%
end if 
%>