aspÑéÖ¤Â루¼Ó·¨ÔËË㣩
ÔÚÌá½»Ò³ÃæÖÐÑéÖ¤session("GetCode")
<%@CodePage="65001"%>
<%
Call Com_CreatValidCode("GetCode")
Sub Com_CreatValidCode(pSN)
' ½ûÖ¹»º´æ
Response.Expires = -9999
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
'Response.ContentType = "Image/BMP"
Randomize
Dim i, ii, iii
Const cOdds = 4 ' ÔÓµã³öÏֵĻúÂÊ
Const cAmount = 13 ' ÎÄ×ÖÊýÁ¿
Const cCode = "0123456789+=?"
' ÑÕÉ«µÄÊý¾Ý(×Ö·û£¬±³¾°)
Dim vColorData(1),vColorRandom(10)
'vColorData(0) = ChrB(Int(Rnd*155)+100) & ChrB(Int(Rnd*155)+100) & ChrB(Int(Rnd*155)+100) ' À¶0£¬ÂÌ0£¬ºì0£¨ºÚÉ«£©
vColorRandom(0)=ChrB(150) & ChrB(0) & ChrB(0)
vColorRandom(1)=ChrB(0) & ChrB(150) & ChrB(0)
vColorRandom(2)=ChrB(0) & ChrB(0) & ChrB(150)
vColorRandom(3)=ChrB(0) & ChrB(50) & ChrB(150)
vColorRandom(4)=ChrB(150) & ChrB(50) & ChrB(0)
vColorRandom(5)=ChrB(150) & ChrB(0) & ChrB(150)
vColorRandom(6)=ChrB(150) & ChrB(100) & ChrB(10)
vColorRandom(7)=ChrB(150) & ChrB(40) & ChrB(120)
vColorRandom(8)=ChrB(150) & ChrB(0) & ChrB(250)
vColorRandom(9)=ChrB(100) & ChrB(100) & ChrB(100)
vColorRandom(10)=ChrB(50) & ChrB(50) & ChrB(50)
vColorData(0) = vColorRandom(0)
vColorData(1) = ChrB(250) & ChrB(250) & ChrB(255) '±³¾°É« À¶250£¬ÂÌ236£¬ºì211£¨Ç³À¶É«£©
' Ëæ»ú²úÉú×Ö·û
Dim vCode(6),vCodes,vCodeColors(6)
F
Ïà¹ØÎĵµ£º
Ê×ÏÈÉêÃ÷£ºÕâ¸öÊÇÎÒ×ªÔØµÄ£¬ÖÂÁ¦ÓÚΪÏñÎÒÒ»ÑùµÄÐÂÊÖÌṩ°ïÖú£¡
1¡¢IISÏÂ301ÉèÖà InternetÐÅÏ¢·þÎñ¹ÜÀíÆ÷ -> ÐéÄâĿ¼ -> ÖØ¶¨Ïòµ½URL£¬ÊäÈëÐèҪתÏòµÄÄ¿±êURL£¬²¢Ñ¡Ôñ“×ÊÔ´µÄÓÀ¾ÃÖØ¶¨Ïò”¡£
2¡¢ASPϵÄ301תÏò´úÂë
<%@ Language=VBScript %>
<%
Response.Status=”301 Moved Permanent ......
<%
set conn= server.createobject("ADODB.connection")
conn.open "driver={sybase driver 10};"
"srvr=SYBASE;"
"UID=sa;"
"pwd=sybase;"
sql="select no from tab_st ......
<script language="JavaScript">
function CheckAll(form) {
var x=form.elements;
for (var i=0;i<x.length;i++)
{
var e = x[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
</script>
--Ò³ÃæcheckboxÄÚ²¿
<input type='checkbox' value='"&rs("ID")&"' name ......
asp classÀàÓ÷¨
asp class
ÑϸñµØËµ£¬ASP ²¢²»ÊÇÒ»Ãűà³ÌÓïÑÔ£¬ËùÒÔ²»´æÔÚÀàÕâÒ»¸ÅÄÎÒÃÇÕâÀï˵ ASP ÀàÊÇÖ¸ ASP µÄ±à³ÌÓïÑÔ VBScript ÔÚ ASP ÀïÓ¦ÓÃʱµÄÀà¡£
ASP Àà±È½Ï¼òµ¥£¬Ëü²»¾ßÓÐÕæÕýÒâÒåÀàµÄ¼Ì³Ð¡¢ÖØÔصÈÌØÐÔ£¬¾¡¹ÜÈç´Ë£¬ËüÈÔÈ»ÊǷdz£ÓÐÓõģ¬Ëü½µµÍÁËÎÒÃDZà³ÌµÄ¸´ÔÓ¶È£¬Ê¹ÎÒÃǵijÌÐòÄ£¿é¸ü¼ÓºÏÀí¡£
A ......
Ò»¡¢ÕâÑùÅäÖõĺô¦£¿
²»Öª´ó¼ÒÓÐûÓÐÌý¹ýÅÔ×¢£¿ÎÒ¼òµ¥µÄ½âÊÍһϰɣºÓиöÈËÏëºÚµôAÕ¾µã£¬µ«ÕÒÀ´ÕÒÈ¥¶¼Ã»·¢ÏÖ¿ÉÀûÓõÄ©¶´£¬ÎÞÒâÖÐËû·¢ÏÖÓëAͬ·þÎñÆ÷ÉÏ»¹ÓиöBÕ¾µã£¬²¢ÇÒÔÚBÕ¾µãÉÏÕÒµ½ÁË¿ÉÀûÓõÄ©¶´£¬ÓÚÊÇËû½«Ä¾Âí´ÓBÕ¾ÖÐÉÏ´«ÖÁ·þÎñÆ÷£¬Èç¹û·þÎñÆ÷ȨÏÞÅäÖò»µ±£¬ÄÇôÏÖÔÚËû¾Í¿ÉÒÔºÚµô·þÎñÆ÷ÉϵÄËùÓÐÕ¾µãÁË£¡Èç¹ûÎÒÃÇΪà ......