default.asp

asp手机wap网站源码 （英语wap1.0版）

<do type="accept" label="MySiteName">
<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>" method="get">
</go></do></p></card></wml>
<% 
rs.close
set rs=nothing
end sub%>
<% sub deftergoster()
checklogin


Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&ForumDb&"") 


set det = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from sorular WHERE id="&request("id")&""
det.open SQL,bag,1,3
ikinciid=det("id")
if det.eof then
else
det("okunma") = det("okunma") + 1
det.Update

detbaslik=degistir(det("baslik"))
detmetin=degistir(det("metin"))
detmetin=gulumse(detmetin)

Response.ContentType = "text/vnd.wap.wml"

%><%=header%>
<card id="MySiteName" title="<%=detbaslik%>">
<p align="left">
<%if not request("s")>1 then%> 
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=userinfo&amp;user=<%=det("yazan")%>&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>"><%=det("yazan")%></a><br/><%=det("tarih")%><br/>
<%converturl(detmetin)%><br/>
<img src="image/bar.gif"  alt=""/>
<%end if%>

<%if not request("s")>1 then%><br/><%end if%>
<%
det.close
set det = Nothing
end if

%><%

set det = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from cevaplar WHERE cevap_id="&request("id")&" order by tarih asc"
det.open SQL,bag,1,3
if not det.eof then

Kayit_Sayisi = 1
det.PageSize = Kayit_Sayisi


If Request("s") = "" Then
Gosterilen_kayit = 1
Else
Gosterilen_kayit = CInt(Request("s"))
End If

Toplam_Kayit=det.PageCount


If Gosterilen_kayit < 1 Or Gosterilen_kayit > Toplam_Kayit Then
Gosterilen_kayit = 1
End If

det.AbsolutePage = Gosterilen_kayit 
%>   

<%i = 0
do while i < Kayit_Sayisi and Not det.Eof
detbaslik=degistir(det("baslik"))
detmetin=degistir(det("metin"))
detmetin=gulumse(detmetin)

%>

<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=userinfo&amp;user=<%=det("yazan")%>&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>"><%=det("yazan")%></a><br/><%=det("tarih")%><br/>
[<%=Gosterilen_kayit%>/<%=Toplam_Kayit%>]<%=detmetin%>
<% 
i = i + 1
det.MoveNext
Loop%><br/>
<img src="image/bar.gif"  alt=""/>
<br/>

