client_module.asp

asp+sql软件系统

<%
'格式化用户级别
Function UsersClass(UserId,Types)
If UserId="" Then Exit Function
Dim UCRs,Userclass
Set UCRs=Conn.Execute("EXECUTE NetCom_All_UsersClass 1,"&UserId&"")
If UCRs(0)=0 AND UCRs(1)>0 Then
Conn.Execute("EXECUTE NetCom_All_UsersClass 2,"&UserId&"")
Userclass=1
ElseIf UCRs(0)=1 AND UCRs(1)<=0 Then
Conn.Execute("EXECUTE NetCom_All_UsersClass 3,"&UserId&"")
Userclass=0
Elseif UCRs(0)=2 AND UCRs(1)<=0 Then
Conn.Execute("EXECUTE NetCom_All_UsersClass 4,"&UserId&"")
Userclass=0
Else
Userclass=UCRs(0)
End If
If Types=1 Then
UsersClass=Userclass
Else
Select Case Userclass
Case 0
UsersClass="免费用户"

End Select
End If
UCRs.Close
Set UCRs = Nothing
End Function
Dim UserId,UserName,UserPassword,UserVIP
UserId=Request.Cookies("NetCom")("UserId")
UserName=Request.Cookies("NetCom")("UserName")
UserPassword=Request.Cookies("NetCom")("UserPassWord")
Sub UserLogin()
Dim UserClass
UserClass=CInt(UsersClass(UserId,1))
If UserId="" Then
%>
<%Else%>
<%
End If
End Sub
Sub AClass()
Dim ACRs
Set ACRs=Conn.Execute("EXECUTE NetCom_All_AClass")%><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><tr><TD background="Images/Menu_bg.gif" height="40"><TABLE cellSpacing="0" cellPadding="0" width="100%" border="0"><TR align="middle"><TD colSpan="11"></TD></TR><tr align="center"><td width="69"><a href="Index.asp" class="high"><b>首　页</b></a></td><%While Not ACRs.EOF
If UserVIP<>"" Then%><td width="69"><a href="ViewClass_VIP.asp?UserVIP=<%=UserVIP%>&ACid=<%=ACRs(0)%>" class="top"><%=ACRs(1)%></a></td><%Else%><td width="69"><a href="ViewClass.asp?ACid=<%=ACRs(0)%>" class="top"><%=ACRs(1)%></a></td><%End If%><%ACRs.MoveNext
Wend%><td width="69"></td></tr></table></td></tr></table><%ACRs.Close
Set ACRs=Nothing
End Sub
Sub DownloadCommend(Purview,TypeKind)
Dim DCRs,i
i=1
Set DCRs=Conn.Execute("EXECUTE NetCom_All_DownloadCommend "&Purview&","&TypeKind&"")
%><table width="200" border="0" cellpadding="4" cellspacing="1" align="center" bgColor="#416194"><tr><td colspan="2"><img src="Images/Home_tj.gif" width="100" height="25"></td></tr><%If DCRs.Eof Then%><tr>
  <td bgcolor="#FFFFFF" align="center"><b>暂无数据</b></td>
</tr><%Else
While Not DCRs.EOF%><tr bgcolor="#FFFFFF"><td align="center"><b><%=NetCom.FormatNum(i)%></b></td><td onmouseover="javascript:this.bgColor='#F0F0F0';this.style.cursor='default';" onmouseout="javascript:this.bgColor='#FFFFFF';"><a href="ViewDownload.asp?Id=<%=DCRs(0)%>" class="SoftMeun" target="_blank"><%=NetCom.CutStr(DCRs(1),26)%></a></td></tr><%
i=i+1
DCRs.MoveNext
Wend
End If%></table><%DCRs.Close
Set DCRs=Nothing
End Sub
Sub DownloadArrange(Purview,TypeKind)
Dim DARs,i
i=1
Set DARs=Conn.Execute("EXECUTE NetCom_All_DownloadArrange "&Purview&","&TypeKind&"")
%><table width="200" border="0" cellpadding="4" cellspacing="1" align="center" bgColor="#416194"><tr><td colspan="2"><img src="Images/Home_hot.gif" width="100" height="25"></td></tr><%If DARs.Eof Then%><tr>
  <td bgcolor="#FFFFFF" align="center"><b>暂无数据</b></td>
</tr><%Else
While Not DARs.EOF%><tr bgcolor="#FFFFFF"><td align="center"><b><%=NetCom.FormatNum(i)%></b></td><td onmouseover="javascript:this.bgColor='#F0F0F0';this.style.cursor='default';" onmouseout="javascript:this.bgColor='#FFFFFF';"><a href="ViewDownload.asp?Id=<%=DARs(0)%>" class="SoftMeun" target="_blank"><%=NetCom.CutStr(DARs(1),26)%></a></td></tr><%
i=i+1
DARs.MoveNext
Wend
End If%></table><%DARs.Close
Set DARs=Nothing
End Sub
Sub Search()
%><table width="200" border="0" cellpadding="4" cellspacing="1" align="center" bgColor="#416194"><form name="form1" method="post" action="SearchDownload.asp?Action=Query"><tr><td colspan="2"><img src="Images/Home_search.gif" width="100" height="25"></td></tr><tr><td bgcolor="#FFFFFF"><input name="keyword" type="text" id="keyword" class="inputd"><br><select style="width:86;height:30px;font-size:12px" name="option"><option value="1" selected>软件名称</option><option value="2">软件简介</option></select><input type="submit" name="Submit" value="搜索" class="input1"><INPUT type="button" value="高级搜索" onClick="window.location.href='SearchDownload.asp?Action=AdSearch'" class="input1"></td></tr></form></table><%End Sub
Sub StatDownload()%><table width="200" border="0" cellpadding="4" cellspacing="1" align="center" bgColor="#416194"><tr><td colspan="2"><img src="Images/Home_js.gif" width="100" height="25"></td></tr><tr bgcolor="#FFFFFF"><td width="50%">今日软件更新数</td><td width="50%"><%=Conn.Execute("SELECT COUNT(Did) FROM [Download] WHERE Adddate>='"&Date()&"' AND Flag=1")(0)%></td></tr><tr bgcolor="#FFFFFF"><td width="50%">总共软件下载数</td><td width="50%"><%=Conn.Execute("SELECT COUNT(Did) FROM [Download] WHERE Flag=1")(0)%></td></tr></table>
<%End Sub%>