| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 666 人关注过本帖
标题:[求助]一个弄不明白的错误
只看楼主 加入收藏
垃圾的沉默
Rank: 1
等 级:新手上路
威 望:2
帖 子:511
专家分:0
注 册:2007-6-25
收藏
 问题点数:0 回复次数:2 
[求助]一个弄不明白的错误

我做了一个查询..在本机上用无论什么时候都可以用..
传上空间后...有时候竟然出现错误.空间那里屏蔽掉出错的原因.没能看到出错原因..一般出错的时候是网页开得比较久了没有去点击什么的..如果涮新一下就会好..我是把sqls.aspx文件用iframe 到静态页面里去的
sqls.aspx

<%@ Page Language="VB" debug="true" %>
<%@ import namespace="system.data" %>
<%@ import namespace="system.data.OleDb" %>
<script runat="server">
dim thetit as string
sub page_load(sender as object, e as eventargs)
sq.Attributes.Add("onkeydown","SubmitKeyClick('button1');")
end sub
Sub sq_click(sender as object,e as eventargs)
Application("title")=sq.text
Response.Redirect("sql.aspx")
sq.text=""
end sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<link href="css/my.css" rel="stylesheet" type="text/css">
</head>
<body>
<form runat="server" target="_blank">
<SCRIPT LANGUAGE="javascript">
function SubmitKeyClick(button)
{
if (event.keyCode == 13)
{
event.keyCode=9;
event.returnValue = false;
document.all[button].click();
}
}
</SCRIPT>
<table width="114" height="164" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/1.gif"><table width="114" height="148" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center" class="acc">【研究报告查询】</div></td>
</tr>
<tr>
<td><div align="center">请输入您要找的报告关键词进行查询</div></td>
</tr>
<tr>
<td align="center"><asp:TextBox BorderColor="#000000" BorderStyle="solid" BorderWidth="1" ID="sq" runat="server" Width="80" ></asp:TextBox></td>
</tr>
<tr>
<td align="center"><asp:Button ID="button1" runat="server" Text="查询" OnClick="sq_click" BorderStyle="solid" BorderWidth="1" BorderColor="#000000"></asp:Button></td>
</tr>
</table></td>
</tr>
</table>
</form>
</body>
</html>

sql.aspx
<%@ Page Language="VB" debug="true" %>
<%@ import namespace="system.data"%>
<%@ import namespace="system.data.OleDb" %>
<script runat="server">
dim thetit as string
sub page_load(sender as object, e as eventargs)
if not IsPostBack then
DataBind()
end if
end sub

sub DataBind()
if Application("title")<>"" then
thetit=Application("title").ToString()
dim cnn as OleDbConnection
dim cmd as OleDbDataAdapter
dim dt as new DataSet
dim strcnn, sql as string
strcnn="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./database/query.mdb")
cnn=new OleDbConnection(strcnn)
cnn.open()
sql="select * from query where title like '%" & trim(thetit) & "%'"
cmd=new OleDbDataAdapter(sql,cnn)
cmd.fill(dt)
repeater1.Datasource=dt
repeater1.dataBind()
cnn.close()
Application.Remove("title")
else
ta1.text="没有找到任何结果"
end if
end sub

</script>
<html>
<body>
<asp:repeater id="repeater1" runat="server">
<itemtemplate>
<table>
<tr>
<td height="28" >

<div class="acss"><a href="/<%# Container.DataItem("links") %>" target="_blank" />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%# Container.DataItem("title") %></div></td>
</tr>
</table>
</itemtemplate>
</asp:repeater>
</body>
</html>

搜索更多相关主题的帖子: iframe server import 空间 网页 
2007-06-27 10:40
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
收藏
得分:0 
没有错误怎么看呢??

飘过~~
2007-06-27 10:51
垃圾的沉默
Rank: 1
等 级:新手上路
威 望:2
帖 子:511
专家分:0
注 册:2007-6-25
收藏
得分:0 

网站空间上把错误给屏蔽了..
出现错误的时候页面都是停留在sqls.aspx文件上..如果网页比较久没动作的话就会这样..

[此贴子已经被作者于2007-6-27 11:01:48编辑过]


人们笑我太疯癫...我笑人们太正经
2007-06-27 11:00
快速回复:[求助]一个弄不明白的错误
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028656 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved