default.asp

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

<%

siteadim="title=""MySiteName"""
'----------------------------- HEY -----------------------

'code by nolovelust 

'----------------------------- HEY -----------------------
%>

<!--#INCLUDE FILE="functions.asp"-->
<%
select case request("p")
case "gir"
call  gir()
case "cpw"
call  cpw()
case "prf"
call  prf()
case "unlck"
call  unlck()
case "unlckd"
call  unlckd()
case "regit"
call  regit()
case "cprfdo"
call  cprfdo()
case "cpwdo"
call  cpwdo()
case "delallpms"
call  delallpms()
case "userop"
call userop()
case "cprf"
call  cprf()
case "ulist"
call ulist()
case "deftergoster"
call deftergoster()
case "gbv2"
call  gbv2()
case "uayrinti"
call  uayrinti()
case "cik"
call  cik()
case "verify"
call  verify()
case "verifyb"
call  verifyb()
case "viewpms"
call  viewpms()
case "users"
call  users()
case "limit"
call  limit()
case "pmdelete"
call  pmdelete()
case "pmreply"
call  pmreply()
case "chat"
call  chat()
case "csec"
call csec()
case "sendpm"
call  sendpm()
case "gbv"
call  gbv()
case "gba"
call  gba()
case "ckimler"
call ckimler()
case "userswap"
call  userswap()
case "finduser"
call  finduser()
case "gbai"
call  gbai()
case "finddo"
call  finddo()

case "yardim"
call  yardim()

case "cadd"
call  cadd()
case "pmfullread"
call pmfullread()
case "pmread"
call pmread()
case "userinfo"
call userinfo()
case ""
call normal()
end select
%>

<% sub normal()%>
<%
checklogin
'personal msgs
Set islem1 = Server.CreateObject("ADODB.Connection")
islem1.ConnectionTimeout = 15
islem1.CommandTimeout = 30
islem1.Open "DBQ=" & Server.MapPath(""&PmDb&"") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set komut1 = Server.CreateObject("ADODB.Command")
komut1.ActiveConnection = islem1
komut1.CommandText = "SELECT * FROM mesaj WHERE kime='"&request("un")&"' and okundumu='hayir'" 
komut1.CommandType = 1
'okunmamis pmler
Set islem2 = Server.CreateObject("ADODB.Recordset")
islem2.Open komut1, , 3, 3
gel = islem2.recordcount

Set komut1=Nothing
islem2.close
Set islem2=Nothing
islem1.Close
Set islem1=Nothing



chatNerde = Server.MapPath(""&WapOnlineUsersDb&"")
Set chatbag = Server.CreateObject("ADODB.Connection")
Set chatrs = Server.CreateObject("ADODB.Recordset")
chatbag.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & chatNerde)
chatsql = "SELECT * FROM online"
chatrs.Open chatsql, chatbag, 1, 3
kacchatci = chatrs.recordcount
chatrs.Close
Set chatrs = Nothing
chatbag.Close
Set chatbag = Nothing

if  session("totalUsr")="" Then ' save more db connection
strDBPath = Server.MapPath(""&UserDb&"")
Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Open "DBQ="& strDBPath &";Driver={Microsoft Access Driver (*.mdb)}"
Set rsRecords = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT un FROM userdb WHERE onaylandimi=1"
rsRecords.Open SQL, dbConn, 3
Session("totalUsr")=rsRecords.recordcount
rsRecords.Close
Set rsRecords=Nothing
dbConn.Close
Set dbConn=Nothing
end if


Veri_yolu = Server.MapPath(OpeningMsgDb)
Set Baglantim = Server.CreateObject("ADODB.Connection")
Set KayitKumesi = Server.CreateObject("ADODB.Recordset")
Baglantim.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
SQL_LAFI = "SELECT * FROM mesajen"
KayitKumesi.Open SQL_LAFI, Baglantim, 1, 3
mesaj = KayitKumesi("mesaj")
KayitKumesi.Close
Set KayitKumesi = Nothing
Baglantim.Close
Set Baglantim = Nothing



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

%><%=header%>
<card id="MySiteName" title="<%=FormatDateTime(zaman,4)%>">
<p align="center"><img src="http://www.geocities.com/hunkydunkyray2/shamrock4.jpg"  alt=""/><br/>Welcome, <%=request("un")%><br/><%converturl(degistirmain(gulumse(mesaj)))%><br/>
<img src="image/bar.gif"  alt=""/>
<br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=viewpms&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">Im (<%=gel%>)</a><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=csec&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">Chat</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=userswap&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">Whos Online</a><br/>
<a href="http://shamrocksgallery.mcommunity.biz/">Gallery</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=prf&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">User Options</a><br/>
<a href="admins.asp?un=<%=request("un")%>&amp;pw=<%=request("pw")%>">Site Admins</a><br/>
<br/>
<a href="http://en.mcommunity.biz/p.php3?u=nawazsaifee&amp;p=12673208">game cheats</a><br/>
<a href="http://www.gsmcoder.com/unlocker.asp#Eng_user">nokia unlocker</a><br/>
<a href="http://mobilust.net/toplist/in.asp?id=9387">waptoplist</a><br/>
<a href="http://top.2wap.net/in.php?id=14315">bestwap</a><br/>   

