ASPÍøÕ¾Êý¾Ý¿â±»¹ÒľÂíÔõô°ì
˵ÔÚÇ°ÃæµÄ»°£º
Òª·ÀÊý¾Ý¿âľÂí£¬Æäʵ×î¼òµ¥²»¹ý£¬±¾ÈËÈÏΪ£¬ÍøÉÏËùνµÄ×¢Èë·½·¨£¬¶¼ÊÇЩС¶ù¿Æ¡£Ö»ÒªÄã²»ÈÃÊý¾Ý¿âÔËÐУ¬Ëü×¢ÈëÁËASPľÂíÓкÎÓã¿£¡Ö»ÒªÄãÊä³öʱÓÐÑϸñµÄ¹ýÂË£¬Ëü×¢ÈëÁËJS´úÂëÓкÎÓã¿£¡
¾ßÌå·½·¨ÈçÏ£º
Ò»¡¢°ÑÊý¾Ý¿â¸ÄΪASP¸ñʽ£¬²¢¼ÓÈëÒ»¸ö±í£¬ÀïÃæ½¨¸ö×ֶΣ¬¼ÓÈëһЩIISϵͳ¼¶µÄ´íÎó´úÂë»òOleÊý¾Ý£¬¼´Ê¹±»×¢ÈëASPľÂí£¬¼´Ê¹¼ÓÈëÈÝ´í´¦Àí£¬ËüÓÖÄÍÎҺΣ¿
¶þ¡¢Êä³öÒ²¼òµ¥£¬Ö»Òª¼òµ¥µÄ´¦Àíһϓ<”¡¢“>”µÈÒ»Ð©ÌØÊâHTML´úÂ룬Ëü×¢ÈëÁËJsÓÖÄÍÎҺΣ¿
ÏÂÃæÑÔ¹éÕý´«£¬±»ÈË×¢ÈëÁË£¬×ÜÊDz»Ë¬£¬ÄǾÍ˵˵½â¾öµÄ·½·¨°É£º
µÚÒ»²½£ºÎªÏÖÓÐÊý¾Ý¿â×öºÃ±¸·Ý¡£
µÚ¶þ²½£º
Ö´ÐÐÈçÏÂASPÎļþ£¬ÕâÑù¾Í¿ÉÒÔÈ¥µôÊý¾Ý¿âµ±ÖеÄJSľÂí£º
×¢£ºconn.asp×Ô¼ºÈ¥Ð´ÁË¡£
'ÕâÀï·ÅÈëJSľÂíÄÚÈÝ£ºÇë¼ÇµÃ¸ÄΪ×Ô¼ºÊý¾Ý¿âÖеÄJSľÂíÄÚÈÝ¡£
<!--#include file="conn.asp"-->
<%
Server.ScriptTimeOut=180
Set rstSchema = conn.OpenSchema(20)
k=1
Do Until rstSchema.EOF '±éÀúÊý¾Ý¿â±í
If rstSchema("TABLE_TYPE")="TABLE" Then
response.write K&".<font color=red><b>"&rstSchema("TABLE_NAME") & "</b></font>:" 'ÏÔʾ±íÃû
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from [" & rstSchema("TABLE_NAME")&"]"
rs.open sql,conn,1,3
For i=0 to rs.fields.count-1 '±éÀú±íÖÐ×Ö¶Î
If int(rs(i).Type)=129 or int(rs(i).Type)=130 or int(rs(i).Type)=200 or int(rs(i).Type)=201 or int(rs(i).Type)=202 or int(rs(i).Type)=203 Then'Ö»´¦Àí×Ö¶ÎÀàÐÍΪ×Ö·ûÐ͵Ä×Ö¶Î
conn.execute("update ["&rstSchema("TABLE_NAME")&"] set "&rs(i).name&" =replace(cast("&rs(i).name&" as varchar(8000)),'ÕâÀï·ÅÈëJSľÂíÄÚÈÝ','')")
response.write rs(i).name &" "&rs(i).Type &" "'ÏÔʾִÐйýµÄ×Ö¶ÎÃû¡£
End If
Next
response.write "<br>"
End If
rstSchema.MoveNext
k=k+1
Loop
response.Write "Ö´Ðгɹ¦"
%>
Èç¹ûÊý¾Ý¿â±íºÜ¶àµÄ»°£¬ÉÏÃæµÄ±éÀúÊý¾Ý¿â½á¹¹Î´Ö´ÐÐÍê¾Í±»IIS¸øÍ£Ö¹ÁË¡£ÔÚÕâʱºò¿ÉÒÔÔÚ
If rstSchema("TABLE_TYPE")="TABLE" Then
µ±ÖÐÊʵ±¼ÓÈëkÖµµÄ·¶Î§£¬È磺
If rstSchema("TABLE_TYPE")="TABLE" k>10 and k<20 Then
ÕâÑùµÄ»°¾ÍÒ»´Î
Ïà¹ØÎĵµ£º
<%
'
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET","http://127.0.0.1/1.xml",False
http.send
Dim xml
Set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = False
'xml.load (Server.MapPath("1.xml"))¡¡'Èç¹û²»ÊÇÔ¶³ÌÎļþÖ±½ÓÕâÒ»²½
xml.Load(http.ResponseXML)
Dim t ......
1.ASPÁ¬½ÓAccessÊý¾Ý¿â
<%
dim conn,mdbfile
mdbfile=server.mappath("Êý¾Ý¿âÃû³Æ.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=Êý¾Ý¿âÃÜÂë;dbq="&mdbfile
%>
2. ASPÓëSQLÊý¾Ý¿âÁ¬½Ó£º
<%
dim conn
set c ......
·½·¨Ò»£º¼òµ¥£¬µÃ²»µ½²ÎÊý£¬Ö»ÓÐÒ»¸öÐéÄâ·¾¶
GetUrl =request("url")
ÀýÈ磺http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
»ñȡΪ:shiyan.asp
·½·¨¶þ£ºµÃµ½Õû¸öURL£¬µÃµ½²ÎÊý
'µÃµ½µ±Ç°Ò³ÃæµÄµØÖ·
Function GetUrl()
On Er ......
¡¡¡¡ÔÚASP±à³ÌµÄ¹ý³ÌÖУ¬»ñÈ¡µ±Ç°²Ù×÷µÄÎļþµÄÎļþÃû£¬ÊÇÒ»¸ö·Ç³£³£Óõ͝×÷£¬ASPºÃÏñûÓÐ×Ô¼ºÄÚÖú¯Êý£¬ËùÒÔÕâ¸ö²Ù×÷ÎÒÃÇÐèÒª×Ô¼º±àº¯ÊýÀ´Íê³É¡£½ñÌìÒ»¸öÀÏÅóÓÑÎÊÎÒÔõô×ö£¬ÎÒã¶ÁËһϣ¬»¹ÔÚÏëÓÐûÓÐÄÚÖú¯Êý£¬ÊµÔÚûÏëÆðÀ´£¬²»ÖªµÀÊÇÕæµÄûÓл¹ÊÇÎÒ²»ÖªµÀ¡£ºÇºÇ~²»¹ÜÁË£¬×îºóÎÒ»¹ÊÇ×Ô¼ºÐ´ÁËÒ»¸öСº¯ÊýÀ´Íê³ÉµÄ£¬²»¹ý²»ÊÇÎ ......
´æ´¢½ø³Ì¾ÍÊÇ×÷Ϊ¿ÉÖ´ÐжÔÏó´æ·ÅÔÚÊý¾Ý¿âÖеÄÒ»¸ö»ò¶à¸öSQLÃüÁî¡£
¶¨Òå×ÜÊǺܳéÏó¡£´æ´¢½ø³ÌÆäʵ¾ÍÊÇÄÜÍê³ÉÒ»¶¨²Ù×÷µÄÒ»×éSQLÓï¾ä£¬Ö»²»¹ýÕâ×éÓï¾äÊÇ·ÅÔÚÊý¾Ý¿âÖеÄ(ÕâÀïÎÒÃÇ̸ֻSQL SERVER)¡£Èç¹ûÎÒÃÇͨ¹ý´´½¨´æ´¢½ø³ÌÒÔ¼°ÔÚASPÖе÷Óô洢½ø³Ì£¬¾Í¿ÉÒÔ±ÜÃ⽫SQLÓï¾äͬASP´úÂë»ìÔÓÔÚÒ»Æð¡£ÕâÑù×öµÄºÃ´¦ÖÁÉÙÓÐÈý¸ö£º
µÚÒ»¡ ......