免费版新云2.1系统整合商城模块的方法
-
相信很多的朋友都在用新云的系统，而初次下载的时候可能就是在官方上下载的或是在其它的源码站上下载的， 但是，那个可能就是Free版本的，这个版本与正式版的最大区别（我个人认为的）就是商城系统，其实在正式版里面是有这个系统的，，，，废话少说了，开始整合。
1、首先下载一个完整版的新云2.1系统。解压，这个不用我说了吧，，，
我这里有一个，同志们可以下载 点击下载此文件
2、把商业版里面的Shop文件夹全部Copy到你Free版本的目录里面。
3、先打开你Free版的数据库，在哪不用我说了吧，把商业版数据库里面的NC_buy，NC_Favourite，NC_OrderForm，NC_ShopList三个数据表导入进去（不用担心，原来是没有的，不会覆盖掉你原来的内容）
4、Copy商业版里Admin文件夹里面的admin_Shop.asp，admin_orderform.asp，admin_createShop.asp，admin_makeshop.asp到你原来版本的Admin文件夹里面。把商业版Inc文件夹的ShopChannel.asp，cls_public.asp也拷到你Free版的Inc文件夹下。把
5、在inc/cls_main.asp的最下边End Class%>前插入下面的内容。
引用内容
'================================================
'函数名：CCh
' 得到一位数字 N1 的汉字大写
' 0 返回 ""
'================================================
Private Function CCh(N1)
Select Case N1
Case 0:CCh = "零"
Case 1:CCh = "壹"
Case 2:CCh = "贰"
Case 3:CCh = "叁"
Case 4:CCh = "肆"
Case 5:CCh = "伍"
Case 6:CCh = "陆"
Case 7:CCh = "柒"
Case 8:CCh = "捌"
Case 9:CCh = "玖"
End Select
End Function
'================================================
'函数名：ChMoney
' 得到数字 N1 的汉字大写
' 最大为 千万位
'================================================
Public Function ChMoney(N1)
Dim tMoney,lMoney,ST1,t1
Dim tn,s1,s2,s3
On Error Resume Next
If N1 = 0 Then
ChMoney = "零"
Exit Function
End If
If N1 > 99999999 Then
ChMoney = ""
Exit Function
End If
If N1 < 0 Then
ChMoney = "负" + ChMoney(Abs(N1))
Exit Function
End If
tMoney = Trim(Cstr(N1))
tn = InStr(tMoney, ".") '小数位置
s1 = ""
If tn <> 0 Then
ST1 = Right(tMoney, Len(tMoney) - tn)
If ST1 <> "" Then
t1 = Left(ST1, 1)
ST1 = Right(ST1, Len(ST1) - 1)
If t1 <> "0" Then
s1 = s1 + CCh(eval(t1)) + "角"
End If
If ST1 <> "" Then
t1 = Left(ST1, 1)
s1 = s1 + CCh(eval(t1)) + "分"
End If
End If
ST1 = Left(tMoney, tn - 1)
Else
ST1 = tMoney
End If
s2 = ""
If ST1 <> "" Then
t1 = Right(ST1, 1)
ST1 = Left(ST1, Len(ST1) - 1)
s2 = CCh(eval(t1)) + s2
End If
If ST1 <> "" Then
t1 = Right(ST1, 1)
ST1 = Left(ST1, Len(ST1) - 1)
If t1 <> "0" Then
s2 = CCh(eval(t1)) + "拾" + s2
Else
If Left(s2, 1) <> "零" Then s2 = "零" + s2
End If
End If
If ST1 <> "" Then
t1 = Right(ST1, 1)
ST1 = Left(ST1, Len(ST1) - 1)
If t1 <> "0" Then
s2 = CCh(eval(t1)) + "佰" + s2
Else
If Left(s2, 1) <> "零" Then s2 = "零" + s2
End If
End If
If ST1 <> "" Then
t1 = Right(ST1, 1)
ST1 = Left(ST1, Len(ST1) - 1)
If t1 <> "0" Then
s2 = CCh(eval(t1)) + "仟" + s2
Else
If Left(s2, 1) <> "零" Then s2 = "零" + s2
End If
End If
s3 = ""
If ST1 <> "" Then
t1 = Right(ST1, 1)
ST1 = Left(ST1, Len(ST1) - 1)
s3 = CCh(eval(t1)) + s3
End If
If ST1 <> "" Then
t1 = Right(ST1, 1)
ST1 = Left(ST1, Len(ST1) - 1)
If t1 <> "0" Then
s3 = CCh(eval(t1)) + "拾" + s3
Else
If Left(s3, 1) <> "零" Then s3 = "零" + s3
End If
End If
If ST1 <> "" Then
t1 = Right(ST1, 1)
ST1 = Left(ST1, Len(ST1) - 1)
If t1 <> "0" Then
s3 = CCh(eval(t1)) + "佰" + s3
Else
If Left(s3, 1) <> "零" Then s3 = "零" + s3
End If
End If
If ST1 <> "" Then
t1 = Right(ST1, 1)
ST1 = Left(ST1, Len(ST1) - 1)
If t1 <> "0" Then
s3 = CCh(eval(t1)) + "仟" + s3
End If
End If
If Right(s2, 1) = "零" Then s2 = Left(s2, Len(s2) - 1)
If Len(s3) > 0 Then
If Right(s3, 1) = "零" Then s3 = Left(s3, Len(s3) - 1)
s3 = s3 & "万"
End If
ChMoney = IIf(s3 & s2 = "", s1, s3 & s2 & "元" & s1)
End Function
Function IIF(bTest, resultTRUE, resultFALSE)
If bTest = True Then
IIF = resultTRUE
Else
IIF = resultFALSE
End If
End Function
6、打开Admin/admin_channel.asp，找到Set Rsm = Newasp.Execute("Select ChannelID,ModuleName From NC_Channel Where ChannelID<>3 And ChannelType<2 orDER BY orders ASC")把其中的红色部分删除。
7、打开Admin/admin_left.asp文件，找到ChannelID<>3，看看该删的就删掉。（需要懂一点SQL语法，，，）
好了，刷新一下你的控制页面吧，，，，，看看是不是出来了？
还有些内容不全的，就是免费版的订单管理功能，没有商业版的全，方法跟第五部差不多，把商业版的Admin/admin_left.asp中的相应内容Copy到Free版中即可了，，，，
最后说明一点，如果你Admin/admin_left.asp没有做特别的修改的话，不用上面的第七步，可以直接把商业版的覆盖过去就行了，，，，
结束。
祝同志们玩的愉快！
