default.asp

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

if not request("id")="" then 'forward icin bu bolum ekle basla

path=Server.Mappath(""&PmDb&"")
veriler= "DBQ="& path &";Driver={Microsoft Access Driver (*.mdb)}"
Set komut = Server.CreateObject("ADODB.Command")
komut.ActiveConnection = veriler
komut.CommandText = "SELECT * FROM mesaj WHERE id="&request("id")&" and kime='"&request("un")&"'" 
komut.CommandType = 1
Set kayitset = Server.CreateObject("ADODB.Recordset")
kayitset.Open komut, , 3, 3

ilkgonderen=kayitset("kimden")
ilksaat=kayitset("tarih")
ilkmesaj=kayitset("mesaj")
deger="im forward! recipient:"&request("un")&", sender:"&ilkgonderen&", date:"&ilksaat&", im:"&ilkmesaj&""
kayitset.close
set komut=nothing
set kayitset=nothing
else
deger= ""
end if 'forward icin bu bolum ekle bitir


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

%><%=header%><card id="MySiteName" newcontext="true" <%=siteadim%>>
<p align="left">
recipient:<br/>
<input name="kime" value="<%=request("to")%>" title="recipient:"/><br/>
text:<br/>
<input name="mesaj" value="<%=deger%>" maxlength="400" title="text:"/><br/>
<anchor>send it<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=sendpm&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>" method="post">
   	 <postfield name="kime" value="$kime"/>
     <postfield name="baslik" value="Wap"/>
	 <postfield name="mesaj" value="$mesaj"/>
     </go></anchor><br/>
   <a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=viewpms&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">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 sendpm()
checklogin

bancheck("pmdenbanlimi")


'admin session check
if not session("admin")="true" Then
forum_pmlastpostKontrol(30)
end if



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

%><%=header%><card id="MySiteName" title="done">
<onevent type="ontimer">
<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=viewpms&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>" method="get">
</go>
</onevent><timer name="timer" value="10"/>
<p align="center">
<%

' 
'
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'
'
'EGER KIME BOLUMU NORMAIL ISE BASLA
'
'
'
'

if baslik="" then
baslik="Wap"
end if

'
						path=Server.Mappath(""&PmDb&"")
						veriler= "DBQ="& path &";Driver={Microsoft Access Driver (*.mdb)}"
						set rs = Server.CreateObject("adodb.recordset")
						rs.open ("Select * from mesaj"),veriler,1,3
						rs.addnew
						rs("kimden")				= request("un")
						rs("kime")					= request("kime")
						rs("baslik")				= request("baslik")
						rs("mesaj")				= request("mesaj")
						rs("tarih")				= zaman
						rs("okundumu")			= "hayir"
						rs.update
						rs.close
						set rs=nothing
                        pmyollamasonucu="your im has been sent to " & request("kime")'pm yollama sonucu asagiya yazdirilacak
 


response.write pmyollamasonucu &"<br/>" 

' 
'
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'
'
'nORMAILSE BITIR
'
'
'
'

%>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=viewpms&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">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>
<% 
'forum ve pm e son post tarihini db ye ekleme sub unu cagir
lastpost
end sub%>

<% sub pmdelete()
checklogin
set silermisin = server.CreateObject("ADODB.connection")
silermisin.Open "driver={microsoft access driver (*.mdb)}; DBQ=" & server.MapPath(""&PmDb&"")
sql_sil = "delete from mesaj Where id ="& request("id")&""
set silsene=silermisin.Execute(sql_sil)
Response.ContentType = "text/vnd.wap.wml"

