手机
当前位置:查字典教程网 >编程开发 >ASP教程 >TSYS一个新闻多种特性时如何进行前台更新?
TSYS一个新闻多种特性时如何进行前台更新?
摘要:ACCESS数据库用的方法:Instr(','+Speciality+',',',2,')0完整的代码如下:复制代码代码如下:Functio...

ACCESS数据库用的方法:

Instr(','+Speciality+',',',2,')<>0

完整的代码如下:

复制代码 代码如下:FunctionUpdate08()

DimTemplateFilePath

TemplateFilePath=Server.MapPath("../../../default.htm")

DimTClass,strHtml

SetTClass=NewTkl_TemplateClass

strHtml=""

DimRs,Sql

Sql="SelectTop8Title,FilePath,AddTimeFromview_NewsInfoWhereInstr(','+Speciality+',',',18,')<>0orderByIdDESC"

SetRs=Conn.ExeCute(Sql)

WhileNotRs.Eof

strHtml=strHtml&"·["&StrClass.FormatMyDate(Rs("AddTime"),"{m}/{d}")&"]<ahref="""&Rs("FilePath")&"""target=""_blank"">"&Rs("Title")&"</a><br>"&vbCrLf

Rs.MoveNext

Wend

Rs.Close

SetRs=Nothing

WithTClass

.OpenTemplate(TemplateFilePath)

.StartElement="<>"

.EndElement="<>"

.Value=strHtml

.ReplaceTemplate()

.Save()

EndWith

SetTClass=Nothing

EndFunction

如果这段使用在SQL中会提示'Instr'不是可以识别的函数名。

SQL数据库更新应用:

dbo.IsSpeciality(Speciality,'2')>0

完整代码如下:

复制代码 代码如下:'//下载中心-推荐

FunctionUpdate08()

DimTemplateFilePath

TemplateFilePath=Server.MapPath("../../../default.htm")

DimTClass,strHtml

SetTClass=NewTkl_TemplateClass

strHtml=""

DimRs,Sql

Sql="SelectTop8Title,FilePath,AddTimeFromview_NewsInfoWheredbo.IsSpeciality(Speciality,'18')>0orderByIdDESC"

SetRs=Conn.ExeCute(Sql)

WhileNotRs.Eof

strHtml=strHtml&"·["&StrClass.FormatMyDate(Rs("AddTime"),"{m}/{d}")&"]<ahref="""&Rs("FilePath")&"""target=""_blank"">"&Rs("Title")&"</a><br>"&vbCrLf

Rs.MoveNext

Wend

Rs.Close

SetRs=Nothing

WithTClass

.OpenTemplate(TemplateFilePath)

.StartElement="<>"

.EndElement="<>"

.Value=strHtml

.ReplaceTemplate()

.Save()

EndWith

SetTClass=Nothing

EndFunction

【TSYS一个新闻多种特性时如何进行前台更新?】相关文章:

TSYS 新闻列表JS调用下载

asp 常用的字符串处理函数

asp中通过getrows实现数据库记录分页的一段代码

asp 文件上传aspjpeg组件上传文件

ASP整合一个SQL语句类

一个实用的FSO-实时统计在线人数

ASP常用函数:CheckBoxScript()

ASP中进行HTML数据及JS数据编码

关于网站文件自动备份程序的一点思考

用sql设置access的默认值

精品推荐
分类导航