2006-8-23 16:43
奇蜜露琪
表单提交后的问题
以下是一段发布信息提交后应该转到的页面的程序。由于现在这个功能不可用（信息填写提交后又回到空白的填写信息表单）。我现在想知道错误出在哪里，可是我又不是很懂，所以希望知道的你耐心看完它帮我想一下。这个页面是一个空白的页面，为什么里面连<head><html>之类基本的东西都没有啊。
<%@ Language=VBScript %>
<%
'*************************************************************************
' 程序名： 电工
' 说 明：
' 编 制：
' 修 改：
'*************************************************************************
'Option Explicit
response.end
Response.Expires=0
On Error Resume Next
%>
<!--#include file="general.asp" -->
<%
function formatSql(str)
formatSql=replace(str,"'","''")
end function
set conn = server.createobject("adodb.connection")
conn.open Application("strcon")
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = replace(server.MapPath("."),"member","supportPic")
strShortFileName = mid(upl.Form("FILE1").UserFileName,InStrRev(upl.Form("FILE1").UserFileName, "\")+1) '取得文件名
strExtension = Mid(strShortFileName, InStrRev(strShortFileName, "."))
sql="insert into T_Support(F_Title,F_Type,F_PDate,F_User_ID,F_Company,F_Address,F_Pic,F_Remark,F_EDate) VALUES('" & formatSql(upl.Form("txtTitle")) & "','" & formatSql(upl.Form("type1")) & "',GETDATE()," & formatSql(session("userid")) & ",'" & formatSql(session("username")) & "','" & formatSql(session("address")) & "','" & strExtension & "','" & formatSql(upl.Form("txtDesc")) & "','" & formatSql(upl.Form("txtDate")) & "')"
set rs=conn.Execute(sql)
if not upl.IsEmpty Then
upl.SaveAs rs("id") & strExtension
end if
rs.close
set rs=nothing
conn.Close
set conn=nothing
function getFileName(str)
list=split(str,"\")
getFileName=list(ubound(list))
end function
Response.Redirect("gq_add.asp")
%>
以下是一段发布信息提交后应该转到的页面的程序。由于现在这个功能不可用（信息填写提交后又回到空白的填写信息表单）。我现在想知道错误出在哪里，可是我又不是很懂，所以希望知道的你耐心看完它帮我想一下。这个页面是一个空白的页面，为什么里面连<head><html>之类基本的东西都没有啊。
<%@ Language=VBScript %>
<%
'*************************************************************************
' 程序名： 电工
' 说 明：
' 编 制：
' 修 改：
'*************************************************************************
'Option Explicit
response.end
Response.Expires=0
On Error Resume Next
%>
<!--#include file="general.asp" -->
<%
function formatSql(str)
formatSql=replace(str,"'","''")
end function
set conn = server.createobject("adodb.connection")
conn.open Application("strcon")
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = replace(server.MapPath("."),"member","supportPic")
strShortFileName = mid(upl.Form("FILE1").UserFileName,InStrRev(upl.Form("FILE1").UserFileName, "\")+1) '取得文件名
strExtension = Mid(strShortFileName, InStrRev(strShortFileName, "."))
sql="insert into T_Support(F_Title,F_Type,F_PDate,F_User_ID,F_Company,F_Address,F_Pic,F_Remark,F_EDate) VALUES('" & formatSql(upl.Form("txtTitle")) & "','" & formatSql(upl.Form("type1")) & "',GETDATE()," & formatSql(session("userid")) & ",'" & formatSql(session("username")) & "','" & formatSql(session("address")) & "','" & strExtension & "','" & formatSql(upl.Form("txtDesc")) & "','" & formatSql(upl.Form("txtDate")) & "')"
set rs=conn.Execute(sql)
if not upl.IsEmpty Then
upl.SaveAs rs("id") & strExtension
end if
rs.close
set rs=nothing
conn.Close
set conn=nothing
function getFileName(str)
list=split(str,"\")
getFileName=list(ubound(list))
end function
Response.Redirect("gq_add.asp")
%>
2006-8-24 21:42
bluefirejj
*** 作者被禁止或删除 内容自动屏蔽 ***
2006-8-24 21:48
bluefirejj
*** 作者被禁止或删除 内容自动屏蔽 ***
2006-8-24 21:52
奇蜜露琪
这个数据库是用SQL做的，那我要检查它的错误需要去SQL里面吗？
你是指用户操作时的错误提示吗？没有什么提示，就是提交后又跳到空白的信息单。
你是指用户操作时的错误提示吗？没有什么提示，就是提交后又跳到空白的信息单。
页: [1]
查看完整版本: 表单提交后的问题
Powered by Discuz! Archiver 5.5.0 © 2001-2006 Comsenz Inc.