<%
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<%
dim str,host,url,keyword,full '得到本页地址
str="http://"
host = Request.ServerVariables("HTTP_HOST")
url = Request.ServerVariables("PATH_INFO") '或url
keyword = Request.ServerVariables("QUERY_STRING")
if keyword <> "" then
full = str&host&url&"?"&keyword
else
full = str&host&url
end if
'response.Write full
'response.End()
url=Server.URLEncode(full)
session("sso_userid") = "0"
session("sso_username") = ""
Set ssoc = New Ssouser
'ssoc.checkLogin
'response.Write(ssoc.UserId&"NNNNNNNNNNNNNNNNNNNNNNNNNNNn")
'response.Write(ssoc.UserName)
'sso_token = request.Cookies("sso_token")
'if sso_token <>"" then
if ssoc.UserId<>"" and ssoc.UserId<>"0" and ssoc.UserName<>"" then
user_id=ssoc.UserId
user_name=ssoc.UserName
' and full<>"http://cuanji.it168.com"
if Request.Cookies("diy_"&user_id)<>"true" then
Response.Cookies("diy_"&user_id)="true"
response.Redirect "http://diybbs.it168.com/logging.php?action=login&return="&url
end if
if session("diyuser_"&user_id)<>"true" then
session("diyuser_"&user_id)="true"
'response.Redirect "/include/loginjifen.aspx?return="&full
end if
set conn = server.createobject("adodb.connection")
conn.open "provider=sqloledb;server=219.232.239.180;database=udc_diy;uid=udc_diy;pwd=udc_diy@It1^8;network=dbmssocn"
set rs = server.createobject("adodb.recordset")
'参看短信息---------------------
sqlmessage="select * from tbl_diy_usermessage where user_id='"&user_id&"' and chakan=0"
rs.open sqlmessage,conn,3
if not rs.eof then
strTable=strTable+"欢迎:"&user_name&" "
else
strTable=strTable+"欢迎:"&user_name&" "
end if
rs.close
conn.close
'---------------------------------
strTable=strTable+"退出 | "
response.Write strTable
'end if
'end if
'if ssoc.UserId <= 0 and ssoc.UserName="" then
else
%>
<%
end if
%>
公告区
