¹ØÓÚaspÖеÄÊý¾Ý¿âÁ¬½ÓÎÊÌâ
ÎÒдÁËÒ»¸ö±íµ¥¾ÍÊÇÓÃÀ´ÏòÊý¾Ý¿âÖÐÌí¼ÓÊý¾ÝµÄ action=post.asp method=post
È»ºóÔÙpost.aspµ±ÖÐÎÒÓÖͨ¹ýrequest.form»ñÈ¡ÁËÏàÓ¦µÄÖµ£¬È»ºóÌí¼ÓµÄÊý¾Ý¿âµ±ÖÐ
ËùÓеĴúÂëÈçÏÂ
------------------------------------conn.asp-----------------------------
<%
dim db
const databasetype="access"
db="data\meiyijixie.mdb"
dim connstr
dim conn
ConnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
set conn=server.createobject("ADODB.Connection")
conn.open connstr
'sub CloseConn()
' On Error Resume Next
' If IsObject(Conn) Then
' conn.close
' set conn=nothing
' end if
'end sub
%>
------------------------------------post.asp------------------------------------------
<!--#include file=conn.asp-->
<%
dim name,tel,email,content
name=request.form("name")
email=request.form("email")
tel=request.form("tel")
content=request.form("content")
qq=request.form("qq")
if request.form("name")="" then
response.write"<script language='javascript'> alert('ÐÕÃû²»¿ÉÒÔΪ¿Õ£¡');history.back('zxly.asp');</script>"
response.end
end if
if content="" then
response.write"<script language='javascript'>alert('ÁôÑÔÄÚÈݲ»ÄÜΪ¿Õ!');history.back('zxly.asp');</script>"
response.end
end if
if tel="" then
response.write"<script language='javascript'>alert('ÇëÁôÏÂÄãµÄÁªÏµ·½Ê½!');history.back('zxly.asp');</script>"
end if
if email="" then
response.write"<script language='javascript'> alert('ÇëÁôÏÂÄãµÄÁªÏµ·½Ê½!');history.back('zxly.asp');"
end if
%>
<%
set rs=server.createobject("ADODB.RecordSet")
sql="select *from liuyan where id is null"
rs.open sql,conn,1,3
rs.addnew
rs("name")=name
rs("tel")=tel
rs("email")=email
rs("content")=content
rs.update
rs.close
set rs=nothing
response.write "<script language='javascript'>alert('ÁôÑÔÌá½»³É¹¦');history.back('index.asp')</script>"
response.end
%>
È»ºó³öÏֵĽá¹ûÊÇ£º
Couldn't load file: F:\cs
Ïà¹ØÎĵµ£º
Ò»¡¢Ê¹ÓÃOWC
¡¡¡¡Ê²Ã´ÊÇOWC£¿
¡¡¡¡OWCÊÇOffice Web CompentµÄËõд£¬¼´MicrosoftµÄOffice Web×é¼þ£¬ËüΪÔÚWebÖлæÖÆÍ¼ÐÎÌṩÁËÁé»îµÄͬʱҲÊÇ×î»ù±¾µÄ»úÖÆ¡£ÔÚÒ»¸öintranet»·¾³ÖУ¬Èç¹û¿ÉÒÔ¼ÙÉè¿Í»§»úÉÏ´æÔÚÌØ¶¨µÄä¯ÀÀÆ÷ºÍһЩ¹¦ÄÜÇ¿´óµÄÈí¼þ£¨ÈçIE5ºÍOffice 2000£©£¬ÄÇô¾ÍÓÐÄÜÁ¦ÀûÓÃOffice Web×é¼þÌṩһ¸ö½»»¥Ê½Í¼Ðοª ......
<%
Response.Buffer = True
'Ò»°ãÇé¿öÏ£¬µ±Óû§ÇëÇóWEB·þÎñÆ÷ʱ£¬·þÎñÆ÷°ÑÇëÇ󻨏´¸ø¿Í»§¶Ë¡£ÔÚ¿Í»§¶Ë£¬ä¯ÀÀÆ÷°Ñ»º´æ×÷ΪһÖÖ¼Ó¿ìËٶȵIJßÂÔ£¬¾ÍÊǵ±ÇëÇóʱÏȼì²é»º´æµÄÇé¿ö£¬Èç¹ûÓоÍÖ±½Óµ÷»º´æÁË£¬¶ø²»ÇëÇó·þÎñÆ÷ÁË¡£
'ÔÚWEB³ÌÐòÉè¼ÆÖУ¬ÓÐʱΪÁË·ÀÖ¹ÖØ¸´µÄÌá½»»òÕßÑϸñµÄ´ÎÐòµÈ£¬±ØÐëÈÃÓû§µÄÊý¾ÝÁ¢¼´ÔÚʹÓúó¾Í ......
ÊÔÑéÁ˺þã¬ÖÕÓڸ㶨ÁË¡£
Ê×ÏÈ£¬±ØÐëÓдíÎó¼ÌÐø½øÐеÄÉùÃ÷On Error Resume Next
È»ºó³¢ÊÔ¼òÀújmailʵÀý£º
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
¶ÔʵÀý×ö³öÅжϣ¬Èç¹û×é¼þûÓа²×°³É¹¦£¬ ......
²É¼¯¿ªÊ¼
µÚÒ»²½ÊÇ·ÖÎöÒª²É¼¯µÄÒ³Ãæ¡£
¡¡Ê¹ÓÃä¯ÀÀÆ÷´ò¿ªÒª²É¼¯µÄÒ³Ãæ£¨Èç:http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml£¬Äã¿ÉÒÔÆäËûÒ³Ãæ£©£¬´ò¿ªºó£¬µã»÷ÓÒ¼ü£¬²éÔ´Îļþ¡£
µÚ¶þ²½£¬ÕÒµ½Òª²É¼¯µÄÄÚÈÝËùÔÚλÖá£
¼ÙÈçÎÒÒª²É¼¯Õâ¸öÒ³ÃæÉϵıêÌâºÍÄÚÈÝËùÔÚµÄλÖãº
±êÌâÔÚ<h1 id="artibodyTitle" st ......
ÔõôÓÃaspÅжÏÏÂÃæµÄÐÅÏ¢ÕâÀïÎÒÊÇ¿´µ½¶¯Ì¬ÍøµÄ.
FSOÎļþ¶Áд √ Jmail·¢ËÍÓʼþÖ§³Ö ×
CDONTS·¢ËÍÓʼþÖ§³ ......