巅云智能建站平台搭建版(创业门户版)火爆上线,终身授权!新增:文章智能采集+全站真静态打包+城市分站+智能小程序+非法词过滤+H5自适应+智能链词等功能功能详情
建站专提News

高端网站建设-ASP、vbscript编码模板

一佰互联网站开发设计(www.yinxi.net) 发布日期 2019-04-15 09:38:37 浏览数: 159

 <!-- METADATA 

TYPE="typelib" 

FILE="C:Program FilesCommon FilesSystemADOmsado20.tlb" 

--> 

 

<%@ Language=VBScript %> 

<%Option Explicit%> 

 

<% 

"加入的文件 

%> 

<!-- #include virtual|file="需要包含的文件" --> 

 

<% 

"代码版权说明: 

"========================================================= 

" File: 文件名.asp 

" Version:1.0 

" Date: 

" Script Written by Tommy xiao 

" Description: 

" Revision: 

" Date: 

" Author: 

" Description: 

"========================================================= 

" Copyright (C) 2003 Asiagame.Com. All rights reserved. 

" Web: http://www.advancededu.com 

" Need help? Contact: xds2000@msn.com 

"========================================================= 

%> 

<% 

"容错机制代码 

"-------------------------------- 

DIM NDEBUG_MSG 

NDEBUG_MSG=FALSE 

 

IF NDEBUG_MSG = TRUE THEN 

"出错过滤 

ON ERROR RESUME NEXT 

END IF 

 

"变量声明及定义区 

"Boolean error variant 

Dim BlnFounderr,sErrmsg 

BlnFounderr = FALSE 

"触发错误信息 

"sErrmsg=sErrmsg+"<br>"+"<li>没有找到您需要的信息,欢迎使用。" 

"BlnFounderr = TRUE 

 

Dim oConn,oRs,sSQL "ADO objects 

 

"Set oConn = Server.CreateObject ("ADODB.Connection") 

" oConn.Open Application("connStr") 

 

"事务定义区 

 

 

 

"输出错误 

If BlnFounderr = TRUE Then 

mError() 

End If 

 

"Func,Proc定义区 

Function DealInput(exp1) 

dim exp2 "Filter input for invalid characters 

exp2=Replace(exp1,"<","<") 

exp2=Replace(exp2,">",">") 

exp2=Replace(exp2,""","""") 

exp2=Replace(exp2,"&","&") 

DealInput=exp2 

End Function 

 

Function CloseDatabase " CloseDatabase 

oConn.close 

Set oConn = Nothing 

End Function 

 

sub mError() 

"Response.Write sErrmsg&"please contact system administrator." 

response.write " <html>" & vbCrLf 

response.write " <head>" & vbCrLf 

response.write " <title>xxx站点--WEB后台管理</title>" & vbCrLf 

response.write " <meta NAME=""GENERATOR"" Content=""Microsoft Visual Studio 6.0"">" & vbCrLf 

response.write " <link rel=""stylesheet"" type=""text/css"" href=""css/index.css"">" & vbCrLf 

response.write " <script type=""text/javascript"" src=""js/fx.js""></script>" & vbCrLf 

response.write " <script type=""text/javascript"" src=""js/cooltool.js""></script>" & vbCrLf 

response.write "" & vbCrLf 

response.write " </head>" & vbCrLf 

response.write "" & vbCrLf 

response.write " <body>" & vbCrLf 

response.write " <table cellpadding=""0"" cellspacing=""0"" border=""0"" width=""95%"" bgcolor=""#777777"" align=""center"">" & vbCrLf 

response.write " <tr>" & vbCrLf 

response.write " <td>" & vbCrLf 

response.write " <table cellpadding=""3"" cellspacing=""1"" border=""0"" width=""100%"">" & vbCrLf 

response.write " <tr align=""center""> " & vbCrLf 

response.write " <td width=""100%"" bgcolor=""#EEEEEE"">内部管理操作错误信息</td>" & vbCrLf 

response.write " </tr>" & vbCrLf 

response.write " <tr> " & vbCrLf 

response.write " <td width=""100%"" bgcolor=""#FFFFFF""><b>产生错误的可能原因:</b><br><br>" & vbCrLf 

response.write " <li>请您尽快与管理员联系,获得相应地的帮助。</a>" & vbCrLf 

response.write sErrmsg & vbCrLf 

response.write " </td>" & vbCrLf 

response.write " </tr>" & vbCrLf 

response.write " <tr align=""center""> " & vbCrLf 

response.write " <td width=""100%"" bgcolor=""#EEEEEE"">" & vbCrLf 

response.write " <a href=""javascript:history.go(-1)""> << 返回上一页</a>" & vbCrLf 

response.write " </td>" & vbCrLf 

response.write " </tr> " & vbCrLf 

response.write " </table> </td></tr></table>" & vbCrLf 

response.write " </body>" & vbCrLf 

response.write " </html>" 

end sub 

%> 

 

高端网站建设价格套餐:

500元成品模板网站套餐1000元基础型网站套餐1800元标准定制设计套餐2800元精美定制设计套餐3800-8000元商务型套餐行业门户型套餐其它定制套餐 文章由重庆一佰互联高端网站建设http://www.yinxi.net编辑整理,转载请注明出处

一佰互联是全国知名建站品牌服务商,我们有九年网站建设、网站制作、网页设计、php开发和域名注册及虚拟主机服务经验,提供的自助建站服务更是全国有名。近年来还整合团队优势自主开发了可视化多用户”巅云建站系统“3.0平台版,拖拽排版网站制作设计,轻松实现pc站、手机微网站、小程序、APP一体化全网营销网站建设 ,已成功的为全国上百家网络公司提供自助建站平台搭建服务。

相关新闻more

26
03月
一位全职妈妈的感慨:抖音让我和孩子有了共同的

简介:怎样更好地陪伴孩子?这可能是很多父母需要面对的问题。最近,在抖音上有96万粉丝的达人“@国民弟弟徐肖恩”的妈妈给出了她的答案。在接受采... >>详情

28
04月
linux中cd命令使用详解

Linux cd 命令可以说是Linux中最基本的命令语句,其他的命令语句要进行操作,都是建立在使用 cd 命令上的。所以,学习Linux ... >>详情

20
04月
HTML5实现预览本地图片

问题描述假设我们在 HTML 里面有一个图片上传控件: 复制代码代码如下:<input id="upload_image" type=... >>详情

05
04月
SEO优化:关键词重要 优化力度更重要

简介:一个网站最重要的是内容,而关键词是内容的骨架,就是说,所有的内容都是围绕关键词撰写的,内容的更新说白了, 就是关键词优化的一种,而关键... >>详情

高端网站建设

美工兼顾SEO,为企业电子商务营销助力!

电话:

023-85725751
建站

产品

域名注册 虚拟主机 云服务器 企业邮局
智能建站 APP打包 微站/小程序 创业平台
网站推广 媒体营销 智能采集 AI机器人
400电话 短信营销 店销机器人
私人定制 门户网站