default.asp

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

city:<br/>
<input name="sehir" value="" title="city:"/><br/>
about:<br/>
<input name="comments" value="" maxlength="150" title="about:"/><br/>
<anchor>
      <go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=regit" method="post">
      <postfield name="unu" value="$unu"/>
      <postfield name="pwim" value="$pwim"/>
	  <postfield name="ceptel" value="$ceptel"/>
  	  <postfield name="ceptelinvisible" value="$ceptelinvisible"/>
	  <postfield name="mail" value="$mail"/>
	  <postfield name="isim" value="$isim"/>
	  <postfield name="cins" value="$cins"/>
	  <postfield name="yas" value="$yas"/>
	  <postfield name="sehir" value="$sehir"/>
   	  <postfield name="comments" value="$comments"/>
	   <postfield name="pic" value="yok"/>
	</go>register</anchor>
<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 prf()
checklogin
Response.ContentType = "text/vnd.wap.wml"

%><%=header%><card id="MySiteName" <%=siteadim%>>
<p align="left">

<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=cpw&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">change password</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=cprf&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">alter details</a>
<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 userswap()
checklogin
neyegore=request("sort")
pos=request("pos")
if neyegore="" then
neyegore="un"
end if
if pos="" then
pos="asc"
end if
Db_Yer = Server.Mappath(""&WapOnlineUsersDb&"")
Set objDB = Server.Createobject("Adodb.Connection")
objDB.Open "DBQ="& Db_Yer &";Driver={Microsoft Access Driver (*.mdb)}" 
Set objRS = Server.CreateObject("Adodb.Recordset")
bSQL = "Select * from online order by "&neyegore&" "&pos&""
objRS.Open bSQL, objDB, 1, 3
Kayit_Sayisi = 10
objRS.PageSize = Kayit_Sayisi
If Request("s") = "" Then
Gosterilen_kayit = 1
Else
Gosterilen_kayit = CInt(Request("s"))
End If
Toplam_Kayit=objRS.PageCount
If Gosterilen_kayit < 1 Or Gosterilen_kayit > Toplam_Kayit Then
Gosterilen_kayit = 1
End If
objRS.AbsolutePage = Gosterilen_kayit
Response.ContentType = "text/vnd.wap.wml"

%><%=header%>
<card id="MySiteName" title="page <%=Gosterilen_kayit%>/<%=Toplam_Kayit%>">
<p align="center">
<%i = 0
do while i < Kayit_Sayisi and Not objRS.Eof%>
<a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;p=userinfo&amp;user=<%=degistir(objRS("un")) %>"><%=degistir(objRS("un")) %></a><br/>
<%i = i + 1
objRS.MoveNext
Loop%><br/><%if not Gosterilen_kayit=Toplam_Kayit then%>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=userswap&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;s=<%=Gosterilen_kayit+1%>&amp;sort=<%=neyegore%>">next</a><br/>
<%end if%>
<%if not (Gosterilen_kayit-1)=0 then%>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=userswap&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;s=<%=Gosterilen_kayit-1%>&amp;sort=<%=neyegore%>">preview</a><br/>
<%end if%>
<%objRS.Close
Set objRS=Nothing
objDB.Close
Set objDB=Nothing%><a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">back</a>

	
	<br/><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=gbv&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">forums</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=viewpms&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">im</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=csec&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">chat</a><br/>

<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 cizgiekle(dosyaadi)%>
<img src="image/<%=dosyaadi%>"  alt="---"/>
<%end sub%>

<%sub lastpost
session("sonpost")=now()
end sub
%>
<%sub forum_pmlastpostKontrol(sure)

forum_pm_lastpostTime=session("sonpost")
forum_pm_CheckOutTime=datediff("s", forum_pm_lastpostTime, now())
if forum_pm_CheckOutTime < sure then
forumpmpostlimitiuyarisi forum_pm_CheckOutTime,sure
response.end
end if

end sub
%>
<%sub forumpmpostlimitiuyarisi(hata,sure)
Response.ContentType = "text/vnd.wap.wml"

%><%=header%><card id="MySiteName" <%=siteadim%>>
<p align="center">Error!<br/>You must wait at least<%=sure%><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">back</a>
<do type="prev" label="Back"><prev/></do>

<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 cpwdo()
checklogin

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

if LCASE(kayitset("pw"))<>LCASE(request("old")) then

