index.asp

电子商务网络购物系统

<% Option Explicit %>
<!-- #include file="includes/header.asp" -->
<%
Response.Buffer = True
Dim rslink
Dim strUserIPAddress
Dim strsplit
Dim dtmTopic
Dim dtmPost
Dim lngPm
Dim lngPoll	
Dim intGroups
Dim lngMember
Dim dtmMember
Dim lngUserID
Dim strActUser
Dim strForumName 
Dim intGuestNumber
Dim rsTimes	
Dim rsBBS 
Dim intForumID	
Dim strBoard	
Dim intBoardID	
Dim strForumPassword
Dim strModeratorsList
Dim dtmForumStartDate
Dim lngNumberOfPosts
Dim lngTotalNumberOfTopics	
Dim lngPostNum
Dim intNumberofForums
Dim lngLastEntryMeassgeID
Dim lngLastEntryTopicID
Dim dtmLastEntryDate
Dim strLastEntryUser
Dim lngLastEntryUserID
Dim dtmLastEntryDateAllForums	
Dim strLastEntryUserAllForums	
Dim lngLastEntryUserIDAllForums	
Dim blnForumLocked
Dim intForumColourNumber
Dim intForumReadRights
Dim intForumPostRights
Dim intForumReplyRights
Dim blnHideForum

lngTotalNumberOfTopics = 0
lngPostNum = 0
intNumberofForums = 0
lngPm = 0
intActiveUsers = 0
lngMember = 0

%>
<title><% = strMainForumName %></title>
<table align="center" width="96%" border="0" cellspacing="1" cellpadding="1" bgcolor="<% = strTableBgColour %>">
  
    <tr height="25" class="tHeading"> 
     <td width="43%" background="<% = strTableTitleBgImage %>">
<% If lngLoggedInUserID <> 0 AND lngLoggedInUserID <> 2 Then %>
			>>>欢迎来到&nbsp;<% = strMainForumName %>，你的个人状态
			<% else %>
			>>>快速登录入口&nbsp;<a href="reg.asp" class="smtext">[没有注册]</a>&nbsp;<a href="JavaScript:openWin('forgetpass.asp','forgot_pass','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=1,width=570,height=350')">[忘记密码]</a>
			<% end if %>
</td></tr>
 <tr> <td align="center" bgcolor="#FFFFFF">
	  <% 	
If lngLoggedInUserID <> 0 AND lngLoggedInUserID <> 2 Then  %>
<script language="JScript"><%
strUserIPAddress = Request.ServerVariables("REMOTE_ADDR")
strsplit=split(Request.Servervariables("HTTP_USER_AGENT"),";")
strsplit(1)=replace(strsplit(1),"MSIE","Internet Explorer")
strsplit(2)=replace(strsplit(2),")","")
strsplit(2)=replace(strsplit(2),"NT 5.1","XP")
strsplit(2)=replace(strsplit(2),"NT 5.0","2000")
strsplit(1)=Trim(strsplit(1))
strsplit(2)=Trim(strsplit(2)) %>
</script>
<table cellpadding="0" width="98%">
<tr class="smtext" height="25">
<td width="140">用户名：<b><%=strLoggedInUsername %></b></td>
<td width="220"> 上次来访:<B><%= strlastvisit %></B></td>
<td width="160">端　口：<B><%=Request.ServerVariables("REMOTE_PORT")%></B></td>
<td width="200">浏览器：<b><%=strsplit(1)%></b></td>
</tr>
<tr class="smtext">
<td>文章数：<b><%= strNoOfPosts %></b></td>
<td> 注册时间:<B><%= strJoindtm %></B></td>
<td>您的<strong>IP</strong>：<b><%=strUserIPAddress%></b></td>
<td>操作系统：<b><%=strsplit(2)%></b></td>
</tr>
</table>
<% else %>
 <table width="96%" border="0" cellspacing="0" cellpadding="0">      
 <form method="post" name="frmLogin" action="login.asp?fid=<% = intForumID %><% If Request.QueryString("M") = "Unsubscribe" Then Response.Write("&tid=" & Request.QueryString("tid") & "&M=Unsubscribe") %>" onSubmit="return CheckForm();" onReset="return confirm('你确认要重新填写此表单?');">
 <tr class="text">
	  <td nowrap="nowrap" height="30">用户名:  <input type="text" name="name" size="15" maxlength="15" value="" />&nbsp;&nbsp;
      密码: <input type="password" name="password" size="15" maxlength="15" />
      <input type="checkbox" name="AutoLogin" value="True" checked /> 自动登录 
      <input type="checkbox" name="ActiveUsers" value="True" checked />正常登录 
      <input type="hidden" name="sessionID" value="<% = Session.SessionID %>" /><input type="submit" name="Submit" value="登 录 论 坛" /> </td>
