storemsg.asp

Sql数据库的应用

<!--#Include File="ErrorClass.asp"-->
<!--#Include File="Class.asp"-->
<%
'此段声明表示遇到错误即跳到下一句
On Error Resume Next
Dim mc_Class,error_Class,gname,gemail,goicq,gtell,gip,gindate,gtype,gpid,gmessage	
Set mc_Class = New MessageClass		
Set error_Class = New ErrorClass	

If getForm() = 1 Then		
  	Call mc_Class.addMessage(gname,gemail,goicq,gtell,gip,gindate,Cint(gtype),Cint(gpid),gmessage)
  	If ERR.number <> 0 Then
  		error_Class.Founderr = True
  		error_Class.Message = error_Class.Message & "录入数据时失败<br>"
  		Call error_Class.showMessage("Message.asp","失败")
  	Else
  		error_Class.Message = error_Class.Message & "留言成功<br>"  		
  		Call error_Class.showMessage("Message.asp","成功")  		
  	End If  	
Else	
	Call error_Class.showMessage("Message.asp","输入有误")
End If

'功能：取得用户输入的信息
Function getForm()	
	gname	=	trim(Request.Form("name"))	
	gemail	=	trim(Request.Form("email"))
	goicq	=	trim(Request.Form("oicq"))
	gtell	=	trim(Request.Form("tell"))
	gip		=	Request.ServerVariables("remote_addr")
	gindate =	CStr(Date())
	gtype	=	trim(Request.QueryString("type"))
	gpid	=	trim(Request.QueryString("pid"))
	gmessage=	trim(Request.Form("message"))
	
	'用于判断是留言还是回复，1表示留言，2表示回复，除此之外都是非法的访问
	If gtype = "" Or Cint(gtype)<>1 And Cint(gtype)<>0 Then	
		error_Class.Founderr = True	
		error_Class.Message = error_Class.Message & "非法访问！<br>"
	ElseIf 	Cint(gtype)=1 Then
		gpid = 0
	End If
	
	If gname = "" Then	
		error_Class.Founderr = True	
		error_Class.Message = error_Class.Message & "用户姓名不能为空！<br>"		
	End If	
	
	If gmessage = "" Then	
		error_Class.Founderr = True	
		error_Class.Message = error_Class.Message & "留言信息不能为空！<br>"		
	End If
	
	If error_Class.Founderr = True	Then
		getForm = 0
	Else
		getForm = 1
	End If
End Function		
%>