?? savesurvey.asp
字號:
<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.Buffer = True
%>
<!--#include file="../conn.asp"-->
<%
Dim ErrorMessage
ErrorMessage=""
Call main
If ErrorMessage="" Then
Response.Write WriteSuccessMsg("提交成功，非常感謝您的參與！", "")
Else
Response.Write WriteErrMsg(ErrorMessage, "SaveSurvey.asp")
End If
Call CloseConn
Sub main()
On Error Resume Next
Dim PE_Survey
Set PE_Survey = Server.CreateObject("PE_Survey6.Survey")
If Err Then
Err.Clear
Response.Write "對不起，你的服務器沒有安裝動易組件（PE_Survey6.dll），所以不能使用動易系統。請和你的空間商聯系以安裝動易組件。"
Response.End
Exit Sub
End If
PE_Survey.iConnStr = ConnStr
PE_Survey.iSystemDatabaseType = SystemDatabaseType
Call PE_Survey.Execute
ErrorMessage = PE_Survey.ErrorMessage
Set PE_Survey = Nothing
If Err Then
Response.Write "錯 誤 號：" & Err.Number & "<BR>"
Response.Write "錯誤描述：" & Err.Description & "<BR>"
Response.Write "錯誤來源：" & Err.Source & "<BR>"
Err.Clear
Response.End
End If
End Sub
Function WriteErrMsg(sErrMsg, sComeUrl)
Dim strMsg
strMsg = strMsg & "<html><head><title>錯誤信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
strMsg = strMsg & "<link href='../images/Style.css' rel='stylesheet' type='text/css'></head><body><br><br>" & vbCrLf
strMsg = strMsg & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbCrLf
strMsg = strMsg & " <tr align='center' class='title'><td height='22'><strong>錯誤信息</strong></td></tr>" & vbCrLf
strMsg = strMsg & " <tr class='tdbg'><td height='100' valign='top'><b>產生錯誤的可能原因：</b>" & sErrMsg & "</td></tr>" & vbCrLf
strMsg = strMsg & " <tr align='center' class='tdbg'><td>"
If sComeUrl <> "" Then
strMsg = strMsg & "<a href='javascript:history.go(-1)'><< 返回上一頁</a>"
Else
strMsg = strMsg & "<a href='javascript:window.close();'>【關閉】</a>"
End If
strMsg = strMsg & "</td></tr>" & vbCrLf
strMsg = strMsg & "</table>" & vbCrLf
strMsg = strMsg & "</body></html>" & vbCrLf
WriteErrMsg = strMsg
End Function
Function WriteSuccessMsg(sSuccessMsg, sComeUrl)
Dim strMsg
strMsg = strMsg & "<html><head><title>成功信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
strMsg = strMsg & "<link href='../images/Style.css' rel='stylesheet' type='text/css'></head><body><br><br>" & vbCrLf
strMsg = strMsg & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbCrLf
strMsg = strMsg & " <tr align='center' class='title'><td height='22'><strong>恭喜你！</strong></td></tr>" & vbCrLf
strMsg = strMsg & " <tr class='tdbg'><td height='100' valign='top'><br>" & sSuccessMsg & "</td></tr>" & vbCrLf
strMsg = strMsg & " <tr align='center' class='tdbg'><td>"
If sComeUrl <> "" Then
strMsg = strMsg & "<a href='" & sComeUrl & "'><< 返回上一頁</a>"
Else
strMsg = strMsg & "<a href='javascript:window.close();'>【關閉】</a>"
End If
strMsg = strMsg & "</td></tr>" & vbCrLf
strMsg = strMsg & "</table>" & vbCrLf
strMsg = strMsg & "</body></html>" & vbCrLf
WriteSuccessMsg = strMsg
End Function
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -