帮我看看程序，为什么报错？谢谢.我没有分了。

ryuginka 2003-09-12 09:13:53
您要访问的网页有问题，无法显示。

--------------------------------------------------------------------------------

请尝试以下操作:
打开 gssever 主页，然后查找指向您感兴趣信息的链接。
单击刷新按钮，或以后再试。
单击搜索，寻找 Internet 上的信息。
也可查看相关站点列表。
HTTP 500 - 内部服务器错误
Internet Explorer

代码如下：
(1)xtrz_Gl_GLY.asp

<html>

<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>公司信息之系统日志</title>
</head>

<frameset rows="110,*" framespacing="0" border="0" frameborder="0">
<frame name="xtrzglheader" scrolling="no" noresize target="informglmain" src="xtrz_GlTop_GLY.asp">
<frame name="xtrzglmain" src="xtrz_GlMain_GLY.asp">
<noframes>
<body>
<p></p>
</body>
</noframes>
</frameset>

</html>


(2)xtrz_GlTop_GLY.asp
<!--#INCLUDE FILE="../datastore/datastore.asp"-->
<!--#INCLUDE FILE="../datastore/adovbs.inc"-->
<%
function format(strTXT,intTXT)
dim LenTxt
dim i
format=strTXT
LenTxt=len(strTXT)
if LenTxt<intTXT then
for i=1 to (intTXT-LenTXT)
format="0"&format
next
else
format=strTXT
end if
end function

function GetDate()
dim strN,strY,strR
strN=year(now)
strY=format(month(now),2)
strR=day(now)

