ÿ"U—4Ä¸¡)2h« tetNN,f[O!jHr„vO(u,©‹êñ]„vu˜P[9eHrôf{~gÿubY—`html(uY_Nˆ_'Y.. !jg—‰ïSåN(W¿~<a href="../InfoList/Catalog_138_1.html" target="_blank" title="5ulxöNô~îO">îO</a>9eÿNb—>N‹O/fÇ‘(upenc“^ÝOX[!jgãNx 0_NïSåN(uFSOI{û‹ÖSxdHrÿ£1\ N—‰>e0Rpenc“^-Nÿ 1ÿpenc“^test.mdb °eú^hˆmobanÿW[µkm_idÿê¨R÷Sÿ;NsQ.•W[ ÿÿW[µkm_htmlÿYèl{|‹W ÿ 2ÿGP¾‹,{N!jg…Q¹[ãNx \NRãNx÷b0Rm_htmlW[µk-N <table width="90%" border="0" cellpadding="0" cellspacing="1" class="ubb_code"><tr><td><html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>test</title> </head> <body leftmargin="0" topmargin="0"> <table width="100%" height="100%" border="0" cellpadding="5" cellspacing="2"> <tr align="right" bgcolor="#CCCCCC"> <td height="20" colspan="2">$cntop$</td> </tr> <tr valign="top"> <td width="25%" bgcolor="#e5e5e5">$cnleft$</td> <td width="74%" bgcolor="#f3f3f3">$cnright$</td> </tr> </table> </body> </html></td></tr> èlã‰$cntop$0$cnleft$0$cnright$ÿƒ[ìN/f(uegž[°sÐg›NwQSO„vz^ŸRý€,‚Yh˜˜ÿck‡eI{.. 3ÿú^Ëzpenc“^Þ¥c‡eöNconn.asp <table width="90%" border="0" cellpadding="0" cellspacing="1" class="ubb_code"><tr><td><% set conn= Server.CreateObject("ADODB.Connection") connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("test.mdb") conn.Open connstr %></td></tr></table> 4ÿú^ËzyrŠkW[&{2Nlbc@b—‰„v‡eöN config.asp å‹‡eöN„v;N‰\O(u/f\ž[°sÐg›NŸRý€„vASPz^ZPbW[z^ÿåN¹e¿OŒ(u0 <table width="90%" border="0" cellpadding="0" cellspacing="1" class="ubb_code"><tr><td><% dim topcode sub cntop() topcode="°s(Wöeô•/fÿ" topcode=topcode&now() end sub dim leftcode,i sub cnleft() for i = 1 to 5 leftcode=leftcode&"im286.com" next end sub dim rightcode sub cnright() for i = 1 to 9 rightcode=rightcode&"<hr color="&i&i&i&i&i&i&">" next end sub %></td></tr></table> 5ÿgTÿŒ(upenc“^-N„v!jgãNxÿ\yrŠkW[&{2Nlbc0 <table width="90%" border="0" cellpadding="0" cellspacing="1" class="ubb_code"><tr><td>  <% sql="select * from moban where m_id=1" set rs=Server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 mb_code=rs("m_html") rs.close set rs=nothing cntop() mb_code=replace(mb_code,"$cntop$",topcode) cnleft() mb_code=replace(mb_code,"$cnleft$",leftcode) cnright() mb_code=replace(mb_code,"$cnright$",rightcode) response.write mb_code %></td></tr></table> Nb—1\/f]!jgãNxÛLˆ>f:yÿv^\vQ-N„vyrŠkãNxlØS:Nøvù[”^P[z^ŸRý€0 ódkÿg€{US„vASP„v!jgŸRý€úW,gŒ[b... 'Y¶[(W†Nã‰Œcác¹eÕlTÿ1\ïSåNêñ]îO9e‘úQTêñ]O(u„vxdHr†Nÿ T«Z¸T ïäŸ€Ÿ8@‘ð¸Ù,\T¬¹ ?ºXV»Ÿ€Ÿ8@‘ð¸Ù,\T¼ ?½(V¾Ÿ€Ÿ8@‘ð¸Ù,\pÈ`ÿ"U—þ¹¡)"ž¬ 1.‚YUO(uAsp$Re`O„vQ<a href="../InfoList/Catalog_134_1.html" target="_blank" title="ú^Ùz¤NAm">Ùz</a>„vZ†ßbirtï„_ 00T{ÿO(uMappath¹eÕl 00 00The Physical path to this virtual website is: 00 00 00< %= Server.MapPath("\")% > 00 002.b‚YUOåwSO(u€@b(u„v<a href="../InfoList/Catalog_58_1.html" target="_blank" title="Qu˜OmÈ‰øvsQåwÆ‹€bç]">OmÈ‰</a>hVÿ 00T{ÿO(uthe Request object¹eÕl 00strBrowser=Request.ServerVariables("HTTP_USER_AGENT") 00If Instr(strBrowser,"MSIE") < > 0 Then 0000Response.redirect("ForMSIEOnly.htm") 00Else 0000Response.redirect("ForAll.htm") 00End If 3.‚YUO¡‹—{Ïk)Y„vs^GWÍS Y¿‹î•ºNpe 00T{ÿã‰³Q¹eÕl 00< % startdate=DateDiff("d",Now,"01/01/1990") 00if strdate< 0 then startdate=startdate*-1 00avgvpd=Int((usercnt)/startdate) % > 00>f:yÓ~œg 00< % response.write(avgvpd) % > 00that is it.this page have been viewed since November 10,1998 4.‚YUO>f:y–:gþVaŒ 00< % dim p,ppic,dpic 00ppic=12 00randomize 00p=Int((ppic*rnd)+1) 00dpic="graphix/randompics/"&p&".gif" 00% > 00>f:y 00< img src="< %=dpic% >" > 5.‚YUOÞV0RHQMR„vu˜b— 00T{ÿ< a href="< %=request.serverVariables("Http_REFERER")% >" >preivous page< /a > 00b(uþVGr‚Yÿ< img src="http://www.vipcn.com/InfoView/"arrowback.gif"" alt="< %=request.serverVariables("HTTP_REFERER")% >" > 6.‚YUOnxš[ù[¹e„vIP0W@W 00T{ÿ< %=Request.serverVariables("REMOTE_ADDR)% > 7.‚YUOþ”Ó~0RNoRþVGr N 00T{ÿ< % @Languages=vbscript % > 00< % response.e<a href="../InfoList/Catalog_26_1.html" target="_blank" title="XP€bç] XPØy{">XP</a>ires=0 00strimagename="graphix/errors/erroriamge.gif" 00response.redirect(strimagename) 00% > 8.:_ë“eQÆ[xù[Ý‹Fh 00T{ÿŠbÙåSÝ‹>e}u˜b—„v_4Y 00< % response.status="401 not Authorized" 00response.end 00% > 9.‚YUO OØSÏ‘ÎNMu˜0RæSNu˜ 00T{ÿ(u HIDDEN {|‹Weg OØSÏ‘ 00< % form method="post" action="mynextpage.asp" > 00< % for each item in request.form % > 00< input namee="< %=item% >" type="HIDDEN" 00value="< %=server.HTMLEncode(Request.form(item)) % >" > 00< % next % > 00< /form > 10.:NUOb(W asp z^…QO(u msgboxÿz^úQ•ô‹¡l gCgP– 00T{ÿ1uŽN asp /f g¡RhVÐLˆ„vÿ‚YœgïSåN(W g¡RhV>f:yN*Nù[Ý‹Fhÿ£HN`OêS}YI{ gºN c†Nnxš[KNTÿ`O„vz^Mbý€ç~í~gbLˆÿ€N,‚ g¡RhV NO gºNˆ[@wÿ@båN®_o N—_ NybkÙ*NýQpeÿv^á€qNJTÉ‹`O (:) uTuT) ¡l gCgP•0FO/fASPŒT¢[7bïz,gÓ~TPïSåN>f:yN*Nù[Ý‹Fhÿas follows: 00< % yourVar="KmÕ‹ù[Ý‹Fh"% > 00< % script language='<a href="../InfoList/Catalog_110_1.html" target="_blank" title="javascriptøvsQåwÆ‹€bç]">javascript</a>' > 00alert("< %=yourvar% >") 00< /script > 11. g¡l gžRÕlÝO¤bêñ]„vnãNxÿ NÙ~ºNw0R 00T{ÿïSåN»S<a href="http://www.vipcn.com" target="_blank" title="oöNN}">N}</a>N*N®_o„vWindows Script Encoderÿƒ[ïSåNù[asp„v,gŒT¢[7bïzjavascript/vbscript,gÛLˆ RÆ[000 NÇ¢[7bïz RÆ[TÿêS gie5Mbý€gbLˆÿ g¡RhVïz,g RÆ[TÿêS g g¡RhV N‰[Åˆ gscript engine 5ÿÅˆN*Nie51\ g†N ÿMbý€gbLˆ0 12.`7hMbý€\ query string ÎNN*N asp ‡eöN O0RæSN*Nÿ 00T{ÿMR€‡eöN ReQNåSÿ Response.Redirect("second.asp?" & Request.ServerVariables("QUERY_STRING")) 13.global.asa‡eöN;`/f Nw\O(u? 00T{ÿêS gwebîvU_¾‹n:Nweb application, global.asaMb gHeÿv^NN*Nweb application„v9hîvU_N global.asaMb gHe0IIS4ïSåNO(uInternet Service Manager¾‹napplication setting `7hMbý€O—_htm‡eöN‚YTasp‡eöNN7hïSåNgbLˆ,gãNxÿ 14.`7hMbý€O—_htm‡eöN‚YTasp‡eöNN7hïSåNgbLˆ,gãNxÿ 00T{ÿInternet Sevices Manager - > ébdefault web site - >óS Ÿ.•- >ÜƒUS^\'`- 0;NîvU_- > ”^(uz^¾‹nÿApplication Setting ÿ- > ¹pûQ c®” "M‘n"- > app mapping - >¹pûQ c®”"Add" - > executable browse éb \WINNT\SYSTEM32\INETSRV\ASP.DLL EXTENSION “eQ htm method exclusions “eQPUT.DELETE hQènxš[sSïS0FO/f<b`ÿ"U—þº¡)ž¬r>15.‚YUOèlŒQÄ~öN 00T{ÿ g$NÍy¹eÕl0 00,{NÍy¹eÕlÿKbå]èlŒQ DLL ÙÍy¹eÕlÎNIIs 3.0NôvO(u0RIIs 4.0ŒTvQƒ[„vWeb Server0ƒ[—‰`O(W}TäNLˆ¹e_NeggbLˆÿÛeQ0RS+T gDLL„vîvU_ÿv^“eQÿregsvr32 component_name.dll ‹O‚Y c:\temp\regsvr32 AspEmail.dll ƒ[OŠbdll„vyrš[áOo`èlŒQeQ g¡RhV-N„v<a href="../InfoList/Catalog_31_1.html" target="_blank" title="èlŒQhˆøvsQåwÆ‹€bç]">èlŒQhˆ</a>-N06qTÙ*NÄ~öN1\ïSåN(W g¡RhV NO(u†NÿFO/fÙ*N¹eÕl gN*N:w–0S_O(uÙÍy¹eÕlèlŒQŒ[ÕkÄ~öNTÿå‹Ä~öNÅ_{˜‰øv”^„v¾‹nNT„v?S T^÷S gCgP–gbLˆÙ*Ndll0yr+R/fN›NÄ~öN—‰û‹ÖSèlŒQhˆÿ@båNÿÙ*NèlŒQÄ~öN„v¹eÕlÅNÅN/fO(u(W g¡RhV N¡l gMTS„vÅ`µQNÿ‰ÖSˆmèlŒQÙ*NdllÿO(uÿregsvr32 /u aspobject.dll example c:\temp\regsvr32 /u aneiodbc.dll ,{ŒNÍy¹eÕlÿO(uMTS(Microsoft Transaction Server) MTS/fIIS 4°ežXyrr‚ÿFO/fƒ[Ðc›O†Nè]'Y„v9eÛ0MTSAQ¸‹`Ocš[êS g gyrCg„v(u7bMbý€Y¿‹î•Ä~öNÿ'Y'YÐcØš†NQÙz g¡RhV N„v<a href="../InfoList/Catalog_59_1.html" target="_blank" title="QÜ~‰[hQD¯‹">‰[hQ</a>'`¾‹n0(WMTS NèlŒQÄ~öN„vek¤š‚YNÿ 001) Sb_IIS¡{t§c6RðS0 002) U\_transaction serverÿóS.•USûQ"pkgs installed"6qT éb"new package"0 003) USûQ"create an empty package"0 004) Ù~å‹S}T T0 005) cš[administrator^÷SbRO(u"interactive"ÿ‚Yœg g¡RhVÏ~8^/fO(uadministrator {vF–„vÝ‹ ÿ0 006) °s(WO(uóS.•USûQ`ORú^Ëz„v£*NSMb—U\_T„v"components"0 éb "new then component"0 007) éb "install new component" [b]0 008) ~b0R`O„v.dll‡eöN6qT ébnext0RŒ[b0 00‰ Rd–Ù*Nù[aŒÿêS‰ ébƒ[„vþVhÿ6qT ébdelete0 00D–èlÿyr+R‰èla,{ŒNÍy¹eÕlÿƒ[/f(uegŒÕ‹êñ]™QÄ~öN„vg}Y¹eÕlÿ€ NÅ_Ïk!ký—‰Í‘°e/T¨R:ghV†N0 16. ASPN<a href="../InfoList/Catalog_52_1.html" target="_blank" title="AccessåwÆ‹€bç]">Access</a>penc“^Þ¥cÿ <%@ language=VBscript%> 00<% 00dim conn,mdbfile 00mdbfile=server.mappath("penc“^ Tðy.mdb") 00set conn=server.createobject("adodb.connection") 00conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=penc“^Æ[x;dbq="&mdbfile %> 17. ASPNSQLpenc“^Þ¥cÿ <%@ language=VBscript%> 00<% 00dim conn 00set conn=server.createobject("ADODB.connection") 00con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL g¡RhV TðybIP0W@W;UID=sa;PWD=penc“^Æ[x;DATABASE=penc“^ Tðy 00%> ú^Ëz°‹U_Æ–ù[aŒÿ set rs=server.createobject("adodb.recordset") 00rs.open SQLí‹åS,conn,3,2 0018. SQL8^(u}TäNO(u¹eÕlÿ (1) penc°‹U_[{ ÿ sql="select * from penchˆ where W[µk T=W[µk

