📄 user.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
Dim Rs,SQL,NowStats
Dim HtmlTitle,Style_CSS,HtmlTempStr
Dim TempTopStr,TempFootStr,DownloadClass_Ads
Dim GroupSet,GroupName,UserMoney,CategoryId
Dim DayDownNum,userid,username
Set Rs = Server.CreateObject("adodb.recordset")
DownsysClass.LoadTemplates ("index")
Set DownloadClass_Ads = New Adcolumn_Cls
Set Rs = CreateObject("adodb.recordset")
NowStats = "会员管理登陆"
HtmlTitle = "会员管理登陆"
TempTopStr = DownsysClass.mainhtml(0) & DownsysClass.TempHtml(0) & DownsysClass.mainhtml(2)
TempFootStr = DownsysClass.mainhtml(4)
Style_CSS = Replace(Replace(DownsysClass.Style_CSS, "{$SetupDir}", DownsysClass.SetupDir), "{$PicUrl}", DownsysClass.TempDir)
HtmlTempStr = TempTopStr
HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", DownsysClass.SortingMenu)
HtmlTempStr = Replace(HtmlTempStr, "{$Width}", DownsysClass.mainset(0))
HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
If CInt(DownsysClass.Setting(5)) = 0 Then
HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", DownsysClass.mainset(9))
Else
HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", DownsysClass.mainset(10))
End If
HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
HtmlTempStr = Replace(HtmlTempStr, "{$sousuo}", sousuo)
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", DownloadClass_Ads.RunScriptAds(7))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", DownloadClass_Ads.BannerAds(7))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", DownloadClass_Ads.AdsColumn(7, 2))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", DownloadClass_Ads.AdsColumn(7, 3))
Response.Write HtmlTempStr
If CInt(DownsysClass.Setting(5)) = 1 Then
TempFootStr = Replace(TempFootStr, "{$FootMeun}", DownsysClass.mainset(11))
Else
TempFootStr = Replace(TempFootStr, "{$FootMeun}", DownsysClass.mainset(44))
End If
TempFootStr = Replace(TempFootStr, "{$Width}", DownsysClass.mainset(0))
TempFootStr = Replace(TempFootStr, "{$Adcolumn(4)}", DownloadClass_Ads.ScriptFloatAds(7))
TempFootStr = Replace(TempFootStr, "{$Adcolumn(5)}", DownloadClass_Ads.ScriptFixedAds(7))
'搜索下拉框选择项目(整体分类部分：供应、求购)
Private Function sousuo()
Dim SoftType
Dim HtmlShowPage
Dim ii
HtmlShowPage = HtmlShowPage &" <select name=""action""> "
HtmlShowPage = HtmlShowPage &" <option value=""soft"" selected>全部信息</option>"
SoftType = Split(DownsysClass.Setting(35), ",")
For ii = 0 To UBound(SoftType)
HtmlShowPage = HtmlShowPage & "<option value=""soft"& ii &""">" & Trim(SoftType(ii)) & "</option>"
Next
HtmlShowPage = HtmlShowPage & "<option value=""info"">文章搜索</option></SELECT>"
sousuo = HtmlShowPage
End Function
If DownsysClass.memberName = Empty Then
%>
<form method="post" action="login.asp?action=login" target="_top">
<table width="100%" height="53%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><TABLE border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD><IMG height=12
src="images/member_box_01.gif"
width=12></TD>
<TD><IMG height=12
src="images/member_box_02.gif"
width=796></TD>
<TD><IMG height=12
src="images/member_box_03.gif"
width=12></TD>
</TR>
<TR>
<TD><IMG height=175
src="images/member_box_04.gif"
width=12></TD>
<TD><TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR vAlign=top>
<TD rowSpan=4><IMG height=175
src="images/member_img_01.gif"
width=343></TD>
<TD rowSpan=4><IMG height=175
src="images/member_img_02.gif"
width=1></TD>
<TD width=344 height=45></TD>
<TD
style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 44px"
width=108 rowSpan=4><INPUT type=image src="images/member_btn_01.gif" name="Submit" border=0 align=absMiddle title='用户登陆'>
</TD>
</TR>
<TR>
<TD height=30><TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD
style="PADDING-RIGHT: 10px; PADDING-LEFT: 107px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px"><IMG
height=9
src="images/member_txt_01.gif"
width=12></TD>
<TD><INPUT
name=username id="username"
style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; WIDTH: 204px; COLOR: #737373; BORDER-BOTTOM: 0px; HEIGHT: 20px; BACKGROUND-COLOR: #f1f1f1"
tabIndex=1></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=33><TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD
style="PADDING-RIGHT: 10px; PADDING-LEFT: 52px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px"><IMG
height=11
src="images/member_txt_02.gif"
width=67></TD>
<TD><INPUT
onkeypress="if (event.keyCode == 13) cmdSubmit();"
style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; WIDTH: 204px; COLOR: #737373; BORDER-BOTTOM: 0px; HEIGHT: 20px; BACKGROUND-COLOR: #f1f1f1"
tabIndex=2 type=password
name=password></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR vAlign=top>
<TD
style="PADDING-RIGHT: 0px; PADDING-LEFT: 129px; PADDING-BOTTOM: 0px; PADDING-TOP: 5px"
height=67><A tabIndex=4
href="sendpass.asp"><IMG
height=20
src="images/member_btn_02.gif"
width=118 border=0></A><A tabIndex=5
href="reg.asp?action=hangye&depth=0"><IMG
style="MARGIN: 0px 0px 0px 10px" height=20
src="images/member_btn_03.gif"
width=77 border=0></A></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD><IMG height=175
src="images/member_box_05.gif"
width=12></TD>
</TR>
<TR>
<TD><IMG height=12
src="images/member_box_06.gif"
width=12></TD>
<TD><IMG height=12
src="images/member_box_07.gif"
width=796></TD>
<TD><IMG height=12
src="images/member_box_08.gif"
width=12></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table>
</form>
<p>
<%
Else
username = DownsysClass.memberName
userid = CLng(DownsysClass.memberid)
SQL = "select NC_User.money,NC_User.CategoryId,NC_User.DayDownNum,NC_UserGroup.GroupName,NC_UserGroup.GroupSet from NC_User,NC_UserGroup where NC_User.grade = NC_UserGroup.grades And NC_User.userid = " & userid & " And NC_User.username='" & username & "'"
Rs.Open SQL, conn, 1, 1
CategoryId = Rs("CategoryId")
UserMoney = Rs("money")
DayDownNum = Rs("DayDownNum")
GroupName = Rs("GroupName")
GroupSet = Split(Rs("GroupSet"), ",")
Rs.Close
%>
</p>
<TABLE cellSpacing=0 cellPadding=0 width=776 align=center border=0>
<TBODY>
<TR>
<TD height=210>
<TABLE cellSpacing=0 cellPadding=0 width=775 align=center
border=0><TBODY>
<TR>
<TD vAlign=top align=right>
<DIV align=right>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD> </TD></TR>
<TR>
<TD>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -