conn.asp

信达技校学生管理系统,程序编写比较有价值。

<%
mdbname="siton.mdb"
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq=" &server.mappath(mdbname)
set rs=server.createobject("adodb.recordset")
%>

<%
''''''''''''''''''''''''''''''''''''''''''''''''
function getcut(mysrting,length)
if len(mysrting)>length then
mysrting=left(mysrting,length)&"....."
end if
getcut=mysrting
end function
'''''''''''''''''''''''''''''''''''''''''''''''''
'===================
'获取HTMLEncode代码
Function GetHtmlStr(strContent) 

strContent=replace(strContent,"<","&lt;")
strcontent=replace(strcontent,">","&gt;")
strcontent=replace(strcontent,chr(13),"<br>")
strcontent=Trim(strcontent)
strcontent=replace(strcontent,"  ","&nbsp;&nbsp;")
strcontent=replace(strcontent,chr(39),"''")
strcontent=replace(strcontent,chr(13),"<br>")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''UBB
'strcontent=replace(strcontent,"[img]","<img src=")
'strcontent=replace(strcontent,"[/img]","></img>") 
'strcontent=replace(strcontent,"[b]","<b>") 
'strcontent=replace(strcontent,"[/b]","</b>")
'strcontent=replace(strcontent,"[i]","<i>") 
'strcontent=replace(strcontent,"[/i]","</i>")
'strcontent=replace(strcontent,"[red]","<font color=red>")
'strcontent=replace(strcontent,"[/red]","</font>")
'strcontent=replace(strcontent,"[url]","<a href=")
'strcontent=replace(strcontent,"[/url]","这里是一个网址</a>")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''UBB END
GetHtmlStr=strcontent

End Function
'=========
%>