50元现金求助！！asp+mssql 网站出现错误

思卓 2008-12-02 11:15:58
大家好！
最近网站一些页面出现这样的错误：什么都没有动。数据库，源码都没有修改，很是郁闷！请教各位帮助！
希望打家和我联系，我电话1356085八429 ，或者今晚用QQ 3755二四九7 。帮我解决，问题解决，现金感谢！



Microsoft VBScript 运行时错误 错误 '800a000d' 



类型不匹配: 'listpages' 



/sys_admin/Gbook_List.asp，行 119

代码：




<!--#include file="check_session.asp"-->

<!--#include file="../inc/function.asp"-->

<% 

if mod_power("L1")=false  then

   call error_out("您没有此项目管理权限!")

end if

action=request.querystring("action")

if action="" then

  action="view"

end if

 %>



<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>无标题文档</title>

<link href="style/css1.css" rel="stylesheet" type="text/css">

<SCRIPT language=JavaScript type=text/JavaScript>

<!--

function MM_openBrWindow(theURL,winName,features) { //v2.0

  window.open(theURL,winName,features);

}



function ConfirmDel()

{

  if(confirm("真得要删除吗？"))

		{

		  return true;

		  }

		  else

		  {

		  return false;

		  }		  		  		  

 }

//-->

</SCRIPT>

<script src="../js/news_del.js"></script>

</head>



<body>

<table width="100%" border="0" cellspacing="0" cellpadding="0">

  <tr> 

    <td> </td>

  </tr>

</table>

<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="tableborder1">

  <tr class="trhead1"> 

    <td>位置：在线留言管理</td>

    <td> </td>

    <td> </td>

    <td> </td>

  </tr>

</table>

<%

select case action

 case "view" %>

<form name="ck" method="post" action="?action=del">

  <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableborder1">

    <tr class="trhead1"> 

      <td width="5%" height="25"><div align="center">选择</div></td>

      <td width="13%" height="25"><div align="center">昵称</div></td>

      <td width="33%" height="25"><div align="center">标题</div></td>

      <td width="13%" height="25"><div align="center">IP地址</div></td>

      <td width="15%" height="25"> <div align="center">留言时间</div></td>

      <td width="10%" align="center">回复状态</td>

      <td width="11%" height="25"> <div align="center">操作</div></td>

    </tr>

        <% 





intPageSize=10

strPageUrl="guestbook.asp?1=1"

SQLSelect="select C_Name,I_GbookID,C_Title,DT_AddDate,C_IP,C_Reply from TB_WebGbook"

SQLWhere=" where 1=1"

SQLOrder=" order by I_GbookID desc"





SQLTable=trim(mid(SQLSelect,(instr(SQLSelect,"from")+4)))

SQL1="select count(*) from TB_WebGbook"&SQLWhere

intRecordCount=conn.execute(SQL1)(0)

call PageCute(intRecordCount,intPageSize)

SQL=SQLSelect&SQLWhere&SQLOrder

set rs=conn.execute(SQL)

if not rs.eof then 

		rs.move (CurrentPage-1)*intPageSize

			for i=1 to intPageSize

		 %>

    <tr bgcolor="#FFFFFF"> 

      <td height="25" align="center"> <input name="news_id" type="checkbox" id="news_id" value="<%= rs("I_GbookID") %>" > 

      </td>

      <td height="25"><%= rs("C_Name") %> </td>

      <td height="25"><%= rs("C_Title") %></td>

      <td height="25"><%= rs("C_IP") %></td>

      <td height="25" align="center"><%= rs("DT_AddDate") %></td>

      <td align="center">

