<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
´¦Àí SSI Îļþʱ³ö´í
<%
sql ="select top 3 * from [tuji_info] where pid=29 and status='y' order by check_date desc"
Set rs=server.CreateObject("Adodb.recordset")
rs.open sql,conn_webjd,1,1
Do While Not rs.eof
str=""
response.write(chinese2unicode(Str))
rs.movenext
Loop
rs.close
Set rs=Nothing
conn_webjd.close
Set conn_webjd=Nothing
Function chinese2unicode(Str)
dim i
dim Str_one
dim Str_unicode
for i=1 to len(Str)
Str_one=Mid(Str,i,1)
If Abs(Asc(Str_one)) >255 Then
Str_unicode=Str_unicode&chr(38)
Str_unicode=Str_unicode&chr(35)
Str_unicode=Str_unicode&chr(120)
Str_unicode=Str_unicode& Hex(ascw(Str_one))
Str_unicode=Str_unicode&chr(59)
Else
Str_unicode = Str_unicode & Str_one
End If
next
chinese2unicode = Str_unicode
end Function
%>
|