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




谢谢大家！！！
...全文
120 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
fabric区块链 2008-12-02
  • 打赏
  • 举报
 回复
建议检查一下数据库，例如数据库中的主键是否变动，等等（是不是被攻击了）
away8_girl 2008-12-02
  • 打赏
  • 举报
 回复
qq:46607139 加我QQ
我帮你晚上就解决掉吧
anjing5566 2008-12-02
  • 打赏
  • 举报
 回复
检查数据库，应该是数据库动过了，或者有人恶意留言了，数据非法导致的
axwj1314 2008-12-02
  • 打赏
  • 举报
 回复
看样子像是没有那个字段,可以加我QQ:18363七二四一
浪子文章管理程序-特别版
功能： 一、支持UBB代码，自动识别网址！ 二、二级栏目支持、 三、可注册会员、投稿 四、带文章审批功能 五、阅读文章时可自由选择阅读方式、选择字号、颜色等！ 六、自带计数器、在线人数统计、文章统计、会员统计等 七、自带友情链接，可自由添加，由管理员审批后通过！ 八、自带一个简单公告， 九、自带一个留言板，支持UBB、可回复、删除管理 十、算是完整的后台管理，可管理会员、编辑/修改/审批　文章， 十一、改进了作者在发表文章时会自动退出的BUG和代码了一些代码介界之类的东西！ 其它、自已体会....    超级用户名 ddown 密码 ddown 使用数据库:54lz.mdb 要改请改以下三个文件:conn.asp counter.asp 和 mybook目录下的conn.asp 文件,这三个文件内都有相应的说明!
超酷论坛EDD8 Ver.2003 for DV
酷窗版演示：http://www.edd8.com/bbs/index.asp?style=0 简装版演示：http://www.edd8.com/bbs/index2.asp 一点点论坛（http://www.edd8.com/bbs）使用说明 欢迎大家下载使用一点点论坛，在使用论坛前，请认真阅读以下内容： ===================================== 论坛：一点点论坛（http://www.edd8.com/bbs） 主页：一点点星空驿站（http://www.edd8.com/） 站长：叮咚虫（e_Mail:b_li@163.com） 版本：EDD8 Ver.2003 for DV ===================================== 　　一点点论坛是建立在动网论坛基础上的ASP互动论坛，从动网Var5.b109开始论坛结构便开始脱离动网，与动网升级一起，本论坛本身也同时实现了动网新的功能，到519的发布，本人常得论坛本身已功能基本完善，所以决定与动网完全脱离，到动网Final的出现，本论坛也决定不再跟随动网升级了，本人全面对原来的论坛进行了代码优化和版面重排，并升级了部分功能代码，完成了现在这样的论坛。使论坛已经完全脱离了动网，以后也不可以随动网一起升级了！ 　　所以选择本论坛的朋友请先明白，如果采用了本论坛的数据结构，以后就不可以和动网一起升级了，而现有的动网Final版的数据库和本论坛的数据库也是不兼容的！对于动网V5.b519的用户，本人同时在压缩包里提供了升级文件，可以把你519的数据库升级成和本论坛一致的数据结构！ 　　由于一些朋友催得较急，部分功能还是没有完善的（但不会出错），我以后也会给出升级包的。所以决定使用本论坛的朋友，请一定要到本站论坛的“站务办公室”进行指定的留言签名，以好我第一时间通知大家升级！ 　　论坛中使用到的部分插件并没有一同奉上，原因是我还没完成代码优化，请过几天到我的论坛上下载。可以下载的插件主要有：社区银行、网络拳皇、可乐吧台球、五子棋等等…… ===================================== 主要特色功能说明： ◎ 双版面设计，用户可以根据不同爱好选择不同的版式（酷窗版和精简版），系统会记录用户的选择，不用重复选择，也不会出现版面混淆等现象； ◎ 发贴回贴互动功能，给用户随机的互动事件，增加用户的参与兴趣； ◎ 增强的UBB代码和JS代码，新增的买卖贴、定时贴等十几种特色功能UBB代码； ◎ 贴子功能加强，增加互动鲜花、鸡蛋、金钱、炸弹等功能，并保存数据作为用户在论坛的人缘依据； ◎ 不好说了，等你去发掘吧，不然又说我叫卖了…… ====================================== 安装说明： 解压就可以了，数据库名称和路径有变动时不要忘了在CONN。ASP中进行相应修改。 （注意：当论坛中一个贴子也没有时，论坛明星会出错，但当你加入贴子后就正常了，大家不要惊慌） 升级：（对519），解压后把你的原519数据库覆盖现数据库，再执行根目录下的UPDATE。ASP文件就行了，如果没有升级成功的提示，说明你的数据不能进行升级！ （注意：数据库的升级应做了备份，并在本机上进行！） ====================================== 最后一点说明： 由于论坛本来是打算自己用的，所以在设计的过程中部分变量已经去掉，不能从后台设置了（如表格边框），请大家最好保持现有的风格。 如果还不问题，可以到我的论坛上来交流。??注意，由于本人时间不限，技术支持是有限的，请不要过于强求！
IIS+MSSQL+PHP的配置方法
前段时间做完业务系统的二次开发，休息了一个星期后终于要开始新项目了。感受完ASP开发的紊乱后，决定在新项目使用支持OOP的PHP5。为了更好的与业务系统进行数据互换，数据库决定继续沿用MSSQL。鉴于LAMP的盛行，网上的大部分的开发环境配置工具都是APACHE+MYSQL+PHP策略。而我们要用的是IIS+MSSQL+PHP的策略，也就意味着要自己手动配置开发环境了。 具体方法： 1、首先在
ASP+MSSQL获取最新最后添加数据信息的ID记录值
用法：conn.Execute("Insert INTO 表名(帐号,密码) VALUES(aaa,123)" )    添加数据set rs=conn.execute("Select SCOPE_IDENTITY()")  获取新IDnewsid=rs(0)    newsid为你表中的idrs.close说明===========================!SCOP
ASP连接MSSQL数据库语句
转载请注明出处：https://blog.csdn.net/l1028386804/article/details/85066490 ASP与MSSQL 2012  企业版连接字符串 ConnStr="Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=westrac;User Id=sa;Pwd=ssddddHzx;" ASP与...
ASP

28,409

社区成员

356,971

社区内容

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

加载中

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

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

+ 用AI写文章