<%if not Gosterilen_kayit=det.PageCount then%>
<a href="<%=Request.ServerVariables("SCRIPT_NAME") %>?p=deftergoster&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;id=<%=ikinciid%>&amp;f=<%=request("f")%>&amp;s=<%=Gosterilen_kayit+1%>">next</a><br/>
<%end if%>
<%if not (Gosterilen_kayit-1)=0 then%>
<a href="<%=Request.ServerVariables("SCRIPT_NAME") %>?p=deftergoster&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;id=<%=ikinciid%>&amp;f=<%=request("f")%>&amp;s=<%=Gosterilen_kayit-1%>">prev</a><br/>
<%end if%>
<%if not Gosterilen_kayit=det.PageCount then%>
<a href="<%=Request.ServerVariables("SCRIPT_NAME") %>?p=deftergoster&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;id=<%=ikinciid%>&amp;f=<%=request("f")%>&amp;s=<%=Toplam_Kayit%>">last</a><br/>
<% end if%>
<%
end if
det.close
set det = Nothing 
%> 
<a href="<%= Request.ServerVariables("SCRIPT_NAME")%>?p=gba&amp;id=<%=request("id")%>&amp;durum=reply&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;f=<%=request("f")%><%=stickuyarisi%>">reply</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;f=<%=request("f")%>">thread index</a>
</p>
</card></wml>
<%end sub%>
<% sub gba()
checklogin

  durum=request("durum")
  if durum="reply" then
  konuInputu=""
  else
  konuInputu="<input name=""konu"" value="""" maxlength=""16"" title=""subject:""/><br/>"
  end if

Response.ContentType = "text/vnd.wap.wml"

%><%=header%>
<card id="MySiteName"  newcontext="true" title="post message">
<p align="left">post message:<br/>
<%=konuInputu%>
<input name="mesaj" value="" maxlength="300" title="text:"/><br/>
<anchor>post it<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbai&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;f=<%=request("f")%>" method="post">
    <postfield name="mesaj" value="$mesaj"/>
	<postfield name="konu" value="$konu"/>
	<postfield name="id" value="<%=request("id")%>"/>
	<postfield name="mode" value="<%=durum%>"/>
	<postfield name="sticker" value="<%=request("sticker")%>"/>
      </go></anchor>
	 <br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;f=<%=request("f")%>">back</a>
	 <do type="accept" label="MySiteName">
<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>" method="get">
</go></do></p></card></wml>
<% end sub%>
<% sub gbai()
   checklogin
if not session("admin")="true" Then
forum_pmlastpostKontrol(30)
end if
'forum ban check
bancheck("forumdanbanlimi")

path=Server.Mappath(forumdb)
veriler= "DBQ="& path &";Driver={Microsoft Access Driver (*.mdb)}"
set rs = Server.CreateObject("adodb.recordset")
if request("mode")="new" then
rs.open ("Select * from sorular"),veriler,1,3
rs.addnew
rs("baslik")		    = request("konu")
rs("metin")				= request("mesaj")
rs("mail")				= "wap@user"
rs("yazan")				= request("un")
rs("tarih")				= zaman
rs("updatedate")		= zaman
rs("forumid")			= request("f")
rs.update
rs.close
set rs = nothing
'forum ve pm e son post tarihini db ye ekleme sub unu cagir
'ayrica sms pm ve forum count icin kullaniliyor
lastpost
end if


if request("mode")="reply" then
'lock kontrol
Set lockbag = Server.CreateObject("ADODB.Connection")
lockbag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&ForumDb&"") 
set lockrs = Server.CreateObject("ADODB.RecordSet")
locksgl = "SELECT locked FROM sorular where id="&request("id")&""
lockrs.open locksgl, lockbag, 1, 3
'allow admin to post
if not session("admin")="true" Then 
kilitlimi=lockrs("locked")
else
kilitlimi=False
end if
lockrs.close
set lockrs = nothing
lockbag.CLOSE
SET lockbag = NOTHING
'lock kontrol if start
if kilitlimi=True Then
Response.ContentType = "text/vnd.wap.wml"


Response.Write "<?xml version=""1.0""?><!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml""><wml><head><meta http-equiv=""Cache-Control"" content=""max-age=0"" forua=""true""/><meta forua=""true"" http-equiv=""Cache-Control"" content=""must-revalidate""/><meta http-equiv=""Cache-Control"" content=""no-cache""/></head><card id=""main"" title=""Pop-up!"">"
Response.Write "<p align=""center"">"
Response.Write "This topic is locked! You can not post!<br/>Thank you<br/>"
Response.Write "<a href="""&Request.ServerVariables("SCRIPT_NAME")&"?p=gbv&amp;un="&request("un")&""">ok</a>"
Response.Write "</p></card></wml>"
response.end
else

 

rs.open ("Select * from cevaplar"),veriler,1,3
rs.addnew
rs("yazan")			= request("un")
rs("cevap_id")		= request("id")
rs("baslik")		= "c"
rs("metin")			= request("mesaj")
rs("mail")			= "wap"
rs("tarih")		    = zaman
rs("forumid")		= request("f")
rs.update
rs.close
set rs = nothing

					'forum ve pm e son post tarihini db ye ekleme sub unu cagir
						lastpost
				
					
						'soru da ki tarihi update etki en son mesaj gibi uste ciksin :)
if not request("sticker")="1" then ' eger yapiskan topic degilse

set sorutimeupdate = Server.CreateObject("ADODB.RecordSet")
SQL_sor = "SELECT updatedate,sticky FROM sorular where id="&request("id")&""
sorutimeupdate.open SQL_sor, veriler, 1, 3
if sorutimeupdate("sticky")=True Then
sorutimeupdate("updatedate") =  sorutimeupdate("updatedate")
else
sorutimeupdate("updatedate") =  zaman
end if
sorutimeupdate.update		
sorutimeupdate.close
set sorutimeupdate = nothing
end if				
SET veriler = NOTHING

end if
end if' lock if end
Response.ContentType = "text/vnd.wap.wml"

%><%=header%><card id="m"  title="done">
<onevent type="ontimer">
<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;f=<%=request("f")%>" method="get">
</go>
</onevent><timer name="T1" value="3"/>
<p align="center">your message has been posted...<br/>
   <a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv2&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;f=<%=request("f")%>">ok</a>
<do type="accept" label="MySiteName">
<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>" method="get">
</go></do></p></card></wml>
<% end sub%>
<% sub gir()

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 = '" &degistir(request("un"))& "' and pw = '" &degistir(request("pw"))& "'"
Rs.Open Sorgu, Baglanti, 1, 3


			If RS.BOF or RS.EOF Then
			login("Wrong user name or password")
			Rs.Close
			Set Rs=Nothing
			Baglanti.Close
			Set Baglanti=Nothing
			response.end
			else
			if not Rs("onaylandimi")=True Then
			login("Your registration has not been verifiyed yet. Please check your e-mail")
			Rs.Close
			Set Rs=Nothing
			Baglanti.Close
			Set Baglanti=Nothing
			response.end
			end if

			if not Rs("tumsitedenbanlimi")=False Then
			login("You have been banned from MySiteName !!")
			Rs.Close
			Set Rs=Nothing
			Baglanti.Close
			Set Baglanti=Nothing
			response.end
			end if

            'besdakikami=DateDiff ("n",rs("songiris"),zaman)
			'if besdakikami >5 then
			'Rs("smscount")=0
			'Rs("smsdate")=zaman
			'Rs("songiris")=zaman
			'Rs("giriscount")=	Rs("giriscount")+1
			
			'log decive id everey day
			if not Request.ServerVariables("HTTP_X_UP_SUBNO")="" Then
            Rs("deviceid")=Request.ServerVariables("HTTP_X_UP_SUBNO")
			end if
		
			Rs.Update
			end if

if Rs("pmdenbanlimi")=True Then
session("pmdenbanlimi")="evet"
end if
if Rs("forumdanbanlimi")=True Then
session("forumdanbanlimi")="evet"
end if
if Rs("adminmi")=True Then
session("admin")="true"
end if


yol=Server.Mappath(""&SessionsDb&"")
cumleiki= "DBQ="& yol &";Driver={Microsoft Access Driver (*.mdb)}"
Set bagiki=Server.CreateObject("Adodb.Connection")
bagiki.Open cumleiki
Set Rsiki=Server.CreateObject("Adodb.Recordset")
sorguiki="select * from online where un = '" &degistir(request("un"))& "' and pw = '" &degistir(request("pw"))& "'"
Rsiki.Open sorguiki, bagiki, 1, 3
			If Rsiki.eof or Rsiki.bOF Then
			rsiki.addnew
			Rsiki("un")=degistir(request("un"))
			Rsiki("pw")=degistir(request("pw"))
			Rsiki("date")=now()
         	else
			Rsiki("date")=now()
			end if
rsiki.update
Set Rsiki=Nothing
bagiki.Close
Set bagiki=Nothing


Rs.Close
Set Rs=Nothing
Baglanti.Close
Set Baglanti=Nothing
'end if


session("loggedin")="evet"
session("un")=request("un")


Response.ContentType = "text/vnd.wap.wml"



'device id ban check
if not Request.ServerVariables("HTTP_X_UP_SUBNO")="" Then
Vt_Pth=Server.Mappath(""&DeciveBanDb&"")
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 deciveid from decive where deciveid = '" &Request.ServerVariables("HTTP_X_UP_SUBNO")& "'"
Rs.Open Sorgu, Baglanti, 1, 3
if not rs.eof then ' eger decive id kban listte ise
Response.ContentType = "text/vnd.wap.wml"

Response.Write "<?xml version=""1.0""?><!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml""><wml><head><meta http-equiv=""Cache-Control"" content=""max-age=0"" forua=""true""/><meta forua=""true"" http-equiv=""Cache-Control"" content=""must-revalidate""/><meta http-equiv=""Cache-Control"" content=""no-cache""/></