ASP ±íµ¥Êý¾ÝÌí¼Óµ½Êý¾Ý¿âÈ«ÊÇ¿ÕÖµ£¡£¡
°ï°ïæ½â¾öÎÊÌ⣺´úÂëÈçÏ£¬µ±Ö´ÐкóÌí¼Óµ½Êý¾Ý¿âÖеÄÈ«ÊÇ¿ÕÖµ£¡ÕâÊÇΪʲô£¿ÎÒ°Ñrequest.Form()µÄ¶«Î÷È«²¿´òÓ¡³öÀ´£¬¶¼ÊÇÓÐÊý¾ÝµÄ£¬Êý¾ÝÀàÐÍÒ²¶Ô¡£µ«µ½´ïÊý¾Ý¿â£¨Äܵ½´ïÊý¾Ý¿â£©µÄÈ«ÊÇ¿ÕÖµ£¨Access 2007ÖУ©
VBScript code:
rs.AddNew
if request.Form("submit")="Ìá½»" then
rs("P_Name")=request.Form("username")
rs("Speciality")=request.Form("speciality")
rs("Position")=request.Form("positon")
rs("Region")=request.Form("workplace")
rs("Wage")=request.Form("wage")
rs("DDate")=Date()
end if
rs.Update
response.Write "Ìá½»³É¹¦!"
rs.Close
set rs=nothing
VBScript code:
if Trim(request.Form("submit"))="Ìá½»" then
Set rs = CreateObject("ADODB.RecordSet")
rs.Open "SELECT * from tbl WHERE 1=0", conn, 1, 3
rs.AddNew
rs("P_Name")=request.Form("username")
rs("Speciality")=request.Form("speciality")
rs("Position")=request.Form("positon")
rs("Region")=r
Ïà¹ØÎÊ´ð£º
ÎÒÕÒÁËÒ»¸öα¾²Ì¬´úÂ룬ÈçÏ£º
index.asp
<!--#include file="config.asp"-->
<ol>
<%
Set rs=server.CreateObject("adodb.recordset") & ......
ÓÐËÄܸø½²½²£¬Ôõô×öÂð£¿
ллÀ²£¡
¸ÊÌØÍ¼ ÊÇɶ£¿
½âÌâ˼·.¿´Ò»Ï½ø¶ÈÌõµÄÏÔʾ..
ÆäʵÄã¾ÍŪһ¶Ñtable ÿ¸ötableµÄ¿í¶È²»Í¬.µ×É«²»Í¬¼´¿É
µ±È»ÓÃdiv¿ØÖÆÎ»ÖøüºÃ
ÄãŪ100¸ötable¸ù¾Ý½ø¶ÈÆäÖÐǰ20¸ö·Ö¸øµ ......
IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)
'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
S ......
Replaceº¯ÊýÈçºÎĬÈÏÊÇ´Ó×ó¶ËÌæ»»£¬ÈçºÎʹÆä´ÓÓұ߿ªÊ¼Ìæ»»£¬¼´Ìæ»»Ò»¸ö×Ö·û´®µÄ×îºóÒ»¸ö×Ö·û£¬Ìæ»»´ÎÊýΪ1´Î£¬Ð»Ð»
ÒýÓÃ
VBScript code <%
Response.Write ReplaceRev("abcdefXXXghi"," ......