pmalert.asp

来自「asp手机wap网站源码 （英语wap1.0版）」· ASP 代码 · 共 27 行

<%'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 pm!</a><br/>"
else 'yoksa devam et
KmLinkiYazdir=""
End if
%>