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
Ïà¹ØÎÊ´ð£º
×î½üÎÒͨ¹ýѧϰ£¬¸Ð¾õ×Ô¼ºÑ§µÄ»¹¿ÉÒÔÁË£¬Ïë×öÒ»ÍøÕ¾£¬µ«ÊÇÒ»Ö±¶¼ÕÒ²»µ½Ìâ²Ä£¬²»ÖªµÀ×öʲô£¬Ï£Íû¸÷λ¸øÎÒµãÒâ¼û£¬Èç¹ûÓÐÐèÇóÎĵµ¾Í¸üºÃÁË£¡Ï£Íû´ó¼Ò¸øÎÒµãÒâ¼û£¬Ð»Ð»£¡
ÏÈ×ö¸öÆóÒµÍøÕ¾°É£¬ÎҸоõÒ»¸öÈË×öÍøÕ¾²»ÊÊÒË ......
Îļþ£ºfolder.inc
HTML code:
<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......
ÎÒ°ïѧУ×öÁËÒ»¸öÕ¾£®
ÔÚÐ£Ô°ÍøµÄÇé¿öÏ£¬Äܹ»µÇ½³É¹¦£¬ºǫ́ÕʺŶ¼ÄÜͨ¹ý£¬½øÈëºǫ́
µ«ÊÇÔÚÍâÍø£Á£ÄµÄÇé¿öÏ£¬Äܹ»µÇ½ºǫ́µÄÒ³Ãæ£¬Ò³ÃæÊÇ£Á£Ó£ÐÎļþ£®
µ«ÊÇÊäÈëÕʺźÍÃÜÂëµÄʱºò£¬ÍøÒ³ÔËÐкܾö¼ ......
<%
Sql="select top 8 * from NewsData where d_classid in (select classid from NewsClass where ParentID=16)"
Rs.Open Sql, conn, 1,1
Do Until Rs.Eof
......
ÓÐËÄܸø½²½²£¬Ôõô×öÂð£¿
ллÀ²£¡
¸ÊÌØÍ¼ ÊÇɶ£¿
½âÌâ˼·.¿´Ò»Ï½ø¶ÈÌõµÄÏÔʾ..
ÆäʵÄã¾ÍŪһ¶Ñtable ÿ¸ötableµÄ¿í¶È²»Í¬.µ×É«²»Í¬¼´¿É
µ±È»ÓÃdiv¿ØÖÆÎ»ÖøüºÃ
ÄãŪ100¸ötable¸ù¾Ý½ø¶ÈÆäÖÐǰ20¸ö·Ö¸øµ ......