Total <%=Session("totalUsr")%> users and <%=kacchatci%> of them online<br/>
<img src="image/bar.gif"  alt=""/>
</p></card></wml>




<% end sub%>






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

%><%=header%>
<card id="MySiteName" <%=siteadim%>>
<p align="center">
<%Yol=Server.Mappath(""&WebOnlineUsersDb&"")
sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq="& Yol &""
Set objDB = Server.CreateObject("ADODB.Connection")
objDB.Open sDBName
Set objRS = objDB.Execute("select * from [online] order by [un]")
Do While Not objRS.EOF %>
<a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;p=userinfo&amp;user=<%=objRS("un") %>"><%=objRS("un") %></a><br/>
<%
objRS.MoveNext
Loop
objRS.Close
Set objRS=Nothing
objDB.Close
Set objDB=Nothing%><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=userop&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 userinfo()%>
<%
checklogin
Response.ContentType = "text/vnd.wap.wml"

%>
<%=header%>
<card id="MySiteName" title="[<%=request("user")%>]">
<p align="left">
<%Yol=Server.Mappath(""&WapOnlineUsersDb&"")
sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq="& Yol &""
Set objDB = Server.CreateObject("ADODB.Connection")
objDB.Open sDBName
Set objRS = objDB.Execute("SELECT * FROM online where un='"&request("user")&"'")
if Not objRS.EOF then %>
<b>location:</b><%=objRS("location") %><br/>
<b>phone:</b> <%=objRS("browser") %><br/>
<b>ip:</b> <%=objRS("ip") %><br/>
<%
end if
objRS.Close
Set objRS=Nothing
objDB.Close
Set objDB=Nothing
%>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=uayrinti&amp;user=<%=request("user")%>&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">details</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=pmreply&amp;to=<%=request("user")%>&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">send im</a>
<br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=userswap&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 uayrinti()%>
<%
checklogin
strDBPath = Server.MapPath(""&UserDb&"")
Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Open "DBQ="& strDBPath &";Driver={Microsoft Access Driver (*.mdb)}"

Set rsRecords = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM userdb WHERE un= '" & request("user")& "'"
rsRecords.Open SQL, dbConn, 3

If Not rsRecords.EOF And Not rsRecords.BOF Then
isim=rsRecords("isim").value
soyisim=rsRecords("soyisim").value
comments=rsRecords("comments").value

isim=degistir(isim)
'soyisim=degistir(soyisim)
comments=degistir(comments)

icqnumaran=degistir((rsRecords("uin").value))


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

%><%=header%><card id="MySiteName" title="[<%=request("user")%>]">
<%Do While Not rsRecords.EOF%>
<p align="left">
name: <%=isim&" "%><%=soyisim%><br/>
age: <%Response.Write degistir((rsRecords("yas").value))%><br/>
sex: <%Response.Write degistir((rsRecords("cins").value))%><br/>
city: <%Response.Write degistir((rsRecords("sehir").value))%><br/>
reg. date: <%Response.Write degistir((rsRecords("kayittarihi").value))%><br/>
about: <%=comments%><br/>
<%if rsRecords("mypic").value <>"" Then%>
<%if (instr(rsRecords("mypic").value,".jpg")>0) or (instr(rsRecords("mypic").value,".gif")>0) or (instr(rsRecords("mypic").value,".wbmp")>0)then%>
<a href="http://<%= rsRecords("mypic").value %>">mypic</a><br/>
<%end if%>
<%end if%>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=pmreply&amp;to=<%=request("user")%>&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">send im</a>
<%rsRecords.MoveNext%>
<%Loop%>
<%else
Response.ContentType = "text/vnd.wap.wml"

%><%=header%><card id="MySiteName" title="[<%=request("user")%>]">
<p align="center">nothing found
<%end if%><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=userswap&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>
<%rsRecords.Close
Set rsRecords=Nothing
dbConn.Close
Set dbConn=Nothing%>
<% end sub%>
<% sub viewpms()%>
<%
checklogin


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 kime='"&request("un")&"' and okundumu='hayir'" 
komut.CommandType = 1
Set kayitset = Server.CreateObject("ADODB.Recordset")
kayitset.Open komut, , 3, 3
okunmamis = kayitset.recordcount
kayitset.close
set komut=nothing
set kayitset=nothing

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

%><%=header%><card id="MySiteName" newcontext="true" title="Im box">
<onevent type="ontimer">
<go href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=viewpms&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>&amp;sec=<%=datediff("s",20,now)%>" method="get">
</go>
</onevent><timer name="timer" value="150"/>
<p align="left">
<%if okunmamis >0 then %>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=pmread&amp;okundumu=hayir&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">inbox (<%=okunmamis%>)</a><br/>
<%end if%>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=pmreply&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">send im</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=pmread&amp;okundumu=evet&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">old ims</a><br/>
<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=delallpms&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">delete ims</a><br/>

<a href="<%= Request.ServerVariables("SCRIPT_NAME") %>?p=userswap&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">whos online</a><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=csec&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">chat</a><br/>

<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=userswap&amp;un=<%=request("un")%>&amp;pw=<%=request("pw")%>">online users</a><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 pmreply()
checklogin