[يادەم] بۇ كودنى ئوڭشاشقا ياردەم بەرسەڭلار!

Koinlun · ۋاقتى: 2010-12-9 22:39:14

بۇ مۇنبىرىمنىڭ يېڭى تېما يوللاش بېتىنىڭ كودى:

<%
top
if Request.Cookies("username")=empty then error("
ﺳﯩﺰ ﺗﯧﺨﻰ ﺗﯩﺰﯨﻤﻼﻧﻤﯩﺪﯨﯖﯩﺰ !")
DetectPost
forumid=int(Request("forumid"))
color=HTMLEncode(Request.Form("color"))
topic=HTMLEncode(Request.Form("topic"))
content=ContentEncode(Request.Form("content"))
if badWords<>empty then
filtrate=split(badwords,"|")
for i = 0 to ubound(filtrate)
topic=ReplaceText(topic,""&filtrate(i)&"",string(len(filtrate(i)),"*"))
next
end if
sql="select * from bbsconfig where id="&forumid&""
Set Rs=Conn.Execute(sql)
bbsname=rs("bbsname")
logo=rs("logo")
moderated=rs("moderated")
followid=rs("followid")
pass=rs("pass")
password=rs("password")
userlist=rs("userlist")
rs.close
if membercode>1 or instr("|"&moderated&"|","|"&Request.Cookies("username")&"|")>0 then UserPopedomPass=1
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if Request.ServerVariables("request_method") = "POST" and Request("preview")="" then
If not conn.Execute("Select username From [prison] where username='"&Request.Cookies("username")&"'" ).eof Then error("
ﺳﯩﺰ ﻧﻪﺯﻩﺭﺑﻪﻧﺖ ﻗﯩﻠﯩﻨﻐﺎﻥ")
username=Request.Cookies("username")
icon=Request("icon")
if Len(topic)<10 then message=message&"
ﺗﯧﻤﺎ 10 ﮬﻪﺭﭘﺘﯩﻦ ﺋﺎﺯ ﺑﻮﻟﻤﯩﺴﯘﻥ !"
if Len(content)<20 then message=message&"
ﻣﻪﺯﻣﯘﻥ 20 ﮬﻪﺭﭘﺘﯩﻦ ﺋﺎﺯ ﺑﻮﻟﻤﯩﺴﯘﻥ !"
if Application(CacheName&"LastPostName")=username then
if DateDiff("s",Application(CacheName&"LastPostTime"),Now()) < int(PostTime) then message=message&"
ﻳﻮﻟﻼﻧﻤﺎ ﻳﻮﻟﻼﺵ ﺋﺎﺭﻟﯩﻘﻰ ﻛﻪﻡ ﺩﯨﮕﻪﻧﺪﻩ "&PostTime&" ﺳﯧﻜﯩﻨﯘﺕ ﺑﻮﻟﯘﺷﻰ ﻛﯧﺮﻩﻙ."
end if
if message<>"" then error(""&message&"")
sql="select * from [user] where username='"&HTMLEncode(username)&"'"
rs.Open sql,Conn,1,3
if rs("userlife")<3 then message=message&"
ﺳﯩﺰﻧﯩﯔ ﻛﯜﭼﯩﯖﯩﺰ ﺗﯧﺨﻰ < 3, ﮬﺎﺯﯨﺮﭼﻪ ﻳﻮﻟﻼﻧﻤﺎ ﻳﻮﻟﯩﻴﺎﻟﻤﺎﻳﺴﯩﺰ!
ﮬﻪﺭ 10 ﻣﯩﻨﯘﺕ ﺩﻩﻡ ﺋﺎﻟﻐﺎﻧﺪﯨﻦ ﻛﯧﻴﯩﻦ, ﻛﯜﭼﯩﯖﯩﺰﻧﯩﯔ ﺋﯧﺸﯩﺸﻰ: +10 ﻛﯜﭼﯩﯖﯩﺰﻧﯩﯔ ﺋﯧﺸﯩﺸﻰ: ﺑﻮﻟﯩﺪﯗ."
StopPostTime=int(DateDiff("s",rs("regtime"),Now())/60)
if StopPostTime < int(Reg10) then message=message&"
ﻳﯧﯖﻰ ﺗﯩﺰﯨﻤﻼﻧﻐﯘﭼﻰ "&Reg10&" ﻣﯩﻨﯘﺗﺘﯩﻦ ﻛﯧﻴﯩﻦ ﺗﯧﻤﺎ ﻳﻮﻟﯩﻴﺎﻻﻳﺪﯗ، ﺳﯩﺰ ﻳﻪﻧﻪ "&Reg10-StopPostTime&" ﻣﯩﻨﻨﯘﺕ ﺳﺎﻗﻼﯓ !"
if message<>"" then error(""&message&"")
if UserPopedomPass<>1 then rs("userlife")=rs("userlife")-3
rs("posttopic")=rs("posttopic")+1
rs("money")=rs("money")+3
rs("experience")=rs("experience")+3
rs("landtime")=now()
rs.update
rs.close
if UserPopedomPass=1 and color<>"" then topic=""&topic&""
rs.Open "select top 1 * from forum",conn,1,3
rs.addnew
rs("username")=username
rs("lastname")=username
rs("forumid")=forumid
rs("topic")=topic
rs("content")=content
rs("postip")=Request.ServerVariables("REMOTE_ADDR")
rs("icon")=icon
rs("deltopic")=ActivationForum
rs("ReList")=ReForumName
'''''''''''''''''''''''''''''''''''
'投票处理程序
if Request("vote")<>"" then
vote=Request("vote")
if instr(vote,"|") > 0 then error("
ﺑﯩﻠﻪﺕ ﺗﺎﻻﺵ ﺗﺎﻻﻧﻤﯩﻠﯩﺮﯨﺪﺍ “|” ﺑﻪﻟﮕﯩﺴﻰ ﺑﻮﻟﻤﺎﺳﻠﯩﻘﻰ ﻛﯧﺮﻩﻙ.")
polltopic=split(vote,chr(13)&chr(10))
j=0
for i = 0 to ubound(polltopic)
if not (polltopic(i)="" or polltopic(i)=" ") then
allpolltopic=""&allpolltopic&""&polltopic(i)&"|"
j=j+1
end if
next
if j<2 then error("
ﻛﺎﻡ ﺩﯦﮕﻪﻧﺪﻩ 2 ﺗﺎﻟﻼﺵ ﺗﺎﺭﻣﯩﻘﻰ ﺑﻮﻟﯘﺷﻰ ﻛﯧﺮﻩﻙ")
for y = 1 to j
votenum=""&votenum&"0|"
next
rs("polltopic")=HTMLEncode(allpolltopic)
rs("pollresult")=votenum
rs("multiplicity")=Request("multiplicity")
end if
'''''''''''''''''''''''''''''''''''
rs.update
id=rs("id")
rs.close
conn.execute("update [bbsconfig] set lasttopic='"&left(HTMLEncode(Request.Form("topic")),45)&"',lastname='"&username&"',lasttime='"&now()&"',today=today+1,toltopic=toltopic+1,tolrestore=tolrestore+1 where id="&forumid&"")
conn.execute("update [clubconfig] set today=today+1")
Application.Lock
Application(CacheName&"CountForum") = Application(CacheName&"CountForum")+1
Application(CacheName&"LastPostName")=username
Application(CacheName&"LastPostTime")=now()
Application.UnLock
if ActivationForum=1 then
ActivationForum="ﻣﯘﻧﺒﯩﺮﯨﻤﯩﺰ ﺗﻪﻛﺸﯜﺭﯛﭖ ﺗﻪﺳﺘﯩﻘﻼﺵ ﺗﯜﺯﯛﻣﯩﻨﻰ ﻳﻮﻟﻐﺎ ﻗﻮﻳﺪﻯ، ﺳﯩﺰﻧﯩﯔ ﺗﯧﻤﯩﯖﯩﺰ ﺑﺎﺷﻘﯘﺭﻏﯘﭼﯩﻨﯩﯔ ﺗﻪﺳﺘﯩﻘﯩﺪﯨﻦ ﺋﯚﺗﻜﻪﻧﺪﯨﻦ ﻛﯧﻴﯩﻦ ﺋﺎﻧﺪﯨﻦ ﻛﯚﺭﯨﻨﯩﺪﯗ."
else
ActivationForum="ﺗﯧﻤﯩﻐﺎ ﻗﺎﻳﺘﯩﺶ"
end if
message="
ﺗﯧﻤﺎ ﻳﻮﻟﻼﺵ ﺗﺎﻣﺎﻡ!
"&ActivationForum&"
ﻣﯘﻧﺎﺯﯨﺮﯨﮕﻪ ﻗﺎﻳﺘﯩﺶ
ﻣﯘﻧﺒﻪﺭﮔﻪ ﻗﺎﻳﺘﯩﺶ"
succeed(""&message&"")
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
   <%ClubTree%>

         ← > <%=bbsname%>

         ←  ﺗﯧﻤﺎ يوللاش

>

ﺗﯧﻤﺎ ﻳﻮﻟﻼﺵ

ﺋﯩﺴﻤﻰ

<%=Request.Cookies("username")%> [ﭼﯧﻜﯩﻨﯩﺶ] ﺑﯩﺮﻟﻪﺷﻤﻪ ﻛﯘﻧﯘﭘﻜﺎ Ctrl-K ﺋﺎﺭﻗﯩﻠﯩﻖ ﺋﯘﻳﻐﯘﺭﭼﻪ ﺑﯩﻠﻪﻥ ﺑﺎﺷﻘﺎ ﺗﯩﻠﻼﺭﺩﯨﻜﻰ ﻛﯩﺮﮔﯜﺯﯛﺵ ﮬﺎﻟﯩﺘﯩﻨﻰ ﺋﺎﻟﻤﺎﺷﺘﯘﺭﯗﯓ

ﺗﯧﻤﯩﺴﻰ

">

ﺋﯩﭙﺎﺩﯨﯖﯩﺰ

ﻣﻪﺯﻣﯘﻧﻰ

(ﻣﻪﺯﻣﯘﻥ ﺳﻐﯩﻤﻰ)

ﺑﯧﻠﻪﺕ ﺑﻪﻟﮕﯩﻠﻪﺵ

ﮬﯚﺟﺠﻪﺕ ﻗﯩﺴﺘﯘﺭﯗﺵ

<%
htmlend
%>

مەزمۇننى كۆچۈرۈۋېلىش

تۆۋەندىكى رەسىمدىكى قىزىل دائىرىگە ئېلىنغان قوراللار ئىشلىمىدى!

مۇشۇنى نورمال ئىشلەيدىغان قىلىپ ئوڭشاپ بەرگەن بولساڭلار!
مۇنبەر ئادىرسى: http://www.koinlun.tk/bbs

يەنە بىر گەپ: مۇنبەرگە مىدال بىرىش ئىقتىدارىنى قوشماقچىتتىم، مۇنبەرگە Medal.asp ، ConnMedal.asp ھەمدە database قىسقۇچىدىكى Medal.mdb ھۆججەتلەرنى چىقارغانتىم، تىزىملىكنى مېدال مەركىزى قوشقاندىن كىيىن ئىجرا قىلسام تۆۋەندىكى ئۇچۇر چىقىۋالدى:

Microsoft VBScript ԋАʱ?펳 ?펳 '800a000d'
?Ѝ??ƥŤ: 'HtmlTop'
/bbs/Medal.asp??А 4
باشقا يەرگە قوشىدىغان كود بارمۇ ياكى مەن قىلغان مەشغۇلاتتا خاتالىق بارمۇ؟!

مەزمۇننى كۆچۈرۈۋېلىش

xiax520 · ۋاقتى: 2010-12-17 01:27:25

مەن ئاۋال بىرىنچىسىگە جاۋاپ بىرىپ تۇراي :ئۇلىنىش ئادرىسى خاتامۇ قانداق؟ياكى ھۆججەتنى ئېچىپ كۆرۈپ بېقىڭ! بولسا قىزىل دائىردىكى كۇنۇپكىنى باسقاندا قانداق بەت ئېچىلدىغانلىقى ياكى قانداق ئىنكاس بولدىغانلىقى توغرىسىدا سۆزلەپ ئۆتكەن بولسىڭىز! ناۋادا يېڭى بىر كىچىك بەت ئېچىلىپ 无法显示 چىقىۋالغان بولسا چوقۇم ئۇلىنىش ئادرىسى خاتا بولغان بولىدۇ، ئادەتتە ئۇنى باسقاندا بىر كىچىك html بەت ئېچىلىدۇ،ناۋادا بەت ئېچىلمىسا ياكى ھېچقانداق ئىنكاس بولمىسا بەلكىم مەلۇم جايدىكى js خاتالىقى بۇلىشى مومكىن ، بۇ ئادەتتە بەت تەرجىم قىلىش جەريانىدا چىققان خاتالىق!

Koinlun · ۋاقتى: 2010-12-18 00:37:37

ئىنكاس قايتۇرۇش xiax520 نىڭ يازمىسى

تۆۋەندىكىدەك ئۇچۇرلار چىقىدۇ!

xiax520 · ۋاقتى: 2010-12-18 21:44:10

بۇ بەت تەرجىمە قىلىشتا خاتالىق چىقىپتۇ! مەن سىزگە ئايرىم ئالاقىلىشىش ئوسولۇمنى ئەۋەتىپ بىرەي ، مەن بىلەن ئالاقىلىشىڭ ، قېنى ئىككەيلەن بىر ھەل قىلىپ باقايلى!

xiax520 · ۋاقتى: 2010-12-18 21:48:33

سىزگە ئايرىم خەت ئالىقىلىشش ھوقوقىم يوق كەن ! چ چ بىلەن ئالاقىلىشىڭ 350101364

toghraq · ۋاقتى: 2011-5-11 21:09:23

ھەل قىلىش جەريانىنى مۇشۇ يەردىلا وتتۇرغا قويساڭلا بىزلەرمۇ بىلىپ قالساق بولمامتى

ھېسابات		ساقلاش	پارول قايتۇرىۋېلىش
پارول			تىزىملىتىش

مىكروبلوگ[ يېڭى | 24 سائەت | 7 كۈن | 30 كۈن ]

[يادەم] بۇ كودنى ئوڭشاشقا ياردەم بەرسەڭلار!