asp سېستىمىلاردا كۆپ ئىشلىتىدىغان مۇھىم كودلار

izdinx

1- سىز ئىشلەتكەن سېستىمىنىڭ ۋاختىنى كۆرسىتىدۇ .

<%=now()%>

2- سىنىڭ نۆۋەتتىكى IP نى كۆرسىتىدۇ .

<%=request.serverVariables("remote_host")%>

3- سىزنىڭ نۆۋەتتە ئىشلىتىۋاتقان زىيارەت قىلغۇچىنىڭ نەشىرىنى ئېنىقلاپ كۆرسىتىپ بېرىدۇ .

4- نۆۋەتتىكى بەتنىڭ ھەرىكەتچان سىيرىلغۇچنى يوقىتىدۇ .

5- بىكەتكە كىرگەندە ئېتىلىپ چىقىدىغان ئېلان كودى :

6- ئۈستىگە قاراپ ھەرىكەتلىنىدىغان كود ؛

hhhhhhhhhhhhhhhhhhh

7 - ئاپتۇماتىك بەت تاقاش كودى : (60 سېكونىت تىن كېيىن ئۈچىدۇ ، ئۆزىڭىز خالىغانچە بىكىتىۋالسىڭىزمۇ بولىدۇ .)

本页10秒后自动关闭,请注意刷新页面

8- خالىغانچە قۇيۇلىدىغان بەت تەگىلىك مۇزىكىسى

<%randomize%>
　

60 دىگەن ساننى ئۆزگەرتىۋالسىڭىز بولىدۇ .


9- بەتنى ئاپتۇماتىك چوتكىلايدۇ .

11.ACCESS数据库连接:

<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
'更改数据库名字
db="data/dvBBS5.mdb"
Set conn = Server.createObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>

12.SQL数据库连接:

<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
connstr="driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs"
Set conn = Server.createObject("ADODB.Connection")
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>

13- كۇنۇپكا تاختىسىنى ئىشلىتىپ تور بەت ئېچىش

　

这里是Ctrl+Enter和Alt+S的代码 自己查下键盘的ASCII码再换就行
14.让层不被控件复盖代码:

＃ 前面

＃ 后面

15.动网FLASH广告代码:

16.VBS弹出窗口小代码:

مىللىتىم

ئەسسالامۇ ئەلەيكۇم مەنمۇ asp توربەت پىرگوراممىسى لاھىلەشنى ئۇگىنىۋاتقان ئەگەر خالىسىڭىز ماڭا asp بىلىملىرىنى ئۇگىتىپ قويغان بولسىڭىز......

bahit8

كۆپ كۆپ كۆپ رەھمەت، بەك ئىشلىتىشچانلىققا ئىگە ئىكەن،  بولسا مۇشتا ئىشلىتىشچانلىققا ئىگە كودلارنى كۆپرەك يوللىسىڭىز بولاتتى،راس تاپماق تەسلىرىنى（كۈلگەن چىراي ئىپادىسى）