sql="select * from penchˆ where W[µk T like '%W[µk sql="select top 10 * from penchˆ where W[µk T order by W[µk T [desc]" sql="select * from penchˆ where W[µk T in (' sql="select * from penchˆ where W[µk T between (2) ôf°epenc°‹U_ÿ sql="update penchˆ set W[µk T=W[µk

sql="update penchˆ set W[µk1= (3) Rd–penc°‹U_ÿ sql="delete from penchˆ where agöNhˆ¾_" sql="delete from penchˆ" (\penchˆ@b g°‹U_ Rd–) (4) ûm Rpenc°‹U_ÿ sql="insert into penchˆ (W[µk1,W[µk2,W[µk3 & ) valuess ( sql="insert into îvhpenchˆ select * from npenchˆ" (Šbnpenchˆ„v°‹U_ûm R0Rîvhpenchˆ) (5) penc°‹U_ß~¡‹ýQpeÿ AVG(W[µk T) —_úQN*Nhˆ00COUNT(*W[µk T) ù[pencLˆpe„vß~¡‹bù[ÐgNh g00MAX(W[µk T) ÖS—_N*Nhˆ00MIN(W[µk T) ÖS—_N*Nhˆ00SUM(W[µk T) Šbpench„v _(uåN NýQpe„v¹eÕlÿ sql="select sum(W[µk T) as +R T from penchˆ where agöNhˆ¾_" 00set rs=conn.excute(sql) (u rs("+R T") ·ƒÖSß~„v¡‹

(5) penchˆ„vú^ËzŒT Rd–ÿ CREATE TABLE penchˆ Tðy(W[µk1 {|‹W1(•¦^),W[µk2 {|‹W2(•¦]) & & ) ‹OÿCREATE TABLE tab01(name varchar(50),datetime default now()) DROP TABLE penchˆ Tðy (8lEN'` Rd–N*Npenchˆ) 19. °‹U_Æ–ù[aŒ„v¹eÕlÿ rs.movenext \°‹U_cˆ”ÎNS_MR„vMOnTNûyNLˆ 00rs.moveprevious \°‹U_cˆ”ÎNS_MR„vMOnT NûyNLˆ 00rs.movefirst \°‹U_cˆ”ûy0Rpenchˆ,{NLˆ 00rs.movelast \°‹U_cˆ”ûy0RpenchˆgTNLˆ 00rs.absoluteposition=N \°‹U_cˆ”ûy0Rpenchˆ,{NLˆ 00rs.absolutepage=N \°‹U_cˆ”ûy0R,{Nu˜„v,{NLˆ 00rs.pagesize=N ¾‹nÏku˜:NNag°‹U_ 00rs.pagecount 9hnc pagesize „v¾‹nÔÞV;`u˜pe 00rs.recordcount ÔÞV°‹U_;`pe 00rs.bof ÔÞV°‹U_cˆ”/f&T…úQpenchˆ–™ïzÿtruehˆ:y/fÿfalse:N&T 00rs.eof ÔÞV°‹U_cˆ”/f&T…úQpenchˆ+gïzÿtruehˆ:y/fÿfalse:N&T 00rs.delete Rd–S_MR°‹U_ÿFO°‹U_cˆ” NOTNûy¨R 00rs.addnew ûm R°‹U_0Rpenchˆ+gïz 00rs.update ôf°epenchˆ°‹U_ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ 20 Recordsetù[aŒ¹eÕl Open¹eÕl recordset.Open Source,ActiveConnection,CursorType,LockType`ÿ"U—X¦»¡) 4F¬,Options Source 00Recordsetù[aŒïSåNÇSource^\'`egÞ¥cCommandù[aŒ0SourceÂSpeïSåN/fN*NCommandù[aŒ Tðy0NµkSQL}TäN0N*Ncš[„vpenchˆ Tðyb/fN*NStored Procedure0GP‚YweuÙ*NÂSpeÿû|ß~RÇ‘(uRecordsetù[aŒ„vSource^\'`0 ActiveConnection 00Recordsetù[aŒïSåNÇActiveConnection^\'`egÞ¥cConnectionù[aŒ0ÙÌ‘„vActiveConnectionïSåN/fN*NConnectionù[aŒb/fN2NS+Tpenc“^Þ¥cáOo`ÿConnectionString ÿ„vW[&{2NÂSpe0 CursorType 00Recordsetù[aŒOpen¹eÕl„vCursorTypeÂSpehˆ:y\åNÀNHN7h„v8nh{|‹W/T¨RpencÿSìbadOpenForwardOnly0adOpenKeyset0adOpenDynamicÊSadOpenStaticÿRð‚YNÿ 10-------------------------------------------------------------- 008^pe 8^pe

00------------------------------------------------------------- 00adOpenForwardOnly 0 :w

00adOpenKeyset 1 /T¨RN*NKeyset{|‹W„v8nh0 00adOpenDynamic 2 /T¨RN*NDynamic{|‹W„v8nh0 00adOpenStatic 3 /T¨RN*NStatic{|‹W„v8nh0 00------------------------------------------------------------- 00åN NàQ*N8nh{|‹W\ôv¥cq_ÍT0RRecordsetù[aŒ@b g„v^\'`ŒT¹eÕlÿåNNRhˆô‹fÖNìNKNô•„v:S+R0 ------------------------------------------------------------- 01Recordset^\'` adOpenForwardOnly adOpenKeyset adOpenDynamic adOpenStatic 00------------------------------------------------------------- 00AbsolutePage N/ec N/ec ïSû‹™Q ïSû‹™Q 00AbsolutePosition N/ec N/ec ïSû‹™Q ïSû‹™Q 00ActiveConnection ïSû‹™Q ïSû‹™Q ïSû‹™Q ïSû‹™Q 00BOF êSû‹ êSû‹ êSû‹ êSû‹ 00Bookmark N/ec N/ec ïSû‹™Q ïSû‹™Q 00CacheSize ïSû‹™Q ïSû‹™Q ïSû‹™Q ïSû‹™Q 00CursorLocation ïSû‹™Q ïSû‹™Q ïSû‹™Q ïSû‹™Q 00CursorType ïSû‹™Q ïSû‹™Q ïSû‹™Q ïSû‹™Q 00EditMode êSû‹ êSû‹ êSû‹ êSû‹ 00EOF êSû‹ êSû‹ êSû‹ êSû‹ 00Filter ïSû‹™Q ïSû‹™Q ïSû‹™Q ïSû‹™Q 00LockType ïSû‹™Q ïSû‹™Q ïSû‹™Q ïSû‹™Q 00MarshalOptions ïSû‹™Q ïSû‹™Q ïSû‹™Q ïSû‹™Q 00MaxRecords ïSû‹™Q ïSû‹™Q ïSû‹™Q ïSû‹™Q 00PageCount N/ec N/ec êSû‹ êSû‹ 00PageSize ïSû‹™Q ïSû‹™Q ïSû‹™Q ïSû‹™Q 00RecordCount N/ec N/ec êSû‹ êSû‹ 00Source ïSû‹™Q ïSû‹™Q ïSû‹™Q ïSû‹™Q 00State êSû‹ êSû‹ êSû‹ êSû‹ 00Status êSû‹ êSû‹ êSû‹ êSû‹ 00AddNew /ec /ec /ec /ec 00CancelBatch /ec /ec /ec /ec 00CancelUpdate /ec /ec /ec /ec 00Clone N/ec N/ec 00Close /ec /ec /ec /ec 00Delete /ec /ec /ec /ec 00GetRows /ec /ec /ec /ec 00Move N/ec /ec /ec /ec 00MoveFirst /ec /ec /ec /ec 00MoveLast N/ec /ec /ec /ec 00MoveNext /ec /ec /ec /ec 00MovePrevious N/ec /ec /ec /ec 00NextRecordset /ec /ec /ec /ec 00Open /ec /ec /ec /ec 00Requery /ec /ec /ec /ec 00Resync N/ec N/ec /ec /ec 00Supports /ec /ec /ec /ec 00Update /ec /ec /ec /ec 00UpdateBatch /ec /ec /ec /ec 00-------------------------------------------------------------- 00vQ-NNextRecordset¹eÕlv^ N(uŽNMicrosoft Accesspenc“^0 LockType 00Recordsetù[aŒOpen¹eÕl„vLockTypeÂSpehˆ:y‰Ç‘(u„vLock{|‹Wÿ‚Yœgý_euÙ*NÂSpeÿ£HNû|ß~OåNRecordsetù[aŒ„v LockType^\'`:N„˜¾‹ ------------------------------------------------------------- 008^pe 8^pe

00-------------------------------------------------------------- 00adLockReadOnly 1 :w

00adLockPrssimistic 2 S_penanck(Wôf°eöeÿû|ß~O‚föe•OOvQÖN(u7b„v¨R\OÿåNÝOcpencNô'`0 00adLockOptimistic 3 S_pencnck(Wôf°eöeÿû|ß~v^ NO•OOvQÖN(u7b„v¨R\OÿvQÖN(u7bïSåNù[pencÛLˆžX0 R09e„vÍd\O0 00adLockBatchOptimistic 4 S_pencnck(Wôf°eöeÿvQÖN(u7bÅ_{˜\CursorLocation^\'`9e:NadUdeClientBatchMbý€ù[pencÛLˆžX0 R09e„vÍd\O0 `ÿ"U—þ¼¡)&ž <table width="90%" border="0" cellpadding="0" cellspacing="1" class="ubb_code"><tr><td>rem ---hˆUSÐc:yýQpe Being----------------------------- CODE Copy ... Function Check_submit(str,restr) if str="" then response.write "<script>" response.write "alert('"&restr&"');" response.write "history.go(-1)" response.write "</script>" response.end else Check_submit=str end if End Function CODE Copy ... Function Alert_submit(str) response.write "<script>" response.write "alert('"&str&"');" 'response.write "location.reload();" response.write "</script>" End Function CODE Copy ... Function localhost_submit(str,urls) response.write "<script>" if str<>"" then response.write "alert('"&str&"');" end if response.write "location='"&urls&"';" response.write "</script>" End Function rem ---ubêš[INMO–:gpe Being-----------------------------CODE Copy ... Function makerndid(byVal maxLen) Dim strNewPass Dim whatsNext, upper, lower, intCounter RANdomize For intCounter = 1 To maxLen whatsNext = int(2 * Rnd) If whatsNext = 0 Then upper = 80 lower = 70 Else upper = 48 lower = 39 End If strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + upper)) Next makerndid = s