作者 主題: 小弟不才求教asp移值到windows server2008卻一直出現無法500 - 內部伺服器錯誤。  (閱讀 5346 次)

0 會員 與 1 訪客 正在閱讀本文。

moveboy

  • 活潑的大學生
  • ***
  • 文章數: 227
    • 檢視個人資料
小弟的程式語言如下可否請各位先進指點小弟那裡有問題呢??
<% @ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<!--#include file="mail.inc"-->

<%
dim T0,T1,T2,T3,T4,T5,T6,str,sendmail,objEmail
T0=Cstr(REQUEST.FORM("company"))
T1=Cstr(REQUEST.FORM("name"))
T2=Cstr(REQUEST.FORM("mail"))
T3=Cstr(REQUEST.FORM("telphone"))
T4=Cstr(REQUEST.FORM("sub"))
T5=Cstr(REQUEST.FORM("txt"))


str=str&"E-mail:"&T2&VbCrlf
str=str&"電話:"&T3&VbCrlf
str=str&"戶別:"&T4&VbCrlf
str=str&"留言內容:"&T5

Set objEmail = CreateObject("CDO.Message")

sendmail.from=T2
sendmail.to="regrcna@pchome.com.tw"

sendmail.subject=T4
sendmail.body=str
sendmail.send
set sendmail=nothing
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<meta http-equiv="Content-Language" content="zh-tw">
<meta HTTP-EQUIV="REFRESH" CONTENT="10; URL=www.ys-construction.com.tw">
<title>聯絡我們</title>
</head>
<body>
</head>
<div align=CENTER>
<p>
<p>

 <p><p> 
  <p> <br>
    親愛的客戶<font color="#0000FF"><%=T1%>您好:</font><br>
    謝謝您提供的寶貴意見及留言!
  <p>&nbsp;
<a href="javascript:history.back(1)">回上頁</a> 
</div>
</body>

see7di

  • 懷疑的國中生
  • **
  • 文章數: 51
  • 性別: 男
    • 檢視個人資料
    • http://7di.net
是不是服务器在建立对象CreateObject("CDO.Message")的时候出错了?你把详细的错误代码贴出来才能知道问题的根源
如果需要帮忙,可以给我发email,see7di@gmail.com

moveboy

  • 活潑的大學生
  • ***
  • 文章數: 227
    • 檢視個人資料
小弟已解決了感謝大大的指點

jackynice

  • 可愛的小學生
  • *
  • 文章數: 1
    • 檢視個人資料
我也碰到同樣的問題 Email CreateObject("CDO.Message") ,
可以教教我解決的方法? 感激不盡!