wm.user_faith_grade.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("Faith") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Call WM_Content
Sub WM_Content()
   Dim i,StarNum,WR_UserFaith
   Call DBConnBegin()
   Set Rs = server.createobject("adodb.recordset")
   Select Case WRMPS.CheckStr(Request("Action"), 0)
     Case "Save"
         StarNum = WRMPS.CheckStr(Request("StarNum"), 1)
		 WR_UserFaith = ""
         For i = 1 To StarNum
           If Request("StarName_" & i) <> "Del" Then
		     If WR_UserFaith <> "" Then
	           WR_UserFaith = WR_UserFaith & "§" & Request("StarName_" & i)&"|"&Request("LeastTopic_" & i)&"|"&Request("StarPic_" & i)&"|"
			 Else
	           WR_UserFaith = Request("StarName_" & i)&"|"&Request("LeastTopic_" & i)&"|"&Request("StarPic_" & i)&"|"
			 End If
		   End If
		 Next
		 Call WRMPS.SCache("UserFaith",WR_UserFaith)
         Conn.Execute("Update WM_Config Set WM_UserFaith='"&WR_UserFaith&"'")
		 Call WRMPS.ErrView("·操作成功<meta http-equiv=refresh content='1;URL=WM.User_Faith_Grade.asp'>",1)
		 
     Case Else
         Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
         Content = Content & "<tr class=td4><td colspan=4><strong>信用会员等级管理</strong></td></tr>" & vbCrLf
         Content = Content & "<tr class=td3 align=center>" & vbCrLf
         Content = Content & "<td width='5%'>ID</td>" & vbCrLf
         Content = Content & "<td width='23%'>等级名称</td>" & vbCrLf
         Content = Content & "<td width='10%'>最少信用值</td>" & vbCrLf
         Content = Content & "<td width='*'>等级图片</td>" & vbCrLf
         Content = Content & "</tr>" & vbCrLf
         Content = Content & "<form name='addform' method='post' action='?Action=Save'>" & vbCrLf
		 If W_UserFaith <> "" Then
		   WR_UserFaith = Split(W_UserFaith,"§")
		   For i=0 To UBound(WR_UserFaith)
		     Content = Content & "<tr class=td2 align=center>" & vbCrLf
             Content = Content & "<td>"&i+1&"</td>" & vbCrLf
             Content = Content & "<td><input name='StarName_"&i+1&"' type='text' style='width:150' maxlength='15' value="""&Split(WR_UserFaith(i),"|")(0)&"""></td>" & vbCrLf
             Content = Content & "<td><input name='LeastTopic_"&i+1&"' type='text' style='width:50' maxlength='5' value="""&Split(WR_UserFaith(i),"|")(1)&"""></td>" & vbCrLf
             Content = Content & "<td align=left>&nbsp; <input name='StarPic_"&i+1&"' type='text' style='width:200' maxlength='20' value="""&Split(WR_UserFaith(i),"|")(2)&"""> <img src='../images/star/"&Split(WR_UserFaith(i),"|")(2)&"' align=absmiddle></td>" & vbCrLf
             Content = Content & "</tr>" & vbCrLf
		   Next
		 End If
		 Content = Content & "<tr class=td2 align=center>" & vbCrLf
         Content = Content & "<td>"&i+1&"</td>" & vbCrLf
         Content = Content & "<td><input name='StarName_"&i+1&"' type='text' value='Del' style='width:150' maxlength='15'></td>" & vbCrLf
         Content = Content & "<td><input name='LeastTopic_"&i+1&"' type='text' style='width:50' maxlength='5'></td>" & vbCrLf
         Content = Content & "<td align=left>&nbsp; <input name='StarPic_"&i+1&"' type='text' style='width:200' maxlength='20'></td>" & vbCrLf
         Content = Content & "</tr>" & vbCrLf
         Content = Content & "<tr class=td2 align=center>" & vbCrLf
         Content = Content & "<td colspan=4><input name=StarNum type=hidden value=" & i + 1 & "><input type=submit name='Submit' value='提 交'></td>" & vbCrLf
         Content = Content & "</tr>" & vbCrLf
         Content = Content & "</form>" & vbCrLf
         Content = Content & "<tr class=td2><td colspan=4><b>注：</b><br>① 如果想清除某条等级信息，请在对应的等级名称框中输入 Del ，注意大小写。</td></tr>" & vbCrLf
         Content = Content & "</Table>" & vbCrLf

   End Select 
   Set Rs = Nothing
   Call ClassEnd()
   Call DBConnEnd()
   Response.Write Content
   Call GetBottom()
End Sub

%>