asp²Ù×÷Êý¾Ý¿â´úÂë
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq=F:\\ajaxpro\\App_Data\\server.mdb"
Dim StrSQL,RS
StrSQL="SELECT*from Manager WHERE ID='"&username&"'"
StrSQL=StrSQL&"AND Pin='"&password&"'"
set rs=server.createobject("adodb.recordset")
rs.open StrSQL,conn,1,1
If rs.EOF then
response.write("<script>alert('Óû§Ãû»òÃÜÂë´íÎó');history.back();</script>")
response.End()
else
response.Write( "<script>location.href='IP_Address.asp'</script>")
response.End()
End If
Ïà¹ØÎĵµ£º
ÓÉÓÚ¹¤×÷ÔÒò£¬±ÊÕß¾³£ÐèҪʹÓÃAsp¿ª·¢Ò»Ð©Ð¡ÐͳÌÐò£¬ÔÚWindows 2000Ï¿ª·¢ºÍʹÓÃÏà¹Ø³ÌÐòʱһ°ã²»»á³öÏÖʲôÎÊÌ⣬²¢ÇÒÒ²ºÜÈÝÒ×½â¾ö¡£µ«ÊÇÓÉÓÚ±ÊÕßΪÁ˳¢ÏÊʹÓÃÁËWindows 2003 Serverʱ£¬¿ª·¢Ïà¹Ø³ÌÐò¾Í³öÏÖÁËÕâÑùÄÇÑùµÄÎÊÌ⣬±ÈÈçä¯ÀÀÆ÷²»ÄÜÏÔʾÏêϸ³ö´íÐÅÏ¢£¬Á¬½ÓAccessʱ×ÜÊDZ¨´íµÈ£¬ÈñÊÕ߿಻¿°ÑÔ¡£ÔÚ¶à´Îʵ¼ùºÍ²é¿´ ......
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","") '´«²Î
strFileName="/files/"&strFileName ' ¸Ä³ÉÄãÄãÎļþµÄ´æ ......
¼ÇµÃÔÚ½¨Á¢Ò»¸öÎļþ¼Ð"updata"
saveannounce_upload.asp ÉÏ´«Ò³
------------------------------------
<html>
<head>
<style type="text/css
">
body {font-size:9pt;}
input {font-size:9pt;}
</style>
<title>ÎļþÉÏ´«</title>
</head& ......
CREATE PROCEDURE sp_newpage
@tb varchar(50), --±íÃû
@col varchar(50), --°´¸ÃÁÐÀ´½øÐзÖÒ³
@coltype int, --@colÁеÄÀàÐÍ,0-Êý×ÖÀàÐÍ,1-×Ö·ûÀàÐÍ,2-ÈÕÆÚʱ¼äÀàÐÍ
@orderby bit, --ÅÅÐò,0-˳Ðò,1-µ¹Ðò
@collist varchar(800),--Òª²éѯ³öµÄ×Ö¶ÎÁбí,*±íʾȫ²¿×Ö ......
·½·¨Ò» : ½ûÓÃHTML
×î¼òµ¥µÄ·½·¨ÊÇÖ±½Ó½ûÓÃhtml±êÇ©¶ø²»ÓÃÒƳýËüÃÇ. ¿ÉÒÔʹÓÃReplace()º¯Êý. ÀýÈç:
strText = Replace(strText, "<script", "<script", 1, -1, 1)
»òÕßÖ±½Ó½ûÓÃËùÓеÄhtml:
strText = Replace(strText, "<", "<")
ÕâÑù×öËäÈ»ºÜ°²È«,µ«ÏԵò»¹»ÓѺÃ.(Óû§Ìá½»µÄÎı¾»á±äµ ......