function.asp

来自「测试上除办公系统综合办公系统办公系统办公系统」· ASP 代码 · 共 46 行

 
 
<%

sqllogo="SELECT top 1 * FROM tbconfig"
set rslogo=server.createobject("adodb.recordset")
rslogo.open sqllogo,conn,3,2

logo=rslogo("logo")
logolink=rslogo("logolink")
title=rslogo("title")
 islogin=rslogo("islogin")
 refreshtime=rslogo("refreshtime")
  islook=rslogo("islook")
    ischeck=rslogo("ischeck")
  
    function HTMLEncode(fString)
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	fString = Replace(fString, " ", "&nbsp;")
	HTMLEncode = fString
end function

function cuter(typess,nummers)
  dim types:types=typess
  if len(types)>nummers then
    cuter=left(types,nummers) & "..."
  else
    cuter=types
  end if
end function

%>
 <SCRIPT language=javascript>
<!-- begin
 
function click() {
if (event.button==2) {
alert('考试期间，请不要使用右键！')
}
}
document.onmousedown=click
 
 end -->
</script>