<%if rs("C_Reply")<>"" then:response.Write("<font color=blue>已回复</font>"):else response.write("<font color=red>未回复</font>")%>

      </td>

      <td height="25"> <div align="center"> <a href="?action=ShowContent&id=<%= rs("I_GbookID") %>">回复</a>  

        </div></td>

    </tr>

   <% 

		rs.movenext

		if rs.eof then exit for

    	next

	else

		response.write "<tr bgcolor='#FFFFFF'><td colspan=7 align=center><font color='#FF0000'>暂无记录</font></td></tr>"

	end if

	%>

    <tr bgcolor="#FFFFFF"> 

      <td height="25" colspan="7"><div align="right"> 

          <table width="100%" border="0" cellspacing="0" cellpadding="0">

            <tr> 

              <td width="16%"><font color="#FF0000"> 

                <input type="checkbox" name="checkbox" id="checkAll" onclick="checkall()">

                <font color="#FF0000"><strong>全选</strong></font> 

                <input type="submit" name="Submit" value="删除" class="button1"  onclick="return ConfirmDel();">

                </font> </td>

              <td width="84%"> 

                <%listpages rs,mycondition

			rs.close

			set rs=nothing%>

              </td>

            </tr>

          </table>

        </div></td>

    </tr>

  </table>

</form>

<% 

case "ShowContent"

Id=CheckID(request("Id"))

set rs=conn.execute("select * from TB_WebGbook where I_GbookID="&clng(id))

if rs.eof or rs.bof then

		call error_out("数据已删除。")

else

%>

<form name="form1" method="post" action="?action=save">

  <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#0099CC">

    <tr> 

      <td width="13" rowspan="12" align="center" bgcolor="#0099CC"><b>在<br>

        <br>

        线<br>

        <br>

        留<br>

        <br>

        言</b> </td>

      <td colspan="2" align="left" bgcolor="#FFFFFF"><font color="#0000FF">->留言内容</font></td>

    </tr>

    <tr> 

      <td width="100" align="center" bgcolor="#FFFFFF">网友昵称：</td>

      <td width="780" bgcolor="#FFFFFF"><%=rs("C_Name")%></td>

    </tr>

    <tr> 

      <td align="center" bgcolor="#FFFFFF">标　　题：</td>

      <td bgcolor="#FFFFFF"><%=rs("C_Title")%></td>

    </tr>

    <tr> 

      <td align="center" bgcolor="#FFFFFF">电子邮件：</td>

      <td bgcolor="#FFFFFF"><a href="mailto:<%=rs("C_Email")%>"><%=rs("C_Email")%></a> </td>

    </tr>

    <tr> 

      <td align="center" bgcolor="#FFFFFF">留言内容：</td>

      <td bgcolor="#FFFFFF"> <%=rs("C_Content")%></td>

    </tr>

    <tr> 

      <td align="center" bgcolor="#FFFFFF">留言时间：</td>

      <td bgcolor="#FFFFFF"><%=rs("DT_AddDate")%> </td>

    </tr>

    <tr>

      <td align="center" bgcolor="#FFFFFF">IP地址：</td>

      <td bgcolor="#FFFFFF"><%=rs("C_IP")%></td>

    </tr>

    <tr> 

      <td colspan="2" align="left" bgcolor="#FFFFFF"><font color="#0000FF">->回复区</font></td>

    </tr>

    <tr> 

      <td align="center" bgcolor="#FFFFFF">回复内容：</td>

      <td bgcolor="#FFFFFF"><textarea name="C_Reply" cols="50" rows="10" id="C_Reply"><% if id<>"" then response.write rs("C_Reply") %></textarea>

        * </td>

    </tr>

    <tr> 

      <td align="center" bgcolor="#FFFFFF">回复时间：</td>

      <td bgcolor="#FFFFFF"> <% if id<>"" then response.write rs("DT_ReplyDate") %> <input name="id" type="hidden" id="id" value="<%= rs("I_GbookID") %>"></td>

    </tr>

    <tr> 

      <td align="center" bgcolor="#FFFFFF"> </td>

      <td align="left" bgcolor="#FFFFFF"><input name="Submit22" type="submit" class="button1" value="回 复">

        　 

        <input name="Submit2" type="button" class="button1" onClick="javascript:history.back();" value="返 回"></td>

    </tr>

  </table>

