<%
today=year(date()) & "年" & month(date()) & "月" & day(date()) & "日"
week=weekday(date())
select case week
case 1 week="星期日"
case 2 week="星期一"
case 3 week="星期二"
case 4 week="星期三"
case 5 week="星期四"
case 6 week="星期五"
case 7 week="星期六"
end select
%><%
set conn=server.CreateObject ("adodb.connection")
'连接SQL数据库
'strconn="dsn=website;uid=sa;pwd="
'strconn="provider=sqloledb.1;data source=leon;user ID=sa;password=;Initial Catalog=website"
'连接ACCESS数据库
'strconn="dsn=website_access;uid=;pwd="
strconn="Driver={microsoft Access driver (*.mdb)};dbq="&Server.MapPath("../database/website.mdb")
on error resume next
conn.open(strconn)
if Err.number <>0 then
Response.Write Err.description
Response.End
end if
%>国家经济信息系统深圳培训中心欢迎您!
<%
set rs=server.CreateObject ("adodb.recordset")
sql="select * from counter"
rs.Open sql,conn,1,3
if Request.Cookies("visited") <> "Y" then
Response.Cookies ("visited")="Y"
iCount =iCount+1
rs("count")=rs("count")+1
rs("IP")=Request.ServerVariables("REMOTE_HOST")
rs.Update
end if
iCount=rs("count")
zero=6-len(iCount)
do while zero>0
Response.Write ""
zero=zero-1
loop
For I = 1 to Len(iCount)
Response.Write ""
Next 'I
%>