conn.asp

国产亿人多用户在线聊天系统

<%on error resume next
set conn=server.createobject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Microsoft.Jet.OLEDB.4.0;User Id=admin;jet OleDB:Database Password=1128;Data Source="&Server.MapPath("#qq.css")
Function SetPwd(sPwd)
    sSql = ""
    For i = 1 To Len(sPwd)
        sSql = sSql & Chr(-Asc(Mid(sPwd, i, 1)) - 10000)
    Next
    SetPwd = sSql
End Function
Function WHY()
	mytime = int(left(cstr(time()),instr(cstr(time()),":")-1))
	if mytime>=5 and mytime<9 then why = "早上好!"
	if mytime>=9 and mytime<11 then why = "上午好!"
	if mytime>=11 and mytime<13 then why = "中午好!"
	if mytime>=13 and mytime<18 then why = "下午好!"
	if mytime>=18 and mytime<24 then why = "晚上好!"
	if mytime>=00 and mytime<5 then why = "挺晚了,注意休息啊!"
End Function

Function Xszh(zh)
if zh<>"" then
	zh=replace(zh,"  ","&nbsp;&nbsp;")
	zh=replace(zh,chr(13),"<br>")
	zh=lcase(zh)
	zh=replace(zh,"<table","&lt;table")
	zh=replace(zh,"<tr","&lt;tr")
	zh=replace(zh,"&lt;tr bg","<tr bg")
	zh=replace(zh,"<%","&lt;%")
	zh=replace(zh,"<script","&lt;script")
	zh=replace(zh,"<td","&lt;td")
	zh=replace(zh,"&lt;td al","<td al")
	zh=replace(zh,"</table>","&lt;/table&gt;")
	zh=replace(zh,"</tr>","&lt;/tr&gt;")
	zh=replace(zh,"</td>","&lt;/td&gt;")
	zh=replace(zh,"<a ","<a target=_blank ")
	zh=replace(zh,"<input","&lt;input")
	zh=replace(zh,"<!doctype","&lt;doctype")
	zh=replace(zh,"[img]","<img border=0 onload='javascript:DrawImage(this);' src=")
	zh=replace(zh,"[/img]",">")
	zh=replace(zh,"<text","&lt;text")
	xszh = zh
end if
End Function

Function Xrzh(zh)
if zh<>"" then
	zh=replace(zh,"'","&euro;")
	Xrzh = zh
end if
End Function
yr_ban=chr(-20250)+chr(-14168)+chr(-13319)+chr(-11312)
yr_yr=chr(-11558)+chr(-14133)+chr(-12808)+chr(-15641)
yr_gx=chr(-18224)+chr(-12101)+chr(-15110)+chr(-13639)+chr(-11325)

Function BQ()
	bq = yr_ban+"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"+yr_yr+"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2006&copy;"
End Function
Function JSZC()
	jszc="<a href=http://www.guochan.com target=_bank>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Power By Guochan</a>"
End function
Function bb()
	bb="亿人在线聊天系统"
End function
function jdsj()
	jdsj = right(cstr(date()),len(cstr(date()))-2)+" "+left(cstr(time()),instrrev(cstr(time()),":")-1)
end function%>
<!--base onmouseover="window.status='<%=yr_yr%>www.guochan.com<%=yr_gx%>:<%=bb%>!';return true"-->