CMS系统增加一个频道的问题 5
用的是OK3W4.9的CMS,,自带有文章及下载频道,,想自己弄一个产品展示频道,但就是不懂怎么增加相关的代码.系统设置保存的数据都在一个数据表里.我想另增加产品基本设置...
用的是OK3W4.9的CMS,,自带有文章及下载频道,,想自己弄一个产品展示频道,
但 就是不懂怎么增加相关的代码.
系统设置保存的数据都在一个数据表里.我想另增加产品基本设置,只能读出表里的,却写不进去,(水平有限,连解释都不懂怎么说清楚)
这一段是系统基本设置的
Public Sub Edit()
Sql = "select * from Ok3w_SiteConfig"
Rs.Open Sql,Conn,1,3
For i = 0 To Rs.Fields.Count - 1
If Left(Rs.Fields(i).Name,8)="SiteSoft" Then
Else
v = Request.Form(Rs.Fields(i).Name)
If v="" Then v="0"
Rs(Rs.Fields(i).Name) = v
End If
Next
Rs.Update
Rs.Close
Application(SiteID & "_Ok3w_SiteTitle") = ""
End Sub
这一段是下载频道基本设置的
Public Sub SoftEdit()
Sql = "select * from Ok3w_SiteConfig"
Rs.Open Sql,Conn,1,3
For i = 0 To Rs.Fields.Count - 1
If Left(Rs.Fields(i).Name,8)="SiteSoft" Then
v = Request.Form(Rs.Fields(i).Name)
Rs(Rs.Fields(i).Name) = v
End If
Next
Rs.Update
Rs.Close
Application(SiteID & "_Ok3w_SiteTitle") = ""
End Sub
就是说我想再增加一个Public Sub 应该怎么做
这段代码如果换才能不和原来的冲突
For i = 0 To Rs.Fields.Count - 1
If Left(Rs.Fields(i).Name,8)="SiteSoft" Then
v = Request.Form(Rs.Fields(i).Name)
Rs(Rs.Fields(i).Name) = v
End If
Next 展开
但 就是不懂怎么增加相关的代码.
系统设置保存的数据都在一个数据表里.我想另增加产品基本设置,只能读出表里的,却写不进去,(水平有限,连解释都不懂怎么说清楚)
这一段是系统基本设置的
Public Sub Edit()
Sql = "select * from Ok3w_SiteConfig"
Rs.Open Sql,Conn,1,3
For i = 0 To Rs.Fields.Count - 1
If Left(Rs.Fields(i).Name,8)="SiteSoft" Then
Else
v = Request.Form(Rs.Fields(i).Name)
If v="" Then v="0"
Rs(Rs.Fields(i).Name) = v
End If
Next
Rs.Update
Rs.Close
Application(SiteID & "_Ok3w_SiteTitle") = ""
End Sub
这一段是下载频道基本设置的
Public Sub SoftEdit()
Sql = "select * from Ok3w_SiteConfig"
Rs.Open Sql,Conn,1,3
For i = 0 To Rs.Fields.Count - 1
If Left(Rs.Fields(i).Name,8)="SiteSoft" Then
v = Request.Form(Rs.Fields(i).Name)
Rs(Rs.Fields(i).Name) = v
End If
Next
Rs.Update
Rs.Close
Application(SiteID & "_Ok3w_SiteTitle") = ""
End Sub
就是说我想再增加一个Public Sub 应该怎么做
这段代码如果换才能不和原来的冲突
For i = 0 To Rs.Fields.Count - 1
If Left(Rs.Fields(i).Name,8)="SiteSoft" Then
v = Request.Form(Rs.Fields(i).Name)
Rs(Rs.Fields(i).Name) = v
End If
Next 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询