functions.asp

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

<%
Function degistirmain(input)

input=Replace(input,"$","$$")
input=Replace(input,"&","&amp;")
degistirmain=input
End function
Function degistir(input)
input=Replace(input,"<","")
input=Replace(input,">","")
input=Replace(input,"%","")
input=Replace(input,"'","`")
input=Replace(input,"""""","")
input=Replace(input,Chr(10),"")
input=Replace(input,Chr(13),"")
input=Server.HTMLEncode(input)
input=Replace(input,"&amp;#039;","'")
input=Replace(input,"&#039;","'")
input=Replace(input,"$","$$")
degistir=input
End function
function gulumse(input)
						input=replace(input, ":)", "<img src=""image/smiley.gif"" alt="":)""/>")
						input=replace(input, ":(", "<img src=""image/misery.gif"" alt="":(""/>")
						input=replace(input, ";)", "<img src=""image/wink.gif"" alt="";)""/>")
						input=replace(input, ":D", "<img src=""image/bigsmile.gif"" alt="":D""/>")
						input=replace(input, ":o)", "<img src=""image/bigsmile.gif"" alt="":D""/>")
						input=replace(input, ":O", "<img src=""image/shock.gif"" alt="":O""/>")
						input=replace(input, ":P", "<img src=""image/tongue.gif"" alt="":P""/>")
						input=replace(input, "(H)", "<img src=""image/shades.gif"" alt=""(H)""/>")
						input=replace(input, ":@", "<img src=""image/angry.gif"" alt="":@""/>")
						input=replace(input, ":C", "<img src=""image/crying.gif"" alt="":C""/>")
						input=replace(input, ":A", "<img src=""image/dissapointed.gif"" alt="":A""/>")
						input=replace(input, "(*)", "<img src=""image/star.gif"" alt=""(*)""/>")
						input=replace(input, ":S", "<img src=""image/confused.gif"" alt="":S""/>")
						input=replace(input,"(i)","<img src=""image/lightbulb.gif"" alt=""(i)""/>")
						input=replace(input, "(Y)", "<img src=""image/thumbs_up.gif"" alt=""(Y)""/>")
						input=replace(input, "(N) ", "<img src=""image/thumbs_down.gif"" alt=""(N)""/>")
						input=replace(input, "(D)", "<img src=""image/martini_shaken.gif"" alt=""(D)""/>")
						input=replace(input, "(E)", "<img src=""image/devil_smile.gif"" alt=""(E)""/>")
						input=replace(input, "(L)", "<img src=""image/heart.gif"" alt=""(L)""/>")
						input=replace(input, "(U)", "<img src=""image/broken_heart.gif"" alt=""(U)""/>")
						input=replace(input, "(K)", "<img src=""image/kiss.gif"" alt=""(K)""/>")
						input=replace(input, "(G)", "<img src=""image/present.gif"" alt=""(G)""/>")
						input=replace(input, "(F)", "<img src=""image/rose.gif"" alt=""(F)""/>")
						input=replace(input, "(W)", "<img src=""image/wilted_rose.gif"" alt=""(W)""/>")
						input=replace(input, "(C)", "<img src=""image/coffee.gif"" alt=""(C)""/>")
						input=replace(input, "(A)", "<img src=""image/moon.gif"" alt=""(A)""/>")
						input=replace(input, "(O)", "<img src=""image/clock.gif"" alt=""(O)""/>")
						input=replace(input, "(T)", "<img src=""image/chat.gif"" alt=""(T)""/>")
						input=replace(input, "(M)", "<img src=""image/email.gif"" alt=""(M)""/>")
						
gulumse=input

End function
'Session.CodePage = 1252
Session.LCID = 1033
'zaman=now()-(2/24)
zaman=now()
gmt=FormatDateTime(TimeValue(DateAdd("h", -1, Now())),4)

ForumDb="database/newforum.mdb"
UserDb="database/users.mdb"
PmDb="database/pm.mdb"
WapChatDb="database/chat.mdb"
WapOnlineUsersDb="database/onlineusers.mdb"
DeciveBanDb="database/deciveandipban.mdb"
SessionsDb="database/sessions.mdb"
OpeningMsgDb="database/adminmsg.mdb"
%>
<%
sub ConvertUrl(str)
parcala=split(str," ",-1,1)
For i=0 to ubound(parcala)
if instr(lcase(parcala(i)), "http://") > 0 Then													' eger sting te 
			response.write "<a href="""&parcala(i)&""">"&parcala(i)&"</a>"
            response.write " "
else																						'eger http:// yoksa
			response.write parcala(i)
			response.write " "
end if
Next
end sub%>





<%'personal msgs link uyarisi
'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
'islem2.close

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

'if pm varsa link yazdir
'if gel>0 then
'KmLinkiYazdir="<a href="""& 'Request.ServerVariables("SCRIPT_NAME")&"?p=pmread&amp;okundumu=hayir&amp;pw="&request("pw")&"&amp;un="&request("un")&""">new evil whispers!</a><br/>"
'else 'yoksa devam et
'KmLinkiYazdir=""
'End if
%>
<% 
header="<?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 forua=""true"" http-equiv=""Cache-Control"" content=""max-age=0""/></head>"
%>