ASP×î»ù±¾µÄ¼Ó½âÃܺ¯Êý
<%
function decrypt(dcode)
dim texts
dim i
for i=1 to len(dcode)
texts=texts & chr(asc(mid(dcode,i,2))-i)
next
decrypt=texts
end function
function encrypt(ecode)
dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,2))+i)
next
encrypt = texts
end function
dim str
str = "neok"
Response.Write("¼ÓÃÜÇ°:" + str + "<br>")
Response.Write("¼ÓÃܺó:" + encrypt(str) + "<br>")
Response.Write("½âÃÜ:"+ decrypt(encrypt(str)))
%>
Ïà¹ØÎĵµ£º
asp Http_Referer,Server_NameºÍHttp_Host
ÒÔÇ°¸Ð¾õRequest.ServerVariablesÀïµÄÖµºÜ¶à£¬ÏÖÔÚ¿´¿´»¹ÊÇÄÇô¶à£¬²»¹ý½ñÌì̸ÆäÖеÄÒ»¸öÖµ----HTTP_RefererÒÔ¼°Request.ServerVariablesÀïServer_NameÓëHttp_HostÖ®¼äÓÐʲôÇø±ðÄØ£¿
¸Õ²ÅÔËÐÐÁËÒ»¶Î´úÂ룬À´²é¿´Request.ServerVariablesÀïÃæÓжàÉÙÖµ£¬¿´ÁËһϣ¬¹²50¸ö£¡
´úÂ ......
ÒÔÏÂΪÒýÓõÄÄÚÈÝ£º
<!--ÕâÊÇÒ»¸öÖ÷Ò³Îļþ-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>»ÃµÆƬÐÂÎÅ</title>
</head>
<body>
<!--#Include file="diaoyong.asp"-->
</body>
</html>
& ......
<%
Dim Conn, Connstr
Dim strServer, strUid, strPwd, strDB
strServer = "HUA-5780C2D1CCF" 'SQLÊý¾Ý¿â·þÎñÆ÷µØÖ·
strUid = "sa" 'Êý¾Ý¿âÓû§Ãû
strPwd = "123456" ......
ASPÁ¬½ÓMySQLÊý¾Ý¿âµÄ·½·¨
ASPµÈÓïÑÔÁ¬½ÓmysqlÊý¾Ý¿â£¬¿ÉÒÔͨ¹ý°²×°mysqlµÄODBCÇý¶¯£¬Í¨¹ýÅäÖÃODBCÊý¾ÝÔ´£¬Á¬½Ó²¢²Ù×÷Êý¾Ý¿â¡£
mysql odbc 3.51°æ
ÏÂÔصØÖ·:
http://dev.mysql.com/downloads/connector/odbc/3.51.html
£¼%
'²âÊÔ¶ÁÈ¡MySqlÊý¾Ý¿âµÄÄÚÈÝ
strconnection="driver={mysql odb ......