test.asp

该资料包含大量网络开发的案例和源代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../include/datatransfer.asp"-->
<!--#include file="../include/functionjs.asp"-->
<!--#include file="../include/functionvb.asp" -->
<!--#include file="../include/dbconn.inc" -->
<!--#include file="../include/header.asp" -->
<link href="../include/main.css" rel="stylesheet" type="text/css">
<table width="710" border="1" cellpadding="2" cellspacing="0" align="center"  class="tablestyle"  bordercolor="#FFFFFF">
        <tr>
          <td align="center"   bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead">&nbsp;</td>
        </tr>
        <tr>
          <td bordercolor="#4C4C4C">
		  <%
		  response.Write(userid)
		  response.Write(username)
		  
		  %>
		  <%
strSQL="select * from webcount"
objRS.open strSQL,objConn,1,3
if FormatDateTime(objrs("last_vistime"),vbShortDate)=FormatDateTime(date,vbShortDate) then response.Write("同一天：1")
objrs.close
%><br>
<%=now()%>
		  &nbsp;</td>
        </tr>
        <tr>
          <td bordercolor="#4C4C4C" background="../resource/images/bj2.gif" align="center">&nbsp;</td>
        </tr>
</table>
<!--#include file="../include/endconn.inc" -->
<!--#include file="../include/footer.asp" -->