%><%=header%><card id="MySiteName" <%=siteadim%>>
<onevent type="ontimer">
<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=viewpms&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>" method="get">
</go>
</onevent><timer name="T1" value="3"/>
<p align="center">deleted...<br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=viewpms&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">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 delallpms()
checklogin
if request("do")="clean" Then  ' bomb temizle

		set silermisin = server.CreateObject("ADODB.connection")
		silermisin.Open "driver={microsoft access driver (*.mdb)}; DBQ=" & server.MapPath(""&PmDb&"")
		sql_sil = "delete from mesaj where kime='"& request("un")&"'"
		set silsene=silermisin.Execute(sql_sil)
        resultttt="Qm Bomb inactivated!"
else ' normal

set silermisin = server.CreateObject("ADODB.connection")
silermisin.Open "driver={microsoft access driver (*.mdb)}; DBQ=" & server.MapPath(""&PmDb&"")
sql_sil = "delete from mesaj where kime='"& request("un")&"' and okundumu='evet'"
set silsene=silermisin.Execute(sql_sil)
resultttt="read im has been deleted"
end if
Response.ContentType = "text/vnd.wap.wml"

%><%=header%><card id="MySiteName" <%=siteadim%>>
<onevent type="ontimer">
<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=viewpms&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>" method="get">
</go>
</onevent><timer name="T1" value="3"/>
<p align="center"><%= resultttt%><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=viewpms&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">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 pmread()%>
<%
checklogin

path=Server.Mappath(""&PmDb&"")
Set Db = Server.Createobject("Adodb.Connection")
Db.Open "DBQ="& path &";Driver={Microsoft Access Driver (*.mdb)}" 
Set kayitset = Server.CreateObject("Adodb.Recordset")
'okunanlari sondan ilke okunmayanlari ilk yollanandan sona dogru sirala
if request("okundumu")="evet" then
komut="SELECT * FROM mesaj WHERE kime='"&request("un")&"' and okundumu='"&request("okundumu")&"' ORDER BY tarih desc" 
else
komut="SELECT * FROM mesaj WHERE kime='"&request("un")&"' and okundumu='"&request("okundumu")&"' ORDER BY tarih asc" 
end if
kayitset.Open komut, Db, 1, 3


if not kayitset.eof Then ' eger km varsa

Kayit_Sayisi = 1
kayitset.PageSize = Kayit_Sayisi


If Request("s") = "" Then
Gosterilen_kayit = 1
Else
Gosterilen_kayit = CInt(Request("s"))
End If
Toplam_Kayit=kayitset.PageCount
If Gosterilen_kayit < 1 Or Gosterilen_kayit > Toplam_Kayit Then
Gosterilen_kayit = 1
End If


kayitset.AbsolutePage = Gosterilen_kayit

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

%><%=header%>
<%i = 0
do while i < Kayit_Sayisi and Not kayitset.eof%><card id="MySiteName" title="Im(s) <%=Gosterilen_kayit%>/<%=Toplam_Kayit%>">
<p align="left">
<%
' bu asagidaki i sonraki linki icin gerekli cunku burada okudugumu asagida update edip okunduya cevriyorum dolayisiyla kayitlarda bir azalma oluyor
' ve sonraki bir oncekini atliyor 2. km daima es geciliyor bunu asmak icin yeni km okumada daima s=1
if request("okundumu")="evet" then
SonrakiLinkiHesapla=Gosterilen_kayit+1
else
SonrakiLinkiHesapla=Gosterilen_kayit
end if
mesaj=degistir(kayitset("mesaj"))
mesaj=gulumse(mesaj)
baslik=degistir(kayitset("baslik"))
%>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=uayrinti&amp;user=<%=kayitset("kimden")%>&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>"><%=kayitset("kimden")%></a><br/>
<%=kayitset("tarih")%><br/><%=mesaj%><br/><a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=pmreply&amp;to=<%=kayitset("kimden")%>&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">reply</a><br/>
<%if not Gosterilen_kayit=Toplam_Kayit then%><a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=pmread&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;s=<%=SonrakiLinkiHesapla%>&amp;okundumu=<%=Request("okundumu")%>&amp;f=<%=datediff("s",20,now)%>">next im</a><br/>
<%end if%><a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=pmreply&amp;to=&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;id=<%=kayitset("id")%>">forward it</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=pmdelete&amp;id=<%=kayitset("id")%>&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">delete it</a><br/>

