书签 分享 收藏 举报 版权申诉 / 38

类型桂林旅游信息网站的设计与开发毕业设计论文.docx

  • 文档编号:24860000
  • 上传时间:2023-06-02
  • 格式:DOCX
  • 页数:38
  • 大小:703.61KB
"

exitfunction

endif

dimrs,sql

setrs=server.createobject("adodb.recordset")

sql="select*fromiowhereViewFlag=1andID="&ID

rs.opensql,conn,1,3

ifnotrs.eofthen

response.write"来源:

"&rs("Source")&"时间:

"&rs("AddTime")

response.write"rs("content")&"

rs("Hits")=rs("Hits")+1

rs.update

else

response.write"暂无相关信息"

endif

rs.close

setrs=nothing

endfunction

(3)网站数据录入、编辑保存代码

SubInfoEdit()

dimAction,rsRepeat,rs,sql

Action=request.QueryString("Action")

ifAction="SaveEdit"then'保存编辑

setrs=server.createobject("adodb.recordset")

iflen(trim(request.Form("JingName")))<1then

response.write"必填项目!

"

response.end

endif

iflen(trim(request.Form("ClassId")))<1then

response.write"必填项目!

"

response.end

endif

iftrim(request.Form("FStart"))="lelvw"then

response.write"必填项目!

"

response.end

endif

iflen(trim(request.Form("Addrs")))<1orlen(trim(request.Form("iPhone")))<1then

response.write"必填项目!

"

response.end

endif

iflen(trim(request.Form("Descriptions")))<1then

response.write"必填项目!

"

response.end

endif

iflen(trim(request.Form("Content")))<1then

response.write"必填项目!

"

response.end

endif

ClassId=trim(Request.Form("ClassId"))

Setrs=server.CreateObject("adodb.recordset")

sql="Selectid,TopIDFromLelv_w_jo_ClasswhereID="&ClassId

rs.opensql,conn,1,1

ifNotrs.bofandNotrs.eofthen

TopID=rs("TopID")

endif

rs.close

ifTopid<>0then

Setrs=server.CreateObject("adodb.recordset")

sql="SelectidFromLelv_w_jo_Classwhereid="&TopID

rs.opensql,conn,1,1

ifNotrs.bofandNotrs.eofthen

TopID=rs("ID")

endif

rs.close

endif

ifResult="Add"then'创建

sql="select*fromLelv_w_jo"

rs.opensql,conn,1,3

rs.addnew

rs("ClassId")=trim(Request.Form("ClassId"))

rs("TopID")=TopID

rs("JingName")=trim(Request.Form("JingName"))

rs("KeyWord")=trim(Request.Form("KeyWord"))

rs("Source")=trim(Request.Form("Source"))

rs("level")=trim(Request.Form("level"))

rs("Addrs")=trim(Request.Form("Addrs"))

rs("FStart")=Trim(Request.Form("FStart"))

rs("iPhone")=trim(Request.Form("iPhone"))

rs("ViewFlag")=1

ifRequest.Form("VoticeFlag")=1then

rs("VoticeFlag")=1

else

rs("VoticeFlag")=0

endif

ifRequest.Form("N

配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
桂林 旅游 信息 网站 设计 开发 毕业设计 论文
提示  冰豆网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:桂林旅游信息网站的设计与开发毕业设计论文.docx
链接地址:https://www.bdocx.com/doc/24860000.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2022 冰点文档网站版权所有

经营许可证编号:鄂ICP备2022015515号-1

收起
展开