sonucmesaj="no work was done! check your old password<br/><a href="""&Request.ServerVariables("SCRIPT_NAME")&"?p=cpw&amp;un="&request("un")&"&amp;pw="&request("pw")&""">back</a>"
else

kayitset("pw")=request("new")
kayitset.update
sonucmesaj="your password has been changed!<br/><a href="""&Request.ServerVariables("SCRIPT_NAME")&"?p=&amp;un="&request("un")&"&amp;pw="&request("new")&""">continue</a>"

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

%><%=header%><card id="MySiteName" <%=siteadim%>>
<p align="center">
<%=sonucmesaj%><br/>
<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>
<% 
kayitset.close
set komut=nothing
set kayitset=nothing
end sub%>
<% sub cpw()
checklogin
Response.ContentType = "text/vnd.wap.wml"

%><%=header%><card id="MySiteName" <%=siteadim%>>
<p align="left">old password:<br/>
<input name="old" value="" maxlength="20" title="old:"/><br/>
new password:<br/>
<input name="new" value="" maxlength="20" title="new:"/><br/>
<anchor>change it<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=cpwdo&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>" method="post">
     <postfield name="old" value="$old"/>
	 <postfield name="new" value="$new"/>
</go></anchor>
<br/><a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=prf&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">discard</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 cprf()
checklogin

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 uin,yas,comments,cins,meslek,sehir,ulke,mypic from userdb where un='"&request("un") &"'"
Rs.Open Sorgu, Baglanti, 1, 3 
yas=degistir(Rs("yas"))
comments=degistir(Rs("comments"))
pic=degistir(Rs("ulke"))
cins=degistir(Rs("cins"))
sehir=degistir(Rs("sehir"))
mypic=Rs("mypic")
Response.ContentType = "text/vnd.wap.wml"

%><%=header%><card id="MySiteName" <%=siteadim%>>
<p align="left">
age:<br/>
<input name="yas" value="<%=yas%>" format="*N" maxlength="2" title="age:"/><br/>
sex:<br/>
<input name="cins" value="<%=cins%>" maxlength="6" title="sex:"/><br/>
city:<br/>
<input name="sehir" value="<%=sehir%>" maxlength="20" title="city:"/><br/>
about:<br/>
<input name="comments" value="<%=comments%>" maxlength="150" title="about:"/><br/>
mypic:<br/>
http://<input name="mypic" value="<%=mypic%>" maxlength="250" title="mypic:"/><br/>
<anchor><go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=cprfdo&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>" method="post">
	  <postfield name="yas" value="$yas"/>
	  <postfield name="cins" value="$cins"/>
	  <postfield name="sehir" value="$sehir"/>
   	  <postfield name="comments" value="$comments"/>
	  <postfield name="cachetime" value="0"/>
	  <postfield name="pic" value="bos"/>
	  <postfield name="mypic" value="$mypic"/>
	</go>update it</anchor><br/>
	<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=prf&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>
<%
Rs.Close
Set Rs=Nothing
Baglanti.Close
Set Baglanti=Nothing
end sub%>

<% sub cprfdo()
checklogin

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 uin,yas,comments,cins,meslek,sehir,ulke,mypic from userdb where un='"&request("un") &"'"
Rs.Open Sorgu, Baglanti, 1, 3 

if not ((request("yas")="") or (request("comments")="") or (request("cins")="") or (request("sehir")="")) Then

Rs("yas")=request("yas")
Rs("comments")=request("comments")
Rs("cins")=request("cins")
Rs("meslek")=request("meslek")
Rs("sehir")=request("sehir")
Rs("ulke")=request("pic")
Rs("mypic")=request("mypic")
rs.update
sonucnedir="your details has been updated<br/>"
else
sonucnedir="an error occured try again<br/>"
end if

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

%><%=header%><card id="MySiteName" <%=siteadim%>>
<p align="center">
<%=sonucnedir%>
<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>
<%
Rs.Close
Set Rs=Nothing
Baglanti.Close
Set Baglanti=Nothing
end sub%>

<%
sub bancheck(input)
nerden=input


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"))& "'"
Rs.Open Sorgu, Baglanti, 1, 3
if Rs(nerden)=True Then
banlandin
response.end
end if
Rs.Close
Set Rs=Nothing
baglanti.Close
Set Baglanti=Nothing

end sub%>
<%sub banlandin
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=""phreky"" title=""BAN"">"
Response.Write "<p align=""center"">"
Response.Write "banned<br/>"
Response.Write "<a href=""wap_main.asp?un="&request("un")&"&amp;pw="&request("pw")&""">ok</a>"
Response.Write "</p></card></wml>"
response.end
end sub%>
<%sub banlandin
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=""phreaky"" title=""MySiteName"">"
Response.Write "<p align=""center"">"
Response.Write "banned<br/>bye<br/>"
Response.Write "<a href="""&Request.ServerVariables("SCRIPT_NAME")&"?p=&amp;pw="&request("pw")&"&amp;un="&request("un")&""">ok</a>"
Response.Write "</p></card></wml>"

end sub%>
<%sub banlandiniki
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=""phreaky"" title=""MySiteName"">"
Response.Write "<p align=""center"">"
Response.Write "banned<br/>bye"
Response.Write "<a href="""&Request.ServerVariables("SCRIPT_NAME")&"?p=&amp;un="&request("un")&""">ok</a>"
Response.Write "</p></card></wml>"

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

%><%=header%><card id="MySiteName" <%=siteadim%>>
<p align="left">
<%
aranankisi=degistir(request("user"))
kackayitperpage=10

strDBPath = Server.Mappath(""&UserDb&"")

Set cnnSearch = Server.Createobject("Adodb.Connection")
cnnSearch.Open "DBQ="& strDBPath &";Driver={Microsoft Access Driver (*.mdb)}" 
Set rstSearch = Server.CreateObject("Adodb.Recordset")

'Set cnnSearch = Server.CreateObject("ADODB.Connection")
'cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
strSQL= "SELECT un " _
	& "FROM userdb " _
	& "WHERE un LIKE '%" & Replace(aranankisi, "'", "''") & "%' " _
	& "OR isim LIKE '%" & Replace(aranankisi, "'", "''") & "%' " _
	& "OR soyisim LIKE '%" & Replace(aranankisi, "'", "''") & "%' " _
	& "OR sehir LIKE '%" & Replace(aranankisi, "'", "''") & "%' " _
	& "ORDER BY un;"

rstSearch.Open strSQL, cnnSearch, 1, 3
'Set rstSearch = cnnSearch.Execute(strSQL)
if not rstSearch.Eof then

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