ASPºǫ́²Ù×÷Êý¾Ý¿âµÄÎÊÌâ
ÎÒµÄÍøÕ¾Êý¾Ý¿â·ÅÔÚÍø¸ùĿ¼ÏÂÃæ£¡
ÿ´Îºǫ́Ìí¼ÓÍêÊý¾Ýºó£¬Ç°Ì¨²»ÏÔʾ£¬Êý¾Ý¿â·ÅÔÚadminÖвŻáÏÔʾ£¡£¡
Ï´εǽ°Ñ¸ùĿ¼ÏµÄÊý¾Ý¿â±ØÐë·ÅÔÚadminÖвÅÄܵǽ³É¹¦£¡£¡Ææ¹Ö£¬Ã»ÓÐÅö¹ýÕâÑùµÄÎÊÌâ¡£¡£
ÄãÊÇÓÃÈ˼ҵijÌÐò°É ×ÐϸÕÒÕÒ´úÂë°É Ó¦¸ÃÓз¾¶ÏÞÖÆ °ÑÏÞÖÆÈ¥ÁË
»¹ÓиÄÓÃÐéÄâ·¾¶
ÔÙ¸øÄã¸öCONN.aspµÄµ÷ÓÃÒ³Ãæ
Server.ScriptTimeOut=90 '½Å±¾³¬Ê±Ê±¼ä(µ¥Î»:Ãë)
Session.Timeout=20 'Session¹ýÆÚʱ¼ä(µ¥Î»:·ÖÖÓ)
Response.Expires=-1
Dim DataPath
DataPath="date/myshop.mdb" 'Êý¾Ý¿â·¾¶ ÕâÀïÅжÏһϺǫ́·¾¶ Èç¹ûÊǺǫ́µ÷ÓÃÕâ¸öÒ³Ãæ¾ÍÓÃ
DataPath="../date/myshop.mdb" 'Êý¾Ý¿â·¾¶
'ÒÔϲ¿·ÖÎð¶¯
Dim StartTime,Conn
Dim SQL,Rs,strMsg
Dim Url
Dim ArticleCount,PageSize,Page,PageCount
Dim SqlStr,i
StartTime=Timer
ScriptName=LCase(Request.ServerVariables("SCRIPT_NAME"))
Url=Request.ServerVariables("HTTP_REFERER")
Sub DataConn()
Dim strConn
Set Conn = Server.Createobject("Adodb.Connection")
strConn="Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.Mappath(DataPath)
ON ERROR RESUME NEXT
Conn.Open strConn
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "Êý¾Ý¿âÁ¬½Ó³ö´í£¬Çë¼ì²éÁ¬½Ó×Ö´®¡£"
Response
Ïà¹ØÎÊ´ð£º
Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.Design
Imports System.Web.UI.WebControls
Namespace CBDAspNet.WebControls.HTML
''' <summary>
'' ......
ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
ASP³ÌÐòÔ±ÈçºÎתȥ×ö PHP »ò JSP
Õâ½áÌùÂÊ....
ASP ×öµÃºÃµÄ»°,תPHP,Äã»á·¢ÏÖ¸ü¼òµ¥.. ¸ü·½±ã...
²î±ð²»´óÂð
PHP²»ÊÇÒªÔÚLinux ÉÏ¿ª·¢µÄÂð WindowsÉÏÓÃÌ×¼þºÃÏñ²»Êµ¼ÊÁ˵㣬¹ãLinuxÕâ¸ö¿²¾ÍÄѹýÈ¥ÁË£¬IISÓ ......
ÓÐÒ»¸öÀà
class adc
{
dim a,b,c
}
ÈçºÎÔÚÁíÍâÒ»¸öÀàÖÐÈ¡µÃÀà³ÉÔ±¼°³ÉÔ±¸öÊý
class getmenber
{
dim menbers()
function getmenbers(resclass)
'resΪһδ֪Àà
'getmenber ......
ÏÂÃæÒ»¶Î´úÂëÖÐÓÐÁ½¸ö±íµ¥£¬form1ºÍform2£¬Èç¹û·Ö±ðÅжϱêÌâÊÇ¿ÉÒԵģ¬¿ÉÒÔ·Ö±ðÖ¸¶¨Ìض¨µÄform¶ÔÏóÀ´Åжϣ¬¿ÉÊÇfckeditorºÃÏñÊÇÈ«¾ÖµÄ£¬²¢Ã»ÓдæÔÚÓÚÄǸöform±íµ¥µÄ¸ÅÄËùÒÔÎÒ²»ÖªµÀÔõôʹÓÃJavascriptÀ´·Ö±ðÅжÏf ......