aspÔö¼ÓÊý¾Ý¿â±íµÄ×ֶδúÂë
<%
'ÏÂÃæÊÇ×î¾ß¼¼Êõº¬Á¿µÄº¯ÊýÁË£¬¹þ¹þ~
'Ôö¼ÓÊý¾Ý¿â×Ö¶Î
function addziduan(ziduanming,ziduanleixing)
on error resume next
fldname = ziduanming
if ziduanleixing=1 or ziduanleixing=4 then
fldtype = "VarChar"
fldsize = 255
elseif ziduanleixing=2 or ziduanleixing=3 then
fldtype = "Text"
fldsize = ""
end if
fldnull = "ON"
fldautoincrement = ""
table_name = tables
if fldname <> "" and fldtype <> "" then
sql = "alter table [" & table_name & "] add ["&fldname&"] " & fldtype
if fldsize <> "" then
sql = sql & "(" & fldsize & ")"
end if
if fldnull <> "ON" then
sql = sql & " not null"
end if
conn.execute(sql)
if err <> 0 then
response.Write "<input type='button' name='ok' value=' ·µ »Ø ' onClick='javascript:history.go(-1)'>"
end if
end if
end function
%>
Ïà¹ØÎĵµ£º
asp Öг£ÓõÄÎļþ´¦Àíº¯Êý ÊÕ²Ø
asp Öд¦ÀíÎļþÉÏ´«ÒÔ¼°É¾³ýʱ³£ÓõÄ×Ô¶¨Ò庯Êý
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ËùÓÐ×Ô¶¨ÒåµÄVBSº¯Êý
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function DeleteFile(Filename) 'ɾ³ýÎļþ
&nbs ......
'º¯ÊýÃû£ºCodeCookie
'×÷ ÓãºCookie·ÀÂÒÂëдÈëʱÓÃ
'²Î Êý£ºstr ---- ×Ö·û´®
'·µ»ØÖµ£ºÕûÀíºóµÄ×Ö·û´®
'ʾ Àý£º
'**************************************************
Public Function CodeCookie(str)
If is ......
Ç°ÃæËµÁË.NETÈçºÎα¾²Ì¬»¯£¬ÆäʵAsp urlα¾²Ì¬»¯Ò²ºÜ¼òµ¥ÁË¡£ºÃµÄ¶«Î÷´ó¼Ò·ÖÏíÏ£¡
Óв»¶®µÄ¿ÉÒÔ¼ÓÎÒQQ 282116460
ÏêϸÄÚÈÝÈçÏ£º
IISϰ²×°ÅäÖÃISAPI Rewrite£¬ÊµÏÖaspµÄ¾²Ì¬»¯µÄ·½·¨£¡
×î½üÒ»Ö±Ôڸ㰳СվµÄËÑË÷ÒýÇæÓÅ»¯£¬Ð§¹û»¹¿ÉÒÔ£¬´Ó10Ôµ׵ÄÿÌì40IPÉÏÉýµ½ÏÖÔÚÿÌì200¶à¸ö¡£²»¹ýÁ÷Á¿»¹ÊÇÌ«ÉÙÁË¡£¾Ý˵°Ñ¶¯Ì¬µÄÒ ......
<%@ Language="VBScript" %>
<%' Option Explicit %>
<%
'²»Ê¹ÓÃÊä³ö»º³åÇø£¬Ö±½Ó½«ÔËÐнá¹ûÏÔʾÔÚ¿Í»§¶Ë
Response.Buffer = False
'ÉùÃ÷´ý¼ì²âÊý×é
Dim ObjTotest(26,4)
ObjTotest(0,0) = "MSWC.AdRotator"
ObjTotest(1,0) = "MSWC.BrowserType"
ObjTotest(2,0) = ......
conndb.asp
<%
Session.CodePage=65001
response.Charset="utf-8"
%>
<%
'Êý¾Ý¿âÁ¬½ÓÎļþ
dim conn
dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath("../date/#heihuhuhuajian.mdb")+";Jet OLEDB:Database Pass ......