TSYS一個新聞多種特性時如何進行前臺更新?
更新時間:2007年01月08日 00:00:00 作者:
ACCESS數(shù)據(jù)庫用的方法:
Instr(','+Speciality+',',',2,')<>0
完整的代碼如下:
如果這段使用在SQL中會提示'Instr' 不是可以識別的 函數(shù)名。
SQL數(shù)據(jù)庫更新應(yīng)用:
dbo.IsSpeciality(Speciality,'2')>0
完整代碼如下:
Instr(','+Speciality+',',',2,')<>0
完整的代碼如下:
復(fù)制代碼 代碼如下:
Function Update08()
Dim TemplateFilePath
TemplateFilePath=Server.MapPath("../../../default.htm")
Dim TClass,strHtml
Set TClass=New Tkl_TemplateClass
strHtml=""
Dim Rs,Sql
Sql="Select Top 8 Title,FilePath,AddTime From view_NewsInfo Where Instr(','+Speciality+',',',18,')<>0 order By Id DESC"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof
strHtml=strHtml&"·[" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/vvxyksv9kd") & "]<a href=""" & Rs("FilePath") & """ target=""_blank"">" & Rs("Title") & "</a><br>" & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
With TClass
.OpenTemplate(TemplateFilePath)
.StartElement="<!--DownRecommand:start-->"
.EndElement="<!--DownRecommand:end-->"
.Value=strHtml
.ReplaceTemplate()
.Save()
End With
Set TClass=Nothing
End Function
Dim TemplateFilePath
TemplateFilePath=Server.MapPath("../../../default.htm")
Dim TClass,strHtml
Set TClass=New Tkl_TemplateClass
strHtml=""
Dim Rs,Sql
Sql="Select Top 8 Title,FilePath,AddTime From view_NewsInfo Where Instr(','+Speciality+',',',18,')<>0 order By Id DESC"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof
strHtml=strHtml&"·[" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/vvxyksv9kd") & "]<a href=""" & Rs("FilePath") & """ target=""_blank"">" & Rs("Title") & "</a><br>" & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
With TClass
.OpenTemplate(TemplateFilePath)
.StartElement="<!--DownRecommand:start-->"
.EndElement="<!--DownRecommand:end-->"
.Value=strHtml
.ReplaceTemplate()
.Save()
End With
Set TClass=Nothing
End Function
如果這段使用在SQL中會提示'Instr' 不是可以識別的 函數(shù)名。
SQL數(shù)據(jù)庫更新應(yīng)用:
dbo.IsSpeciality(Speciality,'2')>0
完整代碼如下:
復(fù)制代碼 代碼如下:
'//下載中心 - 推薦
Function Update08()
Dim TemplateFilePath
TemplateFilePath=Server.MapPath("../../../default.htm")
Dim TClass,strHtml
Set TClass=New Tkl_TemplateClass
strHtml=""
Dim Rs,Sql
Sql="Select Top 8 Title,FilePath,AddTime From view_NewsInfo Where dbo.IsSpeciality(Speciality,'18')>0 order By Id DESC"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof
strHtml=strHtml&"·[" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/vvxyksv9kd") & "]<a href=""" & Rs("FilePath") & """ target=""_blank"">" & Rs("Title") & "</a><br>" & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
With TClass
.OpenTemplate(TemplateFilePath)
.StartElement="<!--DownRecommand:start-->"
.EndElement="<!--DownRecommand:end-->"
.Value=strHtml
.ReplaceTemplate()
.Save()
End With
Set TClass=Nothing
End Function
Function Update08()
Dim TemplateFilePath
TemplateFilePath=Server.MapPath("../../../default.htm")
Dim TClass,strHtml
Set TClass=New Tkl_TemplateClass
strHtml=""
Dim Rs,Sql
Sql="Select Top 8 Title,FilePath,AddTime From view_NewsInfo Where dbo.IsSpeciality(Speciality,'18')>0 order By Id DESC"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof
strHtml=strHtml&"·[" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/vvxyksv9kd") & "]<a href=""" & Rs("FilePath") & """ target=""_blank"">" & Rs("Title") & "</a><br>" & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
With TClass
.OpenTemplate(TemplateFilePath)
.StartElement="<!--DownRecommand:start-->"
.EndElement="<!--DownRecommand:end-->"
.Value=strHtml
.ReplaceTemplate()
.Save()
End With
Set TClass=Nothing
End Function
相關(guān)文章
用asp實現(xiàn)的獲取文件夾中文件的個數(shù)的代碼
asp實現(xiàn)的返回指定文件夾中文件的數(shù)目的代碼2009-12-12ASP中Null,Empty,Nothing的區(qū)別分析
本文介紹在ASP中,NULL,Empty,Nothing這幾種空值的來源和判斷方法。希望對大家有所幫助。2014-08-08asp下用datediff實現(xiàn)計算兩個時間差的函數(shù)
asp下用datediff實現(xiàn)計算兩個時間差的函數(shù)...2007-11-11ASP代碼實現(xiàn)自動清除替換ACCESS(MDB)數(shù)據(jù)庫的日文字符的
我們都知道ACCESS是ASP的親密伙伴。因為兩種最簡單的東西碰在一起總能迸發(fā)出火花。 然而,當(dāng)我們過濾不嚴(yán)格的時候經(jīng)常出現(xiàn)日文字符,這個時候搜索之后就會出現(xiàn)日文溢出。2008-06-06asp下刪除Access數(shù)詞庫中的空記錄的sql語句
asp下刪除Access數(shù)詞庫中的空記錄的sql語句...2007-04-04ASP關(guān)于編碼的幾個有用的函數(shù)小結(jié)(utf8)
UTF8轉(zhuǎn)GB2312將UTF8編碼文字轉(zhuǎn)換為GB編碼文字,UTF8編碼文字將轉(zhuǎn)換為漢字的代碼,需要的朋友可以參考下。2011-05-05