</form>

<%

rs.close

set rs=nothing

end if

case "save"

id=request("id")

C_Reply=request.Form("C_Reply")

		 

		 if C_Reply="" then

		    call error_out("请填写回复内容。")

		 end if

		 

        'response.Write "|"&scid&"|"&check&"|"'&request.Form("content")&"|"



		sql="select * from TB_WebGbook where I_GbookID="&id

		set rs=mod_rs(sql)

		  if rs.eof then

		   call error_out("找不到此文件，可能已经被其他人删除。")

		  end if

	     rs("C_Reply")=C_Reply

	     rs("DT_ReplyDate")=now()

		rs.update

		rs.close

		set rs=nothing

		response.redirect("Gbook_list.asp")

case "del"

		Id=request.Form("news_id")

		if Id="" then

			call error_out("请选择留言!")

		end if

		conn.execute("delete from TB_WebGbook where I_GbookID in ("&Id&")")

		conn.close

		set conn=nothing

		response.Redirect("Gbook_list.asp")

end select %>

<p> </p>

</body>

</html>



另外还有一些其他类似的错误：需要你帮忙处理，原因可能都一样。我数据库，web文件都没有什么改动就出现这样的情况。


Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14' 

[Microsoft][ODBC SQL Server Driver][SQL Server]列名 'id' 无效。 



/sys_admin/AD_List.asp，行 96




谢谢大家！！！
...全文
170 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
fabric区块链 2008-12-02
  • 打赏
  • 举报
 回复
建议检查一下数据库，例如数据库中的主键是否变动，等等（是不是被攻击了）
away8_girl 2008-12-02
  • 打赏
  • 举报
 回复
qq:46607139 加我QQ
我帮你晚上就解决掉吧
anjing5566 2008-12-02
  • 打赏
  • 举报
 回复
检查数据库，应该是数据库动过了，或者有人恶意留言了，数据非法导致的
axwj1314 2008-12-02
  • 打赏
  • 举报
 回复
