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

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>

...全文
38 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
  • 打赏
  • 举报
回复
谢谢!
Domain4.3(明小子)10.10.10更新版主要更新内容如下: 1.驱除部死连接,恢复部官方连接 2.改变默认显示页面为本人BLOG 3.修正程序在检测时出错的BUG 4.修正程序在部系统中无法启动的BUG 5.加了一个功能模块,但还不成熟,隐藏了,高手的话可以用OD调出来!>!< 6.修复前段时间一些朋友反映的错误和程序宏 7.增加四款SKN皮肤! 10.10.11紧急更新: 1.修正新版程序在部系统中启动后直接导致系统蓝屏的BUG 2.修正域名查询的几个错误 3.修正程序批量检测查询到域名的时候无反映的BUG! Domain4.2(明小子)10.01.16更新版主要更新内容如下: 1.删除所有无关数据 2.优化急速代码 3.改变启动线程 4.增加SQL数据批量导出功能 5.加入几个优化进程模块,非后门.后台运行. 6.锁定主程序栏目宽和高,不在恢复 7.删除“辅助工具”模块中全部代码 8.修正XP SP3 程序下兼容问题 9.重新改写域名查询旁站线程 程序于2010年01月16号调试完毕! 提别提示:第4个功能只能运行在完整版的windows XP 平台系统中,其他平台无法运行,如果出现恢复按钮并不能保存请自行调试与本程序无关.谢谢合作! 宝宝的话:有朋友们的鼓励才会有这个版本的发布,这当是我送给大家2010年里的第一个礼物吧。 Domain4.1(明小子)0901更新版主要更新内容如下: 1.增加新系统兼容模块,全面兼容2000-2008各系统 (部精简版系统除外) 2.优化网站打开速度,删减部无用内核信息,全面加快程序启动速度. 3.基于09.05.20号内核提升,改变搜查循环的一个死BUG! 4.删除在0520上增加的一个补针函数,并使用新的函数替换.保证不报错. 5.不在兼容xpsp3,因为没时间去修正这个错误。所以可能部SP3系统运行不起来本程序 6.增加部程序扩充空格代码,为下个版本更新做好铺垫 小提示:保留旧的IP反查连接系统,原因没有找到新的和稳定的IP反差服务器!如果有能提供的请与本人联系!谢谢合作 Domain4.1(明小子)0520更新版主要更新内容如下: 1.基于08.10.01号内核提升,修正一次关键错误。 2.替换原程序自带的那个小马,该为最新美化免杀版的小马! 3.添加一个服务器挂钩程序(非插件),使修改后的新内核兼容vista系统。 4.程序数据库默认名为:SetData.mdb 请大家使用3.5版本以上的MDB数据.其他低版本程序可能不兼容! 5.删除后台下载统计代码(以前没发现,本人也是从网站上面下的软件,排除作者自添加行为) 6.加了一个补针,针对sql注入功能中的一个小BUG。 7.删除了很多没有用的代码,最大限度的优化程序启动速度。 8.更新部在xpsp3下出错的几个小BUG(小问题小解决,这个错误仅针对部优化过度的XPSP3系统)。 提记:很多朋友说需要修改下程序IP域名查询功能,这里说明下.由于内核找不到关键句柄导致无法更新,下个版本在仔细看看! Domain4.0(明小子)1001更新版主要更新内容如下: 1.更新部过度优化过的系统不兼容问题。 2.修改内存识别函数,使其降低软件在使用期间所占用的内存大小。 3.基于08.09.15号内核提升,修正因修改软件所出现的几个导致软件崩溃的几个BUG。 4.换了软件自带的那个垃圾皮肤。加入兼容美化皮肤!更美观! 5.兼容前版本数据库支持功能 6.去掉了没有用的PHP入侵选项和几处小BUG...... 转贴是一种美德!享也是一种快乐,工具仅做辅助作用请勿用在非法用途上! 程序自带本BLOG连接,启动比较慢!不喜勿用!谢谢合作!

28,390

社区成员

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

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