28,406
社区成员
发帖
与我相关
我的任务
分享asp中的事件处理问题-和text的value的获取
<SCRIPT LANGUAGE="VBScript">
<!--
Sub btnEnter_OnClick
Msgbox "Please enter a numerical age1."
Dim strSQL,conn,rst
Msgbox "OK.1"
Dim MailFrom,MailTo,Subject,MailBody
Msgbox "OK.2"
Dim TheForm
Set TheForm = Document.MyForm
Msgbox "OK.3"//到这里还可以显示！！！！！！！！！！！！！！！！！
' Set MailFrom=Session("username")
Set MailTo=TheForm.inputMailTo.Value
Msgbox "OK.4"//这里就出错了？？？？？？？？？？？？？？？？？？？？？
Set Subject=TheForm.inputMailSubject.Value
Msgbox "OK.5"
Set MailBody=TheForm.textBoxMailBody.Value
Msgbox "OK."
Set strSQL = "Insert into Mails (MailFrom,MailTo,Subject,MailBody) Values('"&MailFrom&"','"&MailTo&"','"&Subject&"','"&MailBody&"')"
Set conn = server.createobject("ADODB.connection")
Set rst = server.createobject("ADODB.Recordset")
conn.open = "Provider=sqloledb;data source=localhost;initial catalog=WCWebMail;User Id=mailuser;Password=123"
rst.Open strSQL,conn,3
conn.close
Msgbox "OK."
End Sub
//-->
</SCRIPT>
<html>
<head>
<title>发送邮件</title>
</head>
<body>
<div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#eeeeee" id="AutoNumber1">
<form id="MyForm" NAME= MyForm method="post" >
<tr>
<td width="20%" height="24">收件人: </td>
<td width="80%" height="24">
<input type="text" id="inputMailTo" chname="收件人" name="inputMailTo" size="48">
</td>
</tr>
<tr>
<td width="20%" height="24">抄送: </td>
<td width="80%" height="24">
<input type="text" id="inputMailToAnother" chname="抄送" name="inputMailToAnother" size="48" >
</td>
</tr>
<tr>
<td width="20%" height="24">主题: </td>
<td width="80%" height="24">
<input type="text" id="inputMailSubject" chname="主题" name="inputMailSubject" size="48" >
</td>
</tr>
<tr>
<td width="20%" height="24">邮件内容: </td>
<td width="80%" height="24">
<textarea id="textBoxMailBody" name="textBoxMailBody" Rows="6" Cols="48">
</textarea>
</td>
</tr>
<tr>
<td colspan="2" align="center">
<input type="button" value="发送" id="buttonSendMail" name="buttonSendMail" >
<INPUT TYPE="button" NAME="btnEnter" VALUE="Enter">
</td>
</tr>
<tr>
<td colspan="2" align="center" height="24">
</td>
</tr>
</form>
</table>
</div>
</body>
</html>
。。。。。。。。。。。。。。。。
TheForm.inputMailTo.Value=TheForm.inputMailSubject.Value//这样可以
Set MailTo=TheForm.inputMailTo.Value//这样就出错了？？？？？？？？？？？？？？？？？？？？？
为什么呢？？
<!--
Sub btnEnter_OnClick
Msgbox "Please enter a numerical age1."
Dim strSQL,conn,rst
Msgbox "OK.1"
Dim MailFrom,MailTo,Subject,MailBody
Msgbox "OK.2"
Dim TheForm
Set TheForm = Document.MyForm
Msgbox "OK.3"//到这里还可以显示！！！！！！！！！！！！！！！！！
' Set MailFrom=Session("username")
Set MailTo=TheForm.inputMailTo.Value
Msgbox "OK.4"//这里就出错了？？？？？？？？？？？？？？？？？？？？？
Set Subject=TheForm.inputMailSubject.Value
Msgbox "OK.5"
Set MailBody=TheForm.textBoxMailBody.Value
Msgbox "OK."
Set strSQL = "Insert into Mails (MailFrom,MailTo,Subject,MailBody) Values('"&MailFrom&"','"&MailTo&"','"&Subject&"','"&MailBody&"')"
Set conn = server.createobject("ADODB.connection")
Set rst = server.createobject("ADODB.Recordset")
conn.open = "Provider=sqloledb;data source=localhost;initial catalog=WCWebMail;User Id=mailuser;Password=123"
rst.Open strSQL,conn,3
conn.close
Msgbox "OK."
End Sub
//-->
</SCRIPT>
<html>
<head>
<title>发送邮件</title>
</head>
<body>
<div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#eeeeee" id="AutoNumber1">
<form id="MyForm" NAME= MyForm method="post" >
<tr>
<td width="20%" height="24">收件人: </td>
<td width="80%" height="24">
<input type="text" id="inputMailTo" chname="收件人" name="inputMailTo" size="48">
</td>
</tr>
<tr>
<td width="20%" height="24">抄送: </td>
<td width="80%" height="24">
<input type="text" id="inputMailToAnother" chname="抄送" name="inputMailToAnother" size="48" >
</td>
</tr>
<tr>
<td width="20%" height="24">主题: </td>
<td width="80%" height="24">
<input type="text" id="inputMailSubject" chname="主题" name="inputMailSubject" size="48" >
</td>
</tr>
<tr>
<td width="20%" height="24">邮件内容: </td>
<td width="80%" height="24">
<textarea id="textBoxMailBody" name="textBoxMailBody" Rows="6" Cols="48">
</textarea>
</td>
</tr>
<tr>
<td colspan="2" align="center">
<input type="button" value="发送" id="buttonSendMail" name="buttonSendMail" >
<INPUT TYPE="button" NAME="btnEnter" VALUE="Enter">
</td>
</tr>
<tr>
<td colspan="2" align="center" height="24">
</td>
</tr>
</form>
</table>
</div>
</body>
</html>
。。。。。。。。。。。。。。。。
TheForm.inputMailTo.Value=TheForm.inputMailSubject.Value//这样可以
Set MailTo=TheForm.inputMailTo.Value//这样就出错了？？？？？？？？？？？？？？？？？？？？？
为什么呢？？
...全文
