小弟请教高手们，帮小弟添加一段代码，看看这段调用代码代码，怎样才能整页跳转，谢谢啦 - ASP技术论坛

问题点数：0 回复次数：0

小弟请教高手们，帮小弟添加一段代码，看看这段调用代码代码，怎样才能整页跳转，谢谢啦

<%
Dim ForUser, FromUser, ForUserEmail, FromUserEmail, SmtpServer
Dim emailTit, emailTxt, FromUserID, FromUserIDPW
emailTit = Request.Form("emailTit") '从表单获取email的标题
emailTxt = Request.Form("emailTxt") '从表单获取邮件的内容
'==========================以下绿色代码是判断服务器是否支持JMAIL组件
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
if not IsObjInstalled("JMail.Message") then
Response.write"你所使用的服务器不支持邮件发送！"
Response.End
end if
'==========================================================
if Trim(Request.Form("action")) = "确认提交" then
SmtpServer = "smtp. //修改为你使用的邮箱的smtp,如qq邮箱的：smtp.
FromUserEmail = "0000@修改为你使用的发件人的邮箱地址
FromUser = Request.Form("FromUser")
ForUserEmail = "0000@这个是你收件人的邮箱地址，即我们要收订单的那个邮箱
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.MailServerUserName = "0000"//建议大家修改成自己的备用邮箱，对应上面的smtp的邮箱
' 身份验证的用户名
JMail.MailServerPassword = "0000"//这个是邮箱密码，这是我本人的，希望大家别盗用，因为如果人人都用这个话哪天我改了密码大家就收不到自己客户的订单信息了。
' 身份验证的密码
JMail.From = FromUserEmail '发件人的信箱
JMail.FromName = FromUser '发件人的名字
JMail.Subject = emailTit '邮件的主题
JMail.Body = emailTxt '邮件的内容
'==============================收件人的地址！
JMail.AddRecipient(ForUserEmail) '收件人的地址
JMail.Priority=5 '邮件级别1-5数字越大级别越高---3为普通邮件
JMail.Send(SmtpServer) '红色变量是邮件服务器地址
JMail.Close
Set JMail=nothing
if err then
err.clear
Response.Write "<center><b> 发信功能已经打开，但因服务器不支持发信或者信箱地址错误，导致信件无法发出！</b></center>"
Response.End
else
response.Write "<script>alert(""订单提交成功，点确定查看您的订单信息，谢谢合作!"");location.href='http://www.baidu.com';</script>"
Response.End
end if
end if %>
<style type="text/css">

</style>
<body>
<form action="" method="post" name="input" target="_self">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1">
<tr >
  <td width="12%" align="right" height="28"><span class="style3">商品标题：</span></td>
  <td width="88%" height="28" align="left"> <input name="EmailTit" type="text" class="area" value="一疗程鼻炎药" size="20" maxlength="50">
    *</td>
</tr>
<tr >
  <td width="12%" align="right" height="28"><span class="style3">您的姓名：</span></td>
  <td width="88%" height="28" align="left"> <input name="FromUser" type="text" size="20" class="area">
    *</td>
</tr>
<tr >
<td width="12%" align="right" height="28" valign="middle"><span class="style3">您的手机：</span></td>
<td width="88%" height="28" align="left"> <input name="EmailTxt" type="text" size="20" id="EmailTxt1" class="area">
</input>*</td>
</tr>

<tr >
<td width="12%" align="right" height="28" valign="middle"><span class="style3">收货地址：</span></td>
<td width="88%" height="28" align="left"> <input name="EmailTxt" type="text" size="40" id="EmailTxt3" class="area">
  *</td>

</tr>
<tr>
<td width="12%" align="right" height="20" valign="middle"></td>
<td height="33" colspan="2" align="left"> <input type="submit" name="action" value="确认提交" class="btn"></td>
</tr>
</table>
</form>
-------------------------------
昨天有位大侠已经帮我我添加了一段跳转代码是这段response.Write "<script>alert(""订单提交成功，点确定查看您的订单信息，谢谢合作!"");location.href='xxx.asp';</script>"

我使用下面的调用代码调用到别的产品页面的，下面是调用代码<iframe id="cnwzqhFrame" border="0" vspace="0" hspace="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" scrolling="no" width="100%" height="300" src="mail.asp"></iframe>
点击确定提交订单后后会跳转，但是只有一个小窗口跳转，不是整个产品页面都跳转，要想让整个产品页面点击提交订单确定后都跳转到别的页面应该怎么办呢

搜索更多相关主题的帖子: 服务器　 email　False　