看样子像是没有那个字段,可以加我QQ:18363七二四一
金和OA SignUpload.ashx文件上传接口SQL注入漏洞深度复现与防御
SQL注入作为Web应用安全中最经典且危害巨大的漏洞类型之一，其核心原理在于攻击者通过构造恶意输入，篡改后端数据库查询语句的逻辑与结构，从而绕过身份验证、窃取敏感数据甚至获取服务器控制权。在工程实践中，防御SQL注入最根本有效的技术方案是采用参数化查询（预编译语句），这能确保用户输入被严格视为数据而非可执行代码。随着应用架构的演进，注入点已从传统的GET/POST参数，扩展至Cookie、HTTP头部乃至文件上传接口等更隐蔽的位置。以企业协同办公平台为例，其文件上传功能往往涉及复杂的业务参数处理，若开发人员
零基础入门漏洞挖掘：从SRC实战到核心漏洞手动测试指南
在软件定义一切的数字化时代，代码缺陷与逻辑漏洞是网络安全的主要威胁源。漏洞挖掘作为一项系统性工程，其核心原理在于通过模拟攻击者思维，在授权范围内主动发现并修复这些缺陷，从而构建主动防御体系，其技术价值在于将潜在风险前置化处理。从基础的SQL注入、跨站脚本（XSS）到更隐蔽的业务逻辑漏洞，掌握这些常见漏洞的挖掘手法，是安全从业者与开发者的核心能力。在应用场景上，安全应急响应中心（SRC）为学习者提供了合法的实战环境，通过结合信息收集、手动测试与自动化工具链，可以有效提升在Web应用、移动应用及各类业务系统中的
MIPI-video-mode- and -command-mode- differences
源码链接： https://pan.quark.cn/s/0f7c75cb3aad ### MIPI Video Mode 与 Command Mode 的差异 #### 一、引言 MIPI (Mobile Industry Processor Interface) 是一种用于连接移动设备中处理器及其外围设备的标准化接口。MIPI 接口支持多种协议，其中包含 DSI (Display Serial Interface) 和 DCS (Display Control Interface) 等协议。在 MIPI 接口的应用中，主要涉及两种工作模式：Video Mode（视频模式）和 Command Mode（命令模式）。本文旨在系统性地阐述这两种模式的工作机制、特性以及实际应用环境。 #### 二、LCD RAM 概念说明 在进一步探讨 MIPI 的两种模式之前，有必要对文中提及的“LCD RAM”概念进行明确。实际上，“LCD RAM”并非一个通用术语，而是本文作者用来描述 LCD 控制器中用于存储显示数据的内存区域。LCD（Liquid Crystal Display，液晶显示屏）通常配备一个控制 IC（Integrated Circuit，集成电路），该控制 IC 可能内置 RAM 以缓存显示数据。 #### 三、MIPI Video Mode（视频模式） **定义：** - 视频模式是一种类似于传统 RGB 接口的工作模式，它要求主机持续不断地向显示器传输刷新数据。 - 在这种模式下，数据和控制信号以报文的形式通过 MIPI 总线进行传输。 - 显示器本身无需配备帧缓冲器，因为主机会周期性地刷新屏幕。 **特点：** 1. **实时性高：** 主机需要不...
CST端口离散设置-下载即用.zip
源码下载地址： https://pan.quark.cn/s/a4b39357ea24 在电磁模拟技术中，CST（Computer Simulation Technology）是一种被广泛采纳的软件工具，它主要用于电磁场、微波、天线以及射频系统的设计工作。本资料将详细分析CST软件中离散端口的具体配置方法，这些方法对于提升仿真结果的精确度和专业水准具有决定性作用。离散端口在CST软件中扮演着模拟信号输入或输出的重要角色，它们构成了仿真模型不可或缺的部分。在配置离散端口时，一个核心的原则是保证端口的方向与网格线保持一致，这是因为这样做能够有效降低计算过程中产生的误差，并确保仿真数据的有效性。如果未能遵循这一指导原则，可能会引发未知的计算问题，进而导致仿真结果失去可靠性。 在CST软件中配置离散端口，通常需要借助“Pick Points”这一功能。通过选择“Pick Edge Center”选项，端口将被设定在模型边缘的中心位置上。然而，这种做法并不总是能够确保端口与网格线保持平行。在某些特定情形下，模型的几何构造可能不允许直接选取一个与网格线平行的边作为端口的安装位置。 为了克服这一挑战，可以采用多种不同的策略。如果模型本身已经包含一条与馈电口平行的边，那么可以直接利用这条边来建立端口，此时CST软件会自动调整端口使其与网格线对齐。另一种可选的方法是，当模型不具备现成的平行边时，用户可以手动构建一个几何结构，比如一个立方体，并使其边缘与馈电口平行。通过这种方式，新建立的几何结构的边缘就可以作为端口的位置，从而确保端口与网格线的平行关系。 在实施上述操作时，必须关注端口尺寸的合理性和物理意义的一致性。端口的尺寸应当依据实际天线馈电部分的尺寸进行适当调整，过大的端口或...
【Axure实战原型】高标准农田综合服务平台RP文件
原型名称：【实战原型】高标准农田信息化管理系统 软件版本：Axure 9（支持10、11） 作品类型：智慧农业、高标农田、农业发展、农业农村、农场经济、农田管护 作品范围：Web端+APP端 原型简介： 聚焦“藏粮于地、藏粮于技”，系统融合“一张图、建设监管、生产管理、视频监控、农机调度、四情监测”六大核心功能，实现农田“可视、可管、可控、可预警”。依托物联网、GIS与AI技术，打造从建设到管护、从生产到决策的全周期数字化管理平台，助力农业提质增效、节本降耗，筑牢国家粮食安全数字化底座。
ASP

28,403

社区成员

356,946

社区内容

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

加载中

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

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

+ 用AI写文章