¹ØÓÚ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
Ïà¹ØÎĵµ£º
aspÁ¬½Óaccess,³öÏÖ0x80004005,δָ¶¨µÄ´íÎó
aspÀ´Á¬½ÓaccessÊý¾Ý¿â
±¾µØ²âÊÔ·¢ÏÖ,¾²Ì¬Ò³¿ÉÒÔ´ò¿ª.
ºÍÊý¾Ý¿â½¨Á¢Á´½ÓµÄ´úÂëconn.open connstr Ðгö´í,µ«ÊÇÒÔǰ²âÊÔʪ¿ÉÒÔͨ¹ýµÄ.
ÔÚÍøÉÏÕÒÁËÕÒ½â¾ö°ì·¨,ÀýÈ磺 ¸øÓû§¼ÓȨÏÞ,¸ü¸ÄiisÉèÖÃ.µ«ÊÇ»¹ÊDz»ÐÐ.
¼ÌÐøÕÒ£¬ÕÒµ½Ò»ÆªÎÄÕ£¬ËµÊÇÒªÐÞ¸Äc:\windows\temp ȨÏ޵ġ£
......
<%
Response.Buffer = True
'Ò»°ãÇé¿öÏ£¬µ±Óû§ÇëÇóWEB·þÎñÆ÷ʱ£¬·þÎñÆ÷°ÑÇëÇ󻨏´¸ø¿Í»§¶Ë¡£ÔÚ¿Í»§¶Ë£¬ä¯ÀÀÆ÷°Ñ»º´æ×÷ΪһÖÖ¼Ó¿ìËٶȵIJßÂÔ£¬¾ÍÊǵ±ÇëÇóʱÏȼì²é»º´æµÄÇé¿ö£¬Èç¹ûÓоÍÖ±½Óµ÷»º´æÁË£¬¶ø²»ÇëÇó·þÎñÆ÷ÁË¡£
'ÔÚWEB³ÌÐòÉè¼ÆÖУ¬ÓÐʱΪÁË·ÀÖ¹ÖØ¸´µÄÌá½»»òÕßÑϸñµÄ´ÎÐòµÈ£¬±ØÐëÈÃÓû§µÄÊý¾ÝÁ¢¼´ÔÚʹÓúó¾Í ......
Ò³ÃæµÄÊäÈëºÍÊä³öÉæ¼°µ½ÁËRequestºÍResponse,ÓÉÓÚËûÃǺÍJspÖеÄÏàËÆ,
ÏÂÃæÎÒÃǽøÐÐÏêϸµÄ½â¶Á£º
JSPÖУº
ÔÚ¶¯Ì¬ÍøÒ³¿ª·¢ÖУ¬HTML±íµ¥ÊÇÓëÓû§½»»¥ÐÅÏ¢µÄÖ÷ÒªÊֶΡ£
ʹÓÃJSP´¦Àí±íµ¥ÇëÇóʱ£¬Ò»°ã×ñÑÕâÑùÒ»ÖÖģʽ£¬Ê×ÏÈ£¬Óû§Í¨¹ý±íµ¥¿Ø¼þÊäÈë²¢Ìá½»ÐÅÏ¢;½Ó×Å£¬JSPÒ³Ãæ»ñµÃ±íµ¥Êý ......
Õâ¶Î´úÂëµÄ¹¦ÄÜÊÇ£º½«Ò»¸öÊý×é´òÂÒ˳Ðò£¬ÏÔʾ³öÀ´£¬ÈÃÿһ´ÎÏÔʾµÄ˳Ðò¶¼²»Ò»Ñù¡£
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'Ëæ»úÅÅÐò
leng=UBound(tt)
randomize
for ii=0 to leng-1
b=int(rnd()*leng)
temp=tt(b)
tt(b ......
ÔõôÓÃaspÅжÏÏÂÃæµÄÐÅÏ¢ÕâÀïÎÒÊÇ¿´µ½¶¯Ì¬ÍøµÄ.
FSOÎļþ¶Áд √ Jmail·¢ËÍÓʼþÖ§³Ö ×
CDONTS·¢ËÍÓʼþÖ§³ ......