conn.asp

大家用用看 希望不久v1.1就要和大家见面了 账号密码 admin

<%on error resume next
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;User Id=admin;jet OleDB:Database Password=1128;Data Source="& Server.MapPath("news.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))'' formatdatetime(time,4) ''
	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,"&euro;","'")
		zh=replace(zh,chr(13),"<br>")
		zh=lcase(zh)
		zh=replace(zh,"<table","&lt;table")
		zh=replace(zh,"<tr","&lt;tr")
		zh=replace(zh,"<td","&lt;td")
		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")
		xszh = zh
end if
End Function

Function Xrzh(zh)
	if zh<>"" then
		zh=replace(zh,"'","&euro;")
		Xrzh = zh
	end if
End Function

Function BQ()
	bq = "版权所有&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;亿人网络&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2005&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%>