</tr></form></table>
<% 
end if 
%>
</td></tr></table>
<br/>
  <%
Set rsTimes = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT  boardname,  boardid FROM timesboard ORDER BY boardnum ASC;"
rsTimes.Open strSQL, adoCon
%>
  
<table align="center" width="96%" border="0" cellspacing="1" cellpadding="3" bgcolor="<% = strTableBgColour %>">
  <tr height="25" class="tHeading" align="center"> 
    <td width="35" nowrap background="<% = strTableTitleBgImage %>">状态</td>
    <td background="<% = strTableTitleBgImage %>">论坛列表</td>
    <td width="60" background="<% = strTableTitleBgImage %>">版主</td>
    <td width="50" nowrap background="<% = strTableTitleBgImage %>">主题</td>
    <td width="50" nowrap background="<% = strTableTitleBgImage %>">回复</td>
    <td width="125" colspan="2" background="<% = strTableTitleBgImage %>">最后发表</td>
  </tr>
  <%
If rsTimes.EOF Then
%>
  <tr> 
    <td bgcolor="<%= strTableColour %>" background="<%= strTableBgImage %>" height="25" colspan="7" class="text">目前还没有论坛</td>
  </tr>
  <%
Else
	Set rsBBS = Server.CreateObject("ADODB.Recordset")
	Do While NOT rsTimes.EOF
		strBoard = rsTimes("boardname")
		intBoardID = CInt(rsTimes("boardid"))
	%>
  <tr> 
    <td height="25" bgcolor="<%= strTableTitleColour2 %>" background="<%= strTableTitleBgImage2 %>" colspan="7" class="tHeading">&nbsp;◇&nbsp;<%= strBoard %>&nbsp;◇</td>
  </tr>
  <%
			strSQL = "SELECT boardid,bbsid,bbsname,dtmstart,password,postnum,locked,read,post,replypost,hide,topicnum,bbsdescrip FROM timesbbs WHERE boardid = " & intBoardID & " ORDER BY bbsnum ASC;"
		rsBBS.Open strSQL, adoCon
		If rsBBS.EOF Then
	%>
  <tr> 
    <td bgcolor="<%= strTableColour %>"  background="<%= strTableBgImage %>" colspan="7" class="text">目前没有论坛</td>
  </tr>
  <%
		Else
			Do While NOT rsBBS.EOF
				lngLastEntryTopicID = 0
				strModeratorsList = ""
				intForumID = CInt(rsBBS("bbsid"))
				strForumName = rsBBS("bbsname")
				dtmForumStartDate = CDate(rsBBS("dtmstart"))
				strForumPassword = rsBBS("Password")
				lngNumberOfPosts = CLng(rsBBS("postnum"))
				blnForumLocked = CBool(rsBBS("Locked"))
				intForumReadRights = CInt(rsBBS("Read"))
				intForumPostRights = CInt(rsBBS("Post"))
				intForumReplyRights = CInt(rsBBS("replypost"))
				blnHideForum = CBool(rsBBS("Hide"))
				
				Call forumPermisisons(intForumID, intGroupID, intForumReadRights, intForumPostRights, intForumReplyRights, 0, 0, 0, 0, 0, 0, 0)
				lngPostNum = lngPostNum + lngNumberOfPosts
				lngTotalNumberOfTopics = lngTotalNumberOfTopics + CLng(rsBBS("topicnum"))
				If blnHideForum = True AND blnRead = True Then blnHideForum = False
				If blnHideForum = False Then
					intForumColourNumber = intForumColourNumber + 1
					dtmLastEntryDate = dtmForumStartDate
					strLastEntryUser = "-------"
					lngLastEntryUserID = 1
					
					If blnShowMod Then
							strSQL = "SELECT timesgrp.grpid, timesgrp.Name "
							strSQL = strSQL & "FROM timesgrp, timesaccess "
							strSQL = strSQL & "WHERE timesgrp.grpid = timesaccess.grpid AND timesaccess.Moderate = True AND timesaccess.bbsid = " & intForumID & ";"
						
						rsConn.Open strSQL, adoCon

						Do While NOT rsConn.EOF
							strModeratorsList = strModeratorsList & " <a href=""members.asp?gid=" & rsConn("grpid") & """ class=""smLink"">版主列表</a><br>"
							rsConn.MoveNext
						Loop
						rsConn.Close
					End If

						strSQL = "SELECT Top 1 timesuser.Username, timesuser.userid, timespost.topicid, timespost.postid, timespost.msgdtm "