<%'clear pm bomb 
if request("okundumu")="hayir" then
if Toplam_Kayit > 25 Then%>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=delallpms&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;do=clean">clear im bomb</a><br/>
<%
end if
end if%>

<%i = i + 1

if not request("okundumu")="evet" then' eger zaten okunmussa update etmeye gerek yok
kayitset("okundumu")= "evet"
kayitset.update
end if
kayitset.MoveNext

Loop%>


<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=viewpms&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">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>
<%
else ' km yoksa


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

%><%=header%>
<card id="MySiteName" title="Empty">
<p align="center">empty! go to im<br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=viewpms&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">im</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 if
kayitset.close
set komut=nothing
set kayitset=nothing
%>
<% end sub%>

<%sub finduser()
checklogin
Response.ContentType = "text/vnd.wap.wml"

%><%=header%><card id="MySiteName" title="find@MySiteName">
<p align="center">
<input name="user" value="" maxlength="20" title="user name:"/><br/>
 <anchor title="">find him/her
	<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=finddo&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>" method="post">
		<postfield name="user" value="$user"/>
	</go>
</anchor>	<br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">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 checklogin

Session.LCID = 1033
CurrentDate = Now()
CheckOutTime = DATEADD("s", -1200, CurrentDate)
Sql= "DBQ="& Server.Mappath(SessionsDb) &";Driver={Microsoft Access Driver (*.mdb)}"
Set conn=Server.CreateObject("Adodb.Connection")
conn.Open Sql
' 1200 sn den onceki oturumlari sil
Set DeleteRs=Server.CreateObject("Adodb.Recordset")
DeleteSorgu = "DELETE FROM online WHERE date < #" & CheckOutTime & "#"
DeleteRs.Open DeleteSorgu, conn, 1, 3 
'simdi adam login olmusmu kontrol et
Set kontrolRS=Server.CreateObject("Adodb.Recordset")
Query="Select * from online where un='"& degistir(request("un"))  &"' and pw='"& degistir(request("pw")) &"'"
kontrolRS.Open Query, conn, 1, 3 
if kontrolRS.EOF or kontrolRS.BOF then 
' eger login olmamissa login e at
login("Please select your option")
response.end
else
kontrolRS("date")=now()
kontrolrs.update
end if
kontrolRS.Close
Set kontrolRS=Nothing
conn.Close
Set conn=Nothing
%>
<!--#INCLUDE FILE="incs/waponlineusers.asp"-->
<%
end sub%>

<%sub login(hata)
Response.ContentType = "text/vnd.wap.wml"

%><%=header%><card id="MySiteName" <%=siteadim%>>
<p align="center"><img src="http://www.geocities.com/hunkydunkyray2/shamrock4.jpg"  alt=""/><br/><%=hata%><br/>
<a href="login.asp">login or register</a>
<br/><a href="sendpw-en.asp?x=1">remember password</a><br/>
</p></card></wml>
<%end sub%>

<%sub yardim
Response.ContentType = "text/vnd.wap.wml"

%><%=header%><card id="MySiteName" title="Registration">
<p align="left">
username:<br/>
<input name="unu" value="" title="username:"/><br/>
password:<br/>
<input name="pwim" value="" title="password:"/><br/>
mobile:
<br/>
<input name="ceptel" value="44" format="*N" maxlength="11" title="mobile:"/><br/>
email:<br/>
<input name="mail" value="" title="email:"/><br/>
name:<br/>
<input name="isim" value="" title="name:"/><br/>
sex:<br/>
<select name="cins" multiple="false">
<option value="Male">Male</option>
<option value="Female">Female</option>
</select>
<br/>
age:<br/>
<input name="yas" value="" format="*N" maxlength="2" title="age:"/><br/>