gfunction.asp

鲁门网站系统

		Response.Write Db.ExportPageInfo(Db.gRs,iPage,i,"List.asp?ClassID="+ sProductClass +"&")

		Response.Write("</td>")
		Response.Write("</tr>")
		Response.Write("</table>")		
	End If
End Sub

'扣除会员点数
Function bReducePointCount(sUserName,iPointCount)
'	On Error Resume Next
		dim sSql
		sSql = "Update tblMemberInfo Set PointCount = PointCount - "& iPointCount &" Where UserName = '"& sUserName &"'"

		If Db.RunSql(sSql) then
			bReducePointCount = true
		Else
			bReducePointCount = false
		End If
End Function

'判断会员的点数是否够
Function bCheckPointCount(sUserName,iPointCount)
'	On Error Resume Next
		dim sSql
		sSql = "Select PointCount From tblMemberInfo Where UserName = '"+ sUserName +"'"
				
		Db.getRecordSet(sSql)
		if not Db.gRs.EOF and not Db.gRs.BOF then
			if Db.gRs("PointCount") > CInt(iPointCount) then
				bCheckPointCount = true
			else
				bCheckPointCount = false
			end if
		else
			bCheckPointCount = false
		end if
End Function

'根据充值卡号、密码得到该卡的点数
Function iGetCardPointCount(sCardID,sCardPassword)
		iGetCardPointCount = 0
		dim sSql
		sSql = "Select * From tblCardInfo Where CardID = '"&sCardID&"' and CardPassword = '"&sCardPassword&"' and IsCancel = '0'"
		Db.getRecordSet(sSql)		
		If Db.gRs.EOF or Db.gRs.BOF then
			iGetCardPointCount = 0
		Else
			iGetCardPointCount = Cstr(Db.gRs("CardPointCount"))
		End If
End Function

'根据用户名称、充值卡号、密码给用户充值
Function iAddPointToUser(sUserName,sPassword,sCardID,sCardPassword)
	dim sSql,sSql2,iPointCount
	iPointCount = 0
	iPointCount = iGetCardPointCount(sCardID,sCardPassword)
	
	sSql = ""
	sSql = "Select * From Common_Member Where Accout = '"+ sUserName +"' and Password = '"+ sPassword +"'"
	
	If Db.getRecordCount(sSql) = 0 Then
		iAddPointToUser = 1  '不存在该用户
	ElseIf iPointCount = "0" Then
		iAddPointToUser = 2  '卡号不存在或此卡已经充过值了
	Else
		sSql = ""
		sSql = "Update Common_Member Set LoginCount = LoginCount + "& iPointCount &" Where Accout = '"& sUserName &"'"

		sSql2 = ""
		sSql2 = "Update tblCardInfo Set IsCancel = '1' Where CardID = '"+ sCardID +"'"
	    
	    '启动事务
	    Db.gConn.BeginTrans
			If Db.RunSql(sSql) and Db.RunSql(sSql2) then
				iAddPointToUser = 3  '充值成功
			Else
				iAddPointToUsre = 0  '操作数据库失败
			End If		
		Db.gConn.CommitTrans
	End If
End Function

'列出所有分站 ID=0 为没有select选项
Sub ListWebSite(ID,Accout) 
'   On Error Resume Next
   Dim sql,Msg
   sql = "select WebSiteID,WebSiteName From WebSite_Class order by WebSiteID"
   Db.GetRecordSetWebSite(sql)
   Response.Write("<select name=" + Accout + ">")
   Response.Write("<option value=0>选择分站</option>")
   While Not Db.RsWebSite.Eof
         If (ID <> 0) and (Db.RsWebSite(0) = ID) Then
			   Msg = "Selected"
		 End If
         Response.Write("<option value=" + Cstr(Db.RsWebSite(0)) + " " + Msg + ">" + Cstr(Db.RsWebSite(1)) + "</option>")
		 Msg = ""
      Db.RsWebSite.MoveNext
   Wend
   Response.Write("</select>")
   If Err.Number <> 0 Then Err.Clear()
End Sub

'列出所有柜台分类 ClassID="0" 为没有select选项
Sub ListCounterClass(ClassID) 
'   On Error Resume Next
   Dim sql,Msg
   sql = "select CounterClassID,CounterClassName From tblCounterClass order by CounterClassID"
   Db.GetRecordSet(sql)
   Response.Write("<select name=selCounterClass>")
   Response.Write("<option value='0'>选择柜台类别</option>")
   While Not Db.gRs.Eof
         If (ClassID <> "0") and (Db.gRs(0) = ClassID) Then
			   Msg = "Selected"
		 End If
         Response.Write("<option value=" + Cstr(Db.gRs(0)) + " " + Msg + ">" + Cstr(Db.gRs(1)) + "</option>")
		 Msg = ""
      Db.gRs.MoveNext
   Wend
   Response.Write("</select>")
   If Err.Number <> 0 Then Err.Clear()
End Sub

'列出所有商品分类 ClassID="0" 为没有select选项
Sub ListProdcutClassSel(ClassID)
'	On Error Resume Next
   Dim sql,Msg
   sql = "select ProductClassID,ProductClassName From tblProductClass order by ProductClassID"
   Db.GetRecordSet(sql)
   Response.Write("<select name=selProductClass>")
   Response.Write("<option value='0'>选择商品类别</option>")
   While Not Db.gRs.Eof
         If (ClassID <> "0") and (Db.gRs(0) = ClassID) Then
			   Msg = "Selected"
		 End If
         Response.Write("<option value=" + Cstr(Db.gRs(0)) + " " + Msg + ">" + Cstr(Db.gRs(1)) + "</option>")
		 Msg = ""
      Db.gRs.MoveNext
   Wend
   Response.Write("</select>")
   If Err.Number <> 0 Then Err.Clear()
