| |
<%
if session("wyname")="" then
session("wyname")=request.Cookies("wyname1")
end if
if session("wyname")="" then
%>
登录 | 注册 | 忘记密码
<%else
if request.Cookies("m")<>"1" then
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "wy_information",conn,1,3
while not rs.eof
if rs("wyname")=session("wyname") then
rs("start_time")=now()
rs.Update
response.Cookies("m")="1"
end if
rs.movenext
wend
end if
response.Write "你好,"
response.Write session("wyname")
response.Write ""
%>
安全退出
<%end if%>
|
| |
|
|
|
|
网友留言： |
| 欢迎网友对正在进行的直播留言、提问。前方记者将向主办单位提出您的问题，或通过其他方式转达您的声音。 |
<%if request("act")="add" then
'if session("wyname")="" then
'session("wyname")=request.Cookies("wyname")
'end if
'if session("wyname")<>"" then
message=request("message")
Ip_address=Request.ServerVariables("REMOTE_ADDR")
if message<>""then
if len(message)>5 then
sql="insert into wy_messages(wyname,message) values('"+Ip_address+"','"+ message+"')"
conn.execute sql
conn.close
%>
<%else%>
<%'end if
end if
end if
end if
%>
|
请注意：登陆后才可留言 |
|
|
|
|
|
|
|
| 联系电话：0755－86255653 email:marketing@evoc.cn
<%
'CountFile=Server.MapPath("data/txtcounter.txt")
'Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
'Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
'counter=Out.ReadLine
'Out.Close
'SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
'Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
'Application.lock
'counter= counter + 1
'Out.WriteLine(counter)
'Application.unlock
'Response.Write(counter)
'Out.Close
%><%'conn.close
'set conn=nothing%>
|
Copyright (C) 1998-2008 EVOC INTELLIGENT TECHNOLOGY CO.,LTD. All Rights Reserved.
版权所有 研祥集团 |
