帮我看看程序,为什么报错?谢谢.我没有分了。
您要访问的网页有问题,无法显示。
--------------------------------------------------------------------------------
请尝试以下操作:
打开 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>