GetDate=strN&"年"&strY&"月"&strR&"日"
end function
%>
<%
function GetWeek()
select case weekday(now)
case 1
GetWeek=" 星期日"
case 2
GetWeek=" 星期一"
case 3
GetWeek=" 星期二"
case 4
GetWeek=" 星期三"
case 5
GetWeek=" 星期四"
case 6
GetWeek=" 星期五"
case 7
GetWeek=" 星期六"
end select
end function
%>
<%
dim NowDay
NowDay=GetDate()
%>
<%
dim strSQL
dim objcommand,objrs
set objcommand=server.createobject("adodb.command")
set objrs=server.createobject("adodb.recordset")
objcommand.activeconnection=strConn
%>
<html>
<head>
<meta name="GENERATOR" Content="Microsoft FrontPage 4.0">
<style type="text/css"><!--
td,body { font-size: 10pt}
a:link{ color:#0000FF; text-decoration:none}
a:visited{COLOR: #0000FF; TEXT-DECORATION: none}
a:active{color:green;text-decoration:none}
a:hover{color:red;text-decoration:none} -->
</style>
</head>
<body topmargin="0" leftmargin="0">
<form method=post name="xtrz_GlTop" action="xtrz_GlMain_GLY.asp" ID="Form1" >
<div align="left">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="58" ID="Table1">
<tr>
<td width="100%" bgcolor="#8CAAE7" colspan="2" height="17">　</td>
</tr>
<tr>
<td width="50%" bgcolor="#FFFFFF" height="12"><font color="#FF0000" size="4"><b>管理员管理之系统日志</b></font>
</td>
<td width="50%" bgcolor="#FFFFFF" height="12"><p align="right"><font size="2">
［
<% =Session("DLXM") %>
］的办公室
<% =NowDay %>
<% =GetWeek %>
</font> </td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" colspan="2" height="18"> </td>
</tr>
</table>
</div>



<div align="left">
<table border="0" width="100%" cellpadding="0" cellspacing="0" ID="Table2">
<tr>
<td width="100%" bgcolor="#DBDBDB"> <div align="left">
<table border="0" width="100%" cellspacing="0" cellpadding="0" ID="Table3">
<tr>
<td width="3%"><font size="2">IP：</font></td>
<td width="19%"><input name="txt_IP" type="text" id="txt_IP" maxlength="50"></td>
<td width="11%"><font size="2">事件日期：</font></td>
<td width="14%"><font size="2">
<input name="txt_RQ" type="text" ID="txt_RQ" size="15" maxlength="10">
</font></td>
<td width="9%">用户名：</td>
<td width="21%"><font size="2">
<input name="txt_yhm" type="text" id="txt_yhm" size="15" maxlength="15">
</font></td>
<td width="23%"> <input type="submit" value="查 询" name="cmd_CX" ID="Submit1" >
<input type="reset" value="重 写" name="B2" id="rst_CX"> </td>
</tr>
</table>
</div></td>
</tr>
</table>
</div>
</form>
<p align="left">　</p>
</body>
</html>

...全文
39 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
rongwenfeng 2003-09-12
  • 打赏
  • 举报
 回复
target在点查询按钮时指定就可以了啊
ryuginka 2003-09-12
  • 打赏
  • 举报
 回复
我改好了。顺便问一下。
(1)xtrz_Gl_GLY.asp
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>公司信息之系统日志</title>
</head>
<frameset rows="110,*" framespacing="0" border="0" frameborder="0">
<frame name="xtrzglheader" scrolling="no" noresize target="informglmain" src="xtrz_GlTop_GLY.asp">
<frame name="xtrzglmain" src="xtrz_GlMain_GLY.asp">
<noframes>
<body>
<p></p>
</body>
</noframes>
</frameset>
</html>
在框架xtrzglheader中点查询按钮应该转到xtrzglmain中执行，但是点查询按钮后，在地一个框架中显示了第二个框架中的内容。怎么回事情？怎么解决啊？

谢谢。
kangji 2003-09-12
  • 打赏
  • 举报
 回复
是不是你数据库连接有问题啊
你可以用一个简单的程序测试一下连接
ryuginka 2003-09-12
  • 打赏
  • 举报
 回复
救命啊！要被老板K了。
ryuginka 2003-09-12
  • 打赏
  • 举报
 回复
style="border-style: solid; border-width: 1">UserIP</td>
<td width="20" bgcolor="#DBDBDB" style="border-style: solid; border-width: 1">ntserver</td>
<td width="100" bgcolor="#DBDBDB" style="border-style: solid; border-width: 1">LoginDate</td>
<td width="150" bgcolor="#DBDBDB" style="border-style: solid; border-width: 1">LoginInTime</td>
<td width="150" bgcolor="#DBDBDB" style="border-style: solid; border-width: 1">LoginOutTime</td>
<td width="20" bgcolor="#DBDBDB" style="border-style: solid; border-width: 1">Flag</td>
</tr>
<% If Not objRS.EOF Then %>
<% for IntCnt=1 to objRS.PageSize %>
<tr>
<td width="40" style="border-style: solid; border-width: 1" >
<input type=checkbox name="XXID" value="<%=objRS.Fields("ID")%>" value="ON" ID="Checkbox2">

</td>
<td width="40" style="border-style: solid; border-width: 1">
<%
response.Write trim(objRS.Fields("UserName"))
%>
</td>
<td width="50" style="border-style: solid; border-width: 1">
<% = objRS.Fields("部门名称") %>
<!-- <a href="inform_CxXs_gly.asp?信息ID=<% = objRS.Fields("信息ID") %>" target="main">
<%=objRS.Fields ("UserIP")%>
</a> -->
</td>
<td width="100" style="border-style: solid; border-width: 1">
<%=objRS.Fields ("UserIP")%>
</td>
<td width="20" style="border-style: solid; border-width: 1">
<%=objRS.Fields ("ntserver")%>
</td>
<td width="100" style="border-style: solid; border-width: 1">
<%=objRS.Fields ("LoginDate")%>
</td>
<td width="150" style="border-style: solid; border-width: 1">
<%=objRS.Fields ("LoginInTime")%>
</td>
<td width="150" style="border-style: solid; border-width: 1">
<%=objRS.Fields ("LoginOutTime")%>
</td>
<td width="20" style="border-style: solid; border-width: 1">
<%=objRS.Fields ("Flag")%>
</td>
</tr>
<%
IntRec=IntRec+1
objRS.MoveNext
If objRS.EOF Then Exit For'************无记录要退出循环************
Next
%>
<%End If%>
</table>
</div>
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
ryuginka 2003-09-12
  • 打赏
  • 举报
 回复
(3)xtrz_GlMain_GLY.asp
<%@language=vbscript%>
<%Dim strConn%>
<!--#INCLUDE FILE="../datastore/datastore.asp"-->
<!--#INCLUDE FILE="../datastore/adovbs.inc"-->
<%
function format(strTXT,intTXT)
dim LenTxt
dim i
format=strTXT
LenTxt=len(strTXT)
if LenTxt<intTXT then
for i=1 to (intTXT-LenTXT)
format="0"&format
next
else
format=strTXT
end if
end function

function GetDate()
dim strN,strY,strR
strN=year(now)
strY=format(month(now),2)
strR=day(now)

GetDate=strN&"年"&strY&"月"&strR&"日"
end function
%>
<%
function GetWeek()
select case weekday(now)
case 1
GetWeek=" 星期日"
case 2
GetWeek=" 星期一"
case 3
GetWeek=" 星期二"
case 4
GetWeek=" 星期三"
case 5
GetWeek=" 星期四"
case 6
GetWeek=" 星期五"
case 7
GetWeek=" 星期六"
end select
end function
%>
<%
dim NowDay
NowDay=GetDate()
%>
<%
if IsEmpty(Session("UserID")) then
Response.Write "<script language=javascript>"
Response.Write "top.location='../index.htm'"
Response.Write "</script>"
end if
%>
<%
'************************************************************
response.Expires =0
const intPageSize=10 '***确定一页所显示的记录数量*******
dim intTopPage,IntCnt,intTotalPages,intCurrentPage,IntRec
If Request.ServerVariables("query_string")="" then
intCurrentPage=1 '*******当前页为第1页********
Else
intCurrentPage=cint(Request.querystring("CurrentPage"))

select case Request.querystring("cmdAN")
case "Previous"
intCurrentPage=intCurrentPage-1 '********按上一页，则当前页数减1
case "Next"
intCurrentPage=intCurrentPage+1 '********按下一页，则当前页数加1
end select
End If
'******************************************************
dim strSQL,str_rq,str_ip,str_yh,BtnDel,InC,XXID
dim objcommand,objRS ,objREC
set objcommand=server.createobject("adodb.command")
set objRS=server.createobject("adodb.recordset")
set objREC=server.createobject("adodb.recordset")
objcommand.activeconnection=strConn
'*******************************************************
BtnDel=request.Form("cmd_Del") '判断：是否点击“删除”按钮
If BtnDel="删 除" and Request.Form("XXID").Count > 0 Then
For InC=1 to Request.Form("XXID").Count
XXID=Trim(Request.Form("XXID")(InC))
strSQL="Delete From 系统日志 where ID='" & XXID & "'"
ObjCommand.commandtext=strSQL
ObjCommand.Execute
Next
End If
'***********************************************************
if request.Form("cmd_CX")<>"" then '如果按下查询的按钮
str_ip=trim(request.form("txt_ip"))
str_rq=trim(Request.Form("txt_rq"))
str_yh=trim(Request.Form("txt_yhm"))
session("xtrz_ip")=str_ip
session("xtrz_rq")=str_rq
session("xtrz_yh")=str_yh
strSQL="SELECT 系统日志.ID,系统日志.UserID, 系统日志.UserName, 部门.部门名称, 系统日志.UserIP, " &_
& " 系统日志.ntserver, 系统日志.LoginDate, 系统日志.LoginInTime, 系统日志.LoginOutTime, " &_
& " 系统日志.Flag FROM 系统日志 INNER JOIN 部门 ON 系统日志.BMID = 部门.ID "
If str_ip<> "" then
strSQL=strSQL + " and 系统日志.userip like '" & str_ip & "%'"
end if
If str_rq<> "" then
strSQL=strSQL + " and 系统日志.logindate like '" & str_rq & "'"
End If
If str_yh<> "" then
strSQL=strSQL + " and 系统日志.username like '" & str_yh & "'"
End If
strSQL=strSQL+" ORDER BY 系统日志.LoginDate DESC"

else
strSQL="SELECT 系统日志.ID,系统日志.UserID, 系统日志.UserName, 部门.部门名称, 系统日志.UserIP, " &_
& " 系统日志.ntserver, 系统日志.LoginDate, 系统日志.LoginInTime, 系统日志.LoginOutTime, " &_
& " 系统日志.Flag FROM 系统日志 INNER JOIN 部门 ON 系统日志.BMID = 部门.ID "
If session("xtrz_ip")<> "" then
strSQL=strSQL + " and 系统日志.userip like '" & session("xtrz_ip") & "%'"
end if
If session("xtrz_rq")<> "" then
strSQL=strSQL + " and 系统日志.logindate like '" & session("xtrz_rq") & "'"
End If
If session("xtrz_yh")<> "" then
strSQL=strSQL + " and 系统日志.username like '" & session("xtrz_yh") & "'"
End If
strSQL=strSQL+" ORDER BY 系统日志.LoginDate DESC"
end if
'************************************************************
'response.Write(strsql)
'response.End()

objRS.Open strSQL,strConn,adopenkeyset,adLockOptimistic
objRS.Requery
objRS.PageSize =intPageSize
If not objRS.EOF then
objRS.AbsolutePage =intCurrentPage
End If
intTotalPages=objRS.PageCount
IntRec=0
%>

<script language=javascript>
function selSub(x,y){
if (y.checked){
for(i=0;i<x.all.length;i++){

if("INPUT"==x.all(i).tagName){
x.all(i).checked="true";
}
}
}
else{
for(i=0;i<x.all.length;i++){
if("INPUT"==x.all(i).tagName){
x.all(i).checked="";
}
}
}
}
</script>
<html>
<head>
<meta name="GENERATOR" Content="Microsoft FrontPage 4.0">
<style type="text/css"><!--
td,body { font-size: 10pt}
a:link{ color:#0000FF; text-decoration:none}
a:visited{COLOR: #0000FF; TEXT-DECORATION: none}
a:active{color:green;text-decoration:none}
a:hover{color:red;text-decoration:none} -->
</style>
</head>
<body bgcolor='#FFFFFF' text='#000066' leftmargin='0' topmargin='0' marginwidth='0' marginheight='0' background=''>
<form method=post name="frm_xtrz" action="xtrz_GlMain_GLY.asp" ID="Form1">
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="100%" ID="allCLK">
<tr>
<td width="100%">
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="100%" ID="Table4">
<tr>
<td width="99">
<input type="checkbox" name="xt_ALL" value="ON" ID="Checkbox1" OnClick="selSub(allCLK,xt_ALL)">全选
</td>
<td width="130"><input type="submit" value="删 除" name="cmd_Del" ID="Button2"></td>
<td width="317">
<%If Not objRS.EOF Then %>
<font size="2">
   总页数：<%= intTotalPages %>页 <font color="#FF0000">第<%=intCurrentPage %>页</font><font color="#FF0000">
<% if intCurrentPage>1 then %>

<a href="<%=request.ServerVariables("SCRIPT_NAME")%>?cmdAN=Previous¤tPage=<%=intCurrentPage%>">[上一页] </a>
<% end if %>
<% if intCurrentPage<>intTotalPages then %>

<a href="<%=request.ServerVariables("SCRIPT_NAME")%>?cmdAN=Next¤tPage=<%=intCurrentPage%>">[下一页]</a>
<% end if%>
</font>
<%End If %>
</td>
<td width="134">
<p align="right"> </p>
</td>
<td width="82">
<p align="center"> </td>
<td width="123">
<p align="left"> </p>
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="100%"><font color="#FFFFFF"> </font></td>
</tr>
<tr>
<td width="100%">
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="100%" ID="Table5">

<tr>
<td width="40" bgcolor="#DBDBDB" style="border-style: solid; border-width: 1"> 选中</td>
<td width="40" bgcolor="#DBDBDB" style="border-style: solid; border-width: 1">UserName</td>
<td width="50" bgcolor="#DBDBDB" style="border-style: solid; border-width: 1">部门名称</td>
<td width="100" bgcolor="#DBDBDB"
ryuginka 2003-09-12
  • 打赏
  • 举报
 回复
谢谢！
明小子4.3.3网站漏洞检测工具
由于内核找不到关键句柄导致无法更新,下个版本在仔细看看！ Domain4.0(明小子)1001更新版主要更新内容如下： 1.更新部分过度优化过的系统不兼容问题。 2.修改内存识别函数，使其降低软件在使用期间所占用的内存...
如何解决springboot使用resultType报错 java.lang.NullPointerException: null...问题 | 亲测有效
记录:springboot使用resultType报错java.lang.NullPointerException: null...【亲测有效】
matlab程序运行不出来,我的matlab程序哪里出问题了，为什么运行无结果？出不了图？谢谢...
没有错。只是运算比较慢2113。可以在循环5261里加一个进度条(waitbar)就知道大概还要...另外你的程序好像还有问题，z0在程序里数值根本就没有变，得到的图也明显不对头clear;clc;A=[10.25,13.9,17.3,20.7,24.1,27.5...
sql导入未在本地计算机上注册表,未在本地计算机上注册“microsoft.ACE.oledb.12.0”提供程序报错的解决办法...
错误描述：在开发.net项目中，通过microsoft.ACE.oledb读取excel文件信息时，报错：“未在本地计算机上注册“microsoft.ACE.oledb.12.0”提供程序”代码示例：static void Main(string[] args){readexcel("D:\\test\...
【Spring Cloud Alibaba】（五）Dubbo启动报错？一直重连报错？你值得学习的是排查问题的方法
比如，消费方启动报错：Failed to check the status of the service xxx. No provider available for the service。。。再比如，消费方启动成功后，但一直与提供方重连报错：Fail to connect to ...
ASP

28,390

社区成员

357,068

社区内容

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

加载中

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

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

+ 用AI写文章