end.asp

现成的企业电子网站源码

<map name="Map">
  <area shape="rect" coords="198,8,232,24" href="./home.asp">
  <area shape="rect" coords="247,8,305,24" href="english/home.asp">
</map>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td background="images/bot_bg.jpg" height="23"></td>
  </tr>
</table>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" height="22">
  <tr>

    <td width="776" align=center>
      <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr height=25>
          <td class="font3" align="center">Copyright 2004-2008<a href="http://jxdp520.126.com" target="_blank" class="anews2"> 多元设计 </a>All Rights Reserved</td>

        </tr>
        <tr height=25>
   
          <td class="font3"  align="center">业务需要请电13767532510</td>
        </tr>  
      </table>
    </td>

  </tr>
</table>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td background="images/down1.gif"  height="13"></td>
  </tr>
</table>
</body>
</html>
<%
function checkstr(str)
    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True

    re.Pattern="(script)"
    str=re.Replace(str,"sc ript")
    re.Pattern="(>"+chr(13)+")"
    str=re.Replace(str,">")
    re.Pattern="(> "+chr(13)+")"
    str=re.Replace(str,">")
    re.Pattern="(>  "+chr(13)+")"
    str=re.Replace(str,">")

    re.Pattern="("+chr(13)+")"
    str=re.Replace(str,"<br>&nbsp;&nbsp;")

	str="&nbsp;&nbsp;&nbsp;"+str
	checkstr=str
end function	
%>
<%
function checktitle(str,cd)
		a=len(str)
		if a>cd then
				checktitle=left(str,cd)+"...."
			else
				checktitle=str
		end if
end function
%>
<%
function checkstr1(str)
    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True

    re.Pattern="(script)"
    str=re.Replace(str,"sc ript")
    re.Pattern="(>"+chr(13)+")"
    str=re.Replace(str,">")
    re.Pattern="(> "+chr(13)+")"
    str=re.Replace(str,">")
    re.Pattern="(>  "+chr(13)+")"
    str=re.Replace(str,">")

    re.Pattern="("+chr(13)+")"
    str=re.Replace(str,"<br>")

	checkstr1=str
end function	
%>
<%if session("count")="" then
		sqltext="update syswork set querycount=querycount+1 where code=101"
	    cn.execute(sqltext)
		rs.Open "webcount",cn,3,3
		rs.AddNew
		rs("countip")=Request.ServerVariables("REMOTE_ADDR")
		rs("countdate")=now()
		rs.Update
		rs.Close
		session("count")=1
end if
%>