End Sub


'列出所有省份分类 ClassID="0" 为没有select选项
Sub ListProvinceClass(ClassID) 
'   On Error Resume Next
   Dim sql,Msg
   sql = "select ProvinceClassID,ProvinceClassName From tblProvinceClass order by ProvinceClassID"
   Db.GetRecordSet(sql)
   Response.Write("<select name=selProvinceClass>")
   Response.Write("<option value='0'>选择省份</option>")
   While Not Db.gRs.Eof
         If (ClassID <> "0") and (Db.gRs(0) = ClassID) Then
			   Msg = "Selected"
		 End If
         Response.Write("<option value=" + Cstr(Db.gRs(1)) + " " + Msg + ">" + Cstr(Db.gRs(1)) + "</option>")
		 Msg = ""
      Db.gRs.MoveNext
   Wend
   Response.Write("</select>")
   If Err.Number <> 0 Then Err.Clear()
End Sub

'列出所有新旧程度 ClassID="0" 
Sub ListNewDegreeClass(ClassID)
'	On Error Resume Next
	Dim sql,Msg
    sql = "select NewDegreeClassID,NewDegreeClassName From tblNewDegreeClass order by NewDegreeClassID"
    Db.GetRecordSet(sql)
    While Not Db.gRs.EOF
		If (ClassID <> "0") and (Db.gRs(0) = ClassID) then
			Msg = "Checked"
		else
			Msg = ""
		End If
		Response.Write("<INPUT type=radio name=rdoNewDegree value=" + cStr(Db.gRs(0)) + " " + Msg + ">")
		Response.Write(""+ Db.gRs(1) +"")
    Db.gRs.MoveNext
    Wend
    If Err.number <> 0 then Err.Clear()
End Sub

'列出所有支付方式 ClassID="0" 
Sub ListPayModeClass(ClassID)
'	On Error Resume Next
	Dim sql,Msg
    sql = "select PayModeClassID,PayModeClassName From tblPayModeClass order by PayModeClassID"
    Db.GetRecordSet(sql)
    While Not Db.gRs.EOF
		If (ClassID <> "0") and (Db.gRs(0) = ClassID) then
			Msg = "Checked"
		else
			Msg = ""
		End If
		Response.Write("<INPUT type=radio name=rdoPayMode value=" + cStr(Db.gRs(0)) + " " + Msg + ">")
		Response.Write(""+ Db.gRs(1) +"<BR>")
    Db.gRs.MoveNext
    Wend
    If Err.number <> 0 then Err.Clear()
End Sub

'列出所有交货方式 ClassID="0" 
Sub ListDeliveryModeClass(ClassID) 
'	On Error Resume Next
	Dim sql,Msg
    sql = "select DeliveryModeClassID,DeliveryModeClassName From tblDeliveryModeClass order by DeliveryModeClassID"
    Db.GetRecordSet(sql)
    While Not Db.gRs.EOF
		If (ClassID <> "0") and (Db.gRs(0) = ClassID) then
			Msg = "Checked"
		else
			Msg = ""
		End If
		Response.Write("<INPUT type=radio name=rdoDeliveryMode value=" + cStr(Db.gRs(0)) + " " + Msg + ">")
		Response.Write(""+ Db.gRs(1) +"<BR>")
    Db.gRs.MoveNext
    Wend
    If Err.number <> 0 then Err.Clear()
End Sub

'列出所有运费承担方式 ClassID="0" 
Sub ListFreightModeClass(ClassID) 
'	On Error Resume Next
	Dim sql,Msg
    sql = "select FreightModeClassID,FreightModeClassName From tblFreightModeClass order by FreightModeClassID"
    Db.GetRecordSet(sql)
    While Not Db.gRs.EOF
		If (ClassID <> "0") and (Db.gRs(0) = ClassID) then
			Msg = "Checked"
		else
			Msg = ""
		End If
		Response.Write("<INPUT type=radio name=rdoFreightMode value=" + cStr(Db.gRs(0)) + " " + Msg + ">")
		Response.Write(""+ Db.gRs(1) +"<BR>")
    Db.gRs.MoveNext
    Wend
    If Err.number <> 0 then Err.Clear()
End Sub

'列出所有区域限制 ClassID="0" 
Sub ListLimitAreaClass(ClassID) 
'	On Error Resume Next
	Dim sql,Msg
    sql = "select LimitAreaClassID,LimitAreaClassName From tblLimitAreaClass order by LimitAreaClassID"
    Db.GetRecordSet(sql)
    While Not Db.gRs.EOF
		If (ClassID <> "0") and (Db.gRs(0) = ClassID) then
			Msg = "Checked"
		else
			Msg = ""
		End If
		Response.Write("<INPUT type=radio name=rdoLimitArea value=" + cStr(Db.gRs(0)) + " " + Msg + ">")
		Response.Write(""+ Db.gRs(1) +"<BR>")
    Db.gRs.MoveNext
    Wend
    If Err.number <> 0 then Err.Clear()
End Sub

'有表中的一个字段的值得到另一个字段的值
Function GetOneFromOther(sTableName,sOneName,sOtherName,sOneValue)
	dim sSql
	sSql = "Select "+ sOtherName +" From "+ sTableName +" Where "+ sOneName +" = '"+ sOneValue +"'"
	Db.GetRecordSet(sSql)
	if Not Db.gRs.EOF then
		GetOneFromOther = Db.gRs(0)
	else
		GetOneFromOther = ""
	end if
End Function
%>