废话不多说了，直接上代码算了。
页面代码如下：
href="xxeddc/default.css">
#logo {
width:100px;
height:auto;
float:left;
margin:30px 0px 0px 9px;
}
#site {
BACKGROUND-IMAGE: url(xxeddc/top_bg.jpg);
MARGIN: 7px auto 0px;
WIDTH: 960px;
HEIGHT: 160px
}
#site .title {
FILTER: progid:DXImageTransform.Microsoft.AlphaImageLoader(enabled=true, sizingMethod=scale, class="lazyload" src="https://www.mshxw.com/file/upload/202104/26/215052530.png" data-original="xxeddc/filter.png");
MARGIN: 30px 9px 0px 0px;
WIDTH: 716px;
BACKGROUND: none transparent scroll repeat 0% 0%;
FLOAT: right;
HEIGHT: 90px
}
.STYLE1 {font-size: 14px}
#submitbutton{
background:url(xxeddc/btn_bg.gif) no-repeat;
width:85px;
height:36px;
border:0px;
cursor:pointer;
color:#FFFFFF;
font-size:14px;
}
.successmsg{
PADDING-BOTTOM: 0px; LINE-HEIGHT: 32px; MARGIN: 0px; PADDING-LEFT: 0px; WIDTH: 936px; PADDING-RIGHT: 0px; FONT-FAMILY: "verdana"; BACKGROUND: #f1f6f8; HEIGHT: 32px; COLOR: #0067af; FONT-SIZE: 18px; BORDER: #c2e3f1 1px solid; FONT-WEIGHT: bold; PADDING-TOP: 0px
}
****问卷调查
class=sitehtmlurl>http://www.****.com
欢迎您访问****！我们的网站还在建设中。我们正在开展关于ipad的学习坊，如果您有兴趣，欢迎填写一份简单的问卷：
#overlay {
BACKGROUND-IMAGE: url(xxeddc/overlay.png)
}
* HTML #overlay {
BACKGROUND-IMAGE: url(xxeddc/blank.gif); FILTER: progid:DXImageTransform.Microsoft.AlphaImageLoader(class="lazyload" src="https://www.mshxw.com/file/upload/202104/26/215052530.png" data-original="xxeddc/overlay.png", sizingMethod="scale"); BACKGROUND-COLOR: transparent
}
程序部分如下：
<%@LANGUAGE="VBscript" CODEPAGE="936"%>
#overlay {
BACKGROUND-IMAGE: url(xxeddc/overlay.png)
}
* HTML #overlay {
BACKGROUND-IMAGE: url(xxeddc/blank.gif);
FILTER: progid:DXImageTransform.Microsoft.AlphaImageLoader(class="lazyload" src="https://www.mshxw.com/file/upload/202104/26/215052530.png" data-original="xxeddc/overlay.png", sizingMethod="scale");
BACKGROUND-COLOR: transparent
}
#logo {
width:100px;
height:auto;
float:left;
margin:30px 0px 0px 9px;
}
#site {
BACKGROUND-IMAGE: url(xxeddc/top_bg.jpg);
MARGIN: 7px auto 0px;
WIDTH: 960px;
HEIGHT: 160px
}
#site .title {
FILTER: progid:DXImageTransform.Microsoft.AlphaImageLoader(enabled=true, sizingMethod=scale, class="lazyload" src="https://www.mshxw.com/file/upload/202104/26/215052530.png" data-original="xxeddc/filter.png");
MARGIN: 30px 9px 0px 0px;
WIDTH: 716px;
BACKGROUND: none transparent scroll repeat 0% 0%;
FLOAT: right;
HEIGHT: 90px
}
.STYLE1 {
font-size: 14px
}
.successmsg {
PADDING-BOTTOM: 0px;
LINE-HEIGHT: 32px;
MARGIN: 0px;
PADDING-LEFT: 0px;
WIDTH: 936px;
PADDING-RIGHT: 0px;
FONT-FAMILY: "verdana";
BACKGROUND: #f1f6f8;
HEIGHT: 32px;
COLOR: #0067af;
FONT-SIZE: 18px;
BORDER: #c2e3f1 1px solid;
FONT-WEIGHT: bold;
PADDING-TOP: 0px
}
href="http://www.****.com">****问卷调查
class=sitehtmlurl>http://www.****.com
欢迎您访问****！我们的网站还在建设中。我们正在开展关于ipad的学习坊，如果您有兴趣，欢迎填写一份简单的问卷：
<%
If (CStr(Request("MM_insert")) = "form1") Then
info_shijinianling=Trim(Request.Form("RadioGroup1"))
info_xinlinianling=Trim(Request.Form("xinlinianling"))
info_ipad=Trim(Request.Form("RadioGroup2"))
info_shifoucanjia=Trim(Request.Form("RadioGroup3"))
info_xingming=Trim(Request.Form("xingming"))
info_dianhua=Trim(Request.Form("dianhua"))
info_email=Trim(Request.Form("email"))
info="实际年龄：" & info_shijinianling & VBCrLf & "心理年龄：" & info_xinlinianling & VBCrLf & "是否有ipad：" & info_ipad & VBCrLf & "是否愿意参加：" & info_shifoucanjia & VBCrLf & "姓名：" & info_xingming & VBCrLf & "电话：" & info_dianhua & VBCrLf & "邮件：" & info_email
%>
<%
Const cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort=2
Const cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic=1
Const cdoSendUserName="http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword="http://schemas.microsoft.com/cdo/configuration/sendpassword"
Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.****.com.cn" '改成可用的外部邮件服务器域名
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "sender@****.com.cn" '以上服务器的用户名
.Item(cdoSendPassword) = "***@***" '密码
.Update
End With
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
.To = "info@****.com.cn" '改成接收者的邮件地址
'.To = "bill@****.com.cn" '改成接收者的邮件地址
.From = "sender@****.com.cn" '改成发送人的邮件地址
.Subject = "****问卷调查信息" '标题
.TextBody = info '正文
'.AddAttachment "C:scriptsOutput.txt"'邮件附件
'.Send
End With
on error resume next
objMessage.send
if err.number<>0 then
response.write("出错啦！："&err.description)
response.End()
end if
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
%>
提交成功！谢谢您的参与！ 5秒后自动跳转到****主页
<%
'else
%>
<%
end if
%>
