feedback.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<!--#include file="Channel_Config.asp"-->
<%
Dim ID,ErrType,User
ID = WRMPS.CheckStr(Request("ID"),1)
If ID = "" Then Call WRMPS.ErrView("·操作错误<meta http-equiv=refresh content='1;URL=../'>",0)

SitePath = ",<a href="&WR_Setting(3)&ChannelDir&"/>"&ChannelName&"</a>"
SitePath = WRMPS.GetSitePath(0,SitePath)
Call DBConnBegin()

Select Case Request("Action")
  Case "Save"
    If Not WRUser.ChkLogin Then User = Null Else User = MemName
    Email = WRMPS.CheckStr(Request("Email"),0)
	ErrType = WRMPS.CheckStr(Request("ErrType"),0)
	Content = WRMPS.CheckStr(Request("Content"),0)
	If ErrType = "其它错误" and (Content = "" Or IsNull(Content)) Then Call WRMPS.ErrView("·您选择的是其它错误，请填写补充说明",0)
	If Len(Content) > 100 Then Call WRMPS.ErrView("·补充说明具多只允许100字符",0)
    Conn.Execute("Insert into WM_CompanyFeedback(WM_Err,WM_Content,WM_Email,WM_Time,WM_ComID,WM_User,WM_Key)values('"&ErrType&"','"&Content&"','"&Email&"',"&ConnTime&","&ID&",'"&User&"',0)")
    Call WRMPS.ErrView("·提交成功，谢谢您的支持",1)
	
  Case Else
	Call WRMPS.FsoBegin()
	TempStr = WRTemp.SiteTemplates(1,0,62,ChannelID)
	TempStr = WRMPS.GetReplace(TempStr,"{$ID}",ID)
	TempStr = WRTemp.SiteChannel(TempStr)
	TempStr = WRTemp.SiteLabel(TempStr)
	Call WRMPS.FsoEnd()
End Select
Call ClassEnd()
Call DBConnEnd()
Response.write TempStr
%>