%
'日期函数
sub datetime
dat=int(datediff("d",dateserial(2000,8,27),now) mod 7)
response.write(formatdatetime(now,1))&" "
select case dat
case 0
response.write "星期天"
case 1
response.write "星期一"
case 2
response.write "星期二"
case 3
response.write "星期三"
case 4
response.write "星期四"
case 5
response.write "星期五"
case 6
response.write "星期六"
end select
end sub
%>
中国出口 china export
CHINA EXPORT
Home
| Products
| Contact
us |Message
Board | Tariff
Info | Freight
| China
Links
<%dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from sort"
rs.open sql,conn,3,3
if rs.eof then
response.write ""
end if
do while not rs.eof
%>
<%rs.movenext
loop
rs.close%>
<%if session("user_name")<>"" then%>
<%end if%>