ASP ÏòaccessÖвåÈëÊý¾ÝÎÊÌâ~[
´úÂ룺
<%
Function GetUrl()
Dim ScriptAddress,Servername,qs
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
Servername = CStr(Request.ServerVariables("Server_Name"))
qs=Request.QueryString
if qs<>"" then
GetUrl =ScriptAddress
else
GetUrl =ScriptAddress
end if
End Function
set conn=server.createobject("ADODB.CONNECTION")
set rs=Server.CreateObject("ADODB.Recordset")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&server.mappath("countmst1.mdb")
sqlstr="select * from count "
rs.open sqlstr,conn,3,3
response.write rs("ip")
rs.addnew
rs("IP")=Request.ServerVariables("REMOTE_ADDR")
rs("datetime")=now()
rs("web")= GetUrl()
rs.update
rs.close
conn.close
response.write Request.ServerVariables("REMOTE_ADDR")
response.write GetUrl()
response.write now()
response.write "~~~"&server.mappath("countmst1.mdb")
%>
ÏÖÔÚµÄÎÊÌâÊDz»±¨´í£¬access±íÀïÃæÒ²Ã»Êý¾Ý~ÄÄλ´óÉñÄܰïæ½â¾öÏ£¡
×Ô¼º¶¥ÏÂ~~~
¶¥ÆðÀ´~~
´óÉñÈ¥ÄÄÁË~~~~~~
ÊDz»ÊÇÊý¾Ý¿âÀïÃæµÄ×Ö¶ÎûÓÐÒ»¸ö"×Ô
Ïà¹ØÎÊ´ð£º
http://www.zgjhjy.com/Test/PrimaryTest/Index.aspx
¾ÍÊÇÀàËÆÒÔÉϵÄÔÚÏß²âÊÔϵͳ£¬ÐèÒªÓÐÒ»¸öºǫ́µÄ£¬ÓïÑÔÊÇaspµÄ£¬Êý¾Ý¿âÊÇaccessµÄ£¬»¹ÐèÒªÄÜÔÚºǫ́¶ÔÐÅÏ¢½øÐÐÌíɾ¸Ä²éµÄ¡£Ð»Ð»¸÷λÁË¡£¡£¡£
³ÌÐòÕæµÄºÜ¶à£¬²»Öª ......
ÓÐÒ»¸öÀà
class adc
{
dim a,b,c
}
ÈçºÎÔÚÁíÍâÒ»¸öÀàÖÐÈ¡µÃÀà³ÉÔ±¼°³ÉÔ±¸öÊý
class getmenber
{
dim menbers()
function getmenbers(resclass)
'resΪһδ֪Àà
'getmenber ......
aspÐéÄâÖ÷»úʵÏÖα¾²Ì¬µÄ·½·¨£º
1¡¢ ÖØÐ´url²ÎÊý
Step1: ½¨Á¢Ç°Ì¨Îļþindex.asp£¬ÐÞ¸Äurl²ÎÊýÐÎʽ¡£ÓÉÓÚ¶ÁÈ¡Êý¾Ý¿âÖеļǼ²»ÊÇרÌâµÄÖØµã£¬¹ÊÖ±½Ó¸ø³ö:
<!--#include file="config.asp" -->
&l ......
ÎÒÏëʵÏÖÒ»¸öЧ¹ûÊÇ£ºÄܰÑÒ³Ãæ·Ö³É¼¸¸ö´ó¿é£¬µãÏ´ó¿éÉϵÄ+±ãÕ¹¿ª£¬µãÏÂ-±ãÕÛµþ¡£
Õâ¸öÓÐʲô¿Ø¼þ¿ÉÒÔÓò»£¬Çë¸ßÊÖ²»Áߴͽ̣¡
ÓÃjs´úÂëÀ´ ¿ØÖÆ divµÄ¶¯×÷´Ó¶øÄÜʵÏÖ
js¿ØÖÆdivÏÔʾ/Òþ²ØÁË
VS2008×Ô´ø·â×°Á ......
1.asp.net×öµÄÒ»¸ö´ðÌâÒ³Ãæ£¬ÈçºÎʵʱÏÞʱºó×Ô¶¯Ìá½»£¬Çë´ó¼Ò¸øµã˼·
ÏÞʱµÄʱ¼äÐÅÏ¢´æ·ÅÔÚÊý¾Ý¿âÖÐ
2.Èç¹û´ðÌâʱ¼äÉèÖõĽϳ¤£¬ÈçºÎ·½Ê½session³¬Ê±ºóÒ³ÃæÎÞЧ
лл
ÓÃjs·½·¨À´¿ØÖÆ
»Ø¸´ÄÚÈÝÌ«¶ÌÁË¡£¡£
js ......