📄 default.asp
字号:
Gosterilen_kayit = 1
End If
rstSearch.AbsolutePage = Gosterilen_kayit
Response.Write "total "&Toplam_Kayit&" pages(s) found and showing page "&Gosterilen_kayit&". <br/>"
i = 0
do while i < kackayitperpage and not rstSearch.Eof
Response.Write "<a href="""&Request.ServerVariables("SCRIPT_NAME")&"?p=uayrinti&user="&rstSearch.Fields("un").Value&"&un="&request("un")&"&pw="&request("pw")&""">"&rstSearch.Fields("un").Value&"</a><br/>"
i = i + 1
rstSearch.MoveNext
Loop
else
Response.Write "nothing found<br/>"
end if
rstSearch.Close
Set rstSearch = Nothing
cnnSearch.Close
Set cnnSearch = Nothing
%>
<%if not Gosterilen_kayit=Toplam_Kayit then%>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=finddo&un=<%=request("un")%>&pw=<%=request("pw")%>&s=<%=Gosterilen_kayit+1%>&user=<%=aranankisi%>">next</a><br/>
<%end if%>
<%if not ((Gosterilen_kayit-1)=0 or (Gosterilen_kayit-1)<0 ) then%>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=finddo&un=<%=request("un")%>&pw=<%=request("pw")%>&s=<%=Gosterilen_kayit-1%>&user=<%=aranankisi%>">preview</a><br/>
<%end if%>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=&un=<%=request("un")%>&pw=<%=request("pw")%>">back</a>
<do type="accept" label="MySiteName">
<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=&un=<%=request("un")%>&pw=<%=request("pw")%>" method="get">
</go></do></p></card></wml>
<% end sub%>
<% sub regit()
Response.ContentType = "text/vnd.wap.wml"
%><%=header%><card id="MySiteName" <%=siteadim%>>
<p align="left">
<%
username=Request("unu")
username=Replace(username,"<","")
username=Replace(username,"'","")
username=Replace(username,"%","")
username=Replace(username,">","")
username=Replace(username,"!","")
username=Replace(username," ","")
username=username
pw=Request("pwim")
pw=Replace(pw,"<","")
pw=Replace(pw,"'","")
pw=Replace(pw,"%","")
pw=Replace(pw,"@","")
pw=Replace(pw,">","")
pw=Replace(pw," ","")
pw=pw
If username="" Then
hata("username empty")
Response.End
end if
If pw="" Then
hata("password empty")
Response.End
end if
sayi = array("0","1","2","3","4","5","6","7","8","9","2")
harf=array("a","b","c","d","e","f","g","h","L","i","j","k","L","m","n","o","p","r","s","t","u","v","y","z","q","w","x")
x="5"
randomize
t=1
for a = 1 to int(x)
if t=1 then
y=sayi(int((rnd*11)+0))
t=0
else
y=harf(int((rnd*27)+0))
t=1
end if
onaykodu = onaykodu & y
next
onaykodu=username + onaykodu
Vt_Pth=Server.Mappath(""&UserDb&"")
Cumle= "DBQ="& Vt_Pth &";Driver={Microsoft Access Driver (*.mdb)}"
Set Baglanti=Server.CreateObject("Adodb.Connection")
Baglanti.Open Cumle
Set Rs=Server.CreateObject("Adodb.Recordset")
Sorgu="Select * from userdb where un='"& username &"' or mail='"& Request("mail") &"' or ceptel='"& Request("ceptel") &"'"
Rs.Open Sorgu, Baglanti, 1, 3
if Rs.EOF or Rs.BOF then
Rs.AddNew
cepteltiklimi=true
mailtiklimi=true
Rs("un")=username
Rs("pw")=pw
Rs("ceptel")=Request("ceptel")
Rs("ceptelinvisible")=cepteltiklimi
Rs("mail")=Request("mail")
Rs("mailinvisible")=mailtiklimi
Rs("uin")="1"
Rs("isim")=Request("isim")
Rs("soyisim")=""
Rs("cins")=Request("cins")
Rs("yas")=Request("yas")
Rs("meslek")=""
Rs("sehir")=Request("sehir")
Rs("ulke")=Request("isim")
Rs("picture")="0"
Rs("comments")=Request("comments")
Rs("songiris")=date()
Rs("smscount")="0"
Rs("giriscount")="1"
Rs("onaykodu")=onaykodu
Rs("onaylandimi")=True
Rs("kayittarihi")=date()
Rs("smsdate")=date()
Rs("totalsmscount")=0
Rs("sentpmcount")=0
Rs("sentforumcount")=0
else
if Rs("un")=username then
hata("username exist")
Response.End
end if
if Rs("ceptel")=Request("ceptel") then
hata("mobile number exist")
Response.End
end if
if Rs("mail")=Request("mail") then
hata("email exist")
Response.End
end if
Response.End
end if
Rs.Update
Rs.Close
Set Rs=Nothing
Baglanti.Close
Set Baglanti=Nothing
'txtmailbody="Welcome to MySiteName"&VbCrLf&"Username: "&username&""&VbCrLf&"Password:"&pw&""&VbCrLf&"Verification code="&onaykodu&" "&VbCrLf&""
'txtmailbodyiki="go to http://www.djsquidjywap.cheekywap.com via wap select verify link then enter your code"
'txtmailbody = txtmailbody & txtmailbodyiki & crlf
'mail send
'SendTo=Request("mail")
'From="noreply@stormywap.co.uk"
'ReplyTo="noreply@stormywap.co.uk"
'Subject="MySiteName registration"
'Body=txtmailbody
'Attachments=""
'Format="text"
'SendMail SendTo,From,ReplyTo,Subject,Body,Attachments,Format
Response.Write "Your registration has been saved.<br/>You can start using this account<br/>Thank you"%>
<do type="accept" label="MySiteName">
<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=&un=<%=request("un")%>&pw=<%=request("pw")%>" method="get">
</go></do></p></card></wml>
<% end sub%>
<% sub hata(h_adi)%>
<%response.write h_adi%>
<do type="accept" label="MySiteName">
<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=&un=<%=request("un")%>&pw=<%=request("pw")%>" method="get">
</go></do></p></card></wml>
<%end sub %>
<%
Sub SendMail(SendTo,From,ReplyTo,Subject,Body,Attachments,Format)
'### Defines which email component to use.
'Valid values are:"persist","jmail", "aspmail", "cdo" or "cdonts" (Note: cdonts only works with the local server, SMTPMailServer is ignored! CDO has problems on some servers.).
MailComponent="persist"
'### SMTP Mailserver to be used to send account information to users.
MailServer="localhost"
'where the attchments are
AttachPath = Server.MapPath("../attach")
' ### Send mail with Persist
If LCase(MailComponent="persist") Then
Set Msg = Server.CreateObject("Persits.MailSender")
Msg.Host = MailServer
Msg.From = From
Msg.AddReplyTo ReplyTo, ReplyTo
Msg.AddAddress SendTo
Msg.Subject = Subject
Msg.Body = Body
If IsArray(Attachments) Then
For i = 0 To Ubound(Attachments)
Msg.AddAttachment AttachPath & Attachments(i)
Next
End If
if Format="html" Then
Msg.IsHTML = True
else
Msg.IsHTML = False
end if
Msg.send
Set Msg=Nothing
End If
End Sub
%>
<% sub verifyb()
Response.ContentType = "text/vnd.wap.wml"
%><%=header%><card id="MySiteName" <%=siteadim%>>
<p align="center">
<%
Vt_Pth=Server.Mappath(""&UserDb&"")
Cumle= "DBQ="& Vt_Pth &";Driver={Microsoft Access Driver (*.mdb)}"
Set Baglanti=Server.CreateObject("Adodb.Connection")
Baglanti.Open Cumle
Set Rs=Server.CreateObject("Adodb.Recordset")
Sorgu="Select * from userdb where onaykodu='"& Request("onaykodu") &"'"
Rs.Open Sorgu, Baglanti, 1, 3
if Rs.EOF or Rs.BOF then
Response.Write "Check your code"
else
Rs("onaylandimi")=True
Rs("onaytarihi")=date()
Rs.Update
Response.Write "Succes<br/>Welcome to MySiteName<br/><a href="""&Request.ServerVariables("SCRIPT_NAME")&"?p=&un="&Rs("un")&"&pw="&Rs("un")&""">go</a>"
Rs.Close
Set Rs=Nothing
Baglanti.Close
Set Baglanti=Nothing
end if
%><do type="accept" label="MySiteName">
<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=&un=<%=request("un")%>&pw=<%=request("pw")%>" method="get">
</go></do></p></card></wml>
<%end sub%>
<% sub verify()
Response.ContentType = "text/vnd.wap.wml"
%><%=header%><card id="MySiteName" <%=siteadim%>>
<p align="center">enter your verification code<br/>
<input name="code" value="" title="code:"/><br/>
<anchor>
<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=verifyb" method="post">
<postfield name="onaykodu" value="$code"/>
</go>verify</anchor>
<do type="accept" label="MySiteName">
<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=&un=<%=request("un")%>&pw=<%=request("pw")%>" method="get">
</go></do></p></card></wml>
<% end sub%>
<% sub gbv()
checklogin
Response.ContentType = "text/vnd.wap.wml"
%><%=header%>
<card id="by" title="MySiteName forums">
<p align="left">
<!--#INCLUDE FILE="incs/pmalert.asp"-->
<%=KmLinkiYazdir%>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&un=<%=request("un")%>&pw=<%=request("pw")%>&f=1">Forum1</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&un=<%=request("un")%>&pw=<%=request("pw")%>&f=2">Forum2</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&un=<%=request("un")%>&pw=<%=request("pw")%>&f=3">Forum3</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&un=<%=request("un")%>&pw=<%=request("pw")%>&f=4">Forum4</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&un=<%=request("un")%>&pw=<%=request("pw")%>&f=5">Forum5</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&un=<%=request("un")%>&pw=<%=request("pw")%>&f=6">Forum6</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&un=<%=request("un")%>&pw=<%=request("pw")%>&f=7">Forum7</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&un=<%=request("un")%>&pw=<%=request("pw")%>&f=8">Forum8</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&un=<%=request("un")%>&pw=<%=request("pw")%>&f=9">Forum9</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&un=<%=request("un")%>&pw=<%=request("pw")%>&f=10">Forum10</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=&un=<%=request("un")%>&pw=<%=request("pw")%>">back</a><br/>
<br/><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=userswap&un=<%=request("un")%>&pw=<%=request("pw")%>">online users</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=viewpms&un=<%=request("un")%>&pw=<%=request("pw")%>">im</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=csec&un=<%=request("un")%>&pw=<%=request("pw")%>">chat</a><br/>
<do type="accept" label="MySiteName">
<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=&un=<%=request("un")%>&pw=<%=request("pw")%>" method="get">
</go></do></p></card></wml>
<% end sub%>
<% sub gbv2()
checklogin
Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&ForumDb&"")
set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from sorular where forumid='"&request("f")&"' order by updatedate desc"
rs.open SQL,bag,1,3
if not rs.eof then
Kayit_Sayisi = 8
rs.pagesize = Kayit_Sayisi
If Request("s") = "" Then
Gosterilen_kayit = 1
Else
Gosterilen_kayit = CInt(Request("s"))
End If
Toplam_Kayit = rs.pagecount
If Gosterilen_kayit < 1 Or Gosterilen_kayit > Toplam_Kayit Then
Gosterilen_kayit = 1
End If
rs.absolutepage = Gosterilen_kayit
Response.ContentType = "text/vnd.wap.wml"
%><%=header%>
<card id="ff" title="forums">
<p align="left">
<!--#INCLUDE FILE="incs/pmalert.asp"-->
<%=KmLinkiYazdir%>
<%for i=1 to Kayit_Sayisi
If rs.eof Then exit for
Set cevap = Server.CreateObject("ADODB.Recordset")
SQLcumle2 = "SELECT * FROM cevaplar WHERE cevap_id = " & rs("id")
cevap.Open SQLcumle2, bag, 1, 3
cevap_sayi = cevap.recordcount
%>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=deftergoster&id=<%=rs("id")%>&un=<%=request("un")%>&pw=<%=request("pw")%>&f=<%=request("f")%>"><%=degistir(rs("yazan"))%>:<%=degistir(rs("baslik"))%>(<%=cevap_sayi%>)</a><br/>
<%rs.movenext
Next%>
<% cevap.close
set cevap=nothing
%>
<img src="image/bar.gif" alt=""/>
<br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gba&durum=new&un=<%=request("un")%>&pw=<%=request("pw")%>&f=<%=request("f")%>">new thread</a>
<%if not Gosterilen_kayit=rs.pagecount then%>
<br/><a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&un=<%=request("un")%>&pw=<%=request("pw")%>&f=<%=request("f")%>&s=<%=Gosterilen_kayit+1%>">next</a><br/>
<%end if%>
<%if not (Gosterilen_kayit-1)=0 then%>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&un=<%=request("un")%>&pw=<%=request("pw")%>&f=<%=request("f")%>&s=<%=Gosterilen_kayit-1%>">prev</a><br/>
<%end if%>
<%if not Gosterilen_kayit=1 then%>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&un=<%=request("un")%>&pw=<%=request("pw")%>&f=<%=request("f")%>&s=1">first</a><br/>
<%end if%>
<%else
Response.ContentType = "text/vnd.wap.wml"
%><%=header%>
<card id="ff" title="forums">
<p align="left">
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gba&durum=new&un=<%=request("un")%>&pw=<%=request("pw")%>&f=<%=request("f")%>">new thread</a>
<%end if%>
<br/><a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv&un=<%=request("un")%>&pw=<%=request("pw")%>">forums menu</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=csec&un=<%=request("un")%>&pw=<%=request("pw")%>">chat</a><br/>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -