试图访问的网页出现问题，无法显示。
--------------------------------------------------------------------------------
请尝试执行下列操作：
单击刷新按钮，或稍后重试。
打开 127.0.0.1 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（用于支持人员）
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/letter/show.asp, 第 12 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
网页：
GET /letter/show.asp
时间：
2007年5月8日 星期二, 9:38:37
详细信息：
Microsoft 支持
这是错误的ASP文件代码,朋友们看下这个文件 句子里哪个地方错误,这了好久了,谢谢大家了.
---------------------------------------------------------------------------------------------------------
<!--#include file="../include/open.asp"-->
<!--#include file="../include/formatDate.asp"-->
<%
'取得当前网址
thisURL="http://"&request.servervariables("server_name")&request.servervariables("url")
id=request.querystring("id")
set rs=server.createobject("adodb.recordset")
sqlcmd="select * from letter where id="&id
rs.open sqlcmd,conn,1,1,1 (这是第12句)
if rs.eof then
response.write "目前尚无文章发表"
end if
sqlcmd="update letter set times=times+1 where id="&id
conn.execute sqlcmd
letterName=rs("title")
if len(letterName)>5 then
letterName=left(letterName,4)&"…"
end if
kind=rs("letterkind")
%>
<!--#include file="../web/top.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="14" align="center" valign="top" background="../images/left_bg2.gif"></td>
<td align="center" valign="top" bgcolor="#FFFFFF"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="750" height="116">
<param name="movie" value="../flash/service.swf">
<param name="quality" value="high">
<embed src="../flash/service.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="750" height="116"></embed>
</object></td>
<td width="10" align="center" valign="top" background="../images/main_06.gif"> </td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="14" height="538" align="center" valign="top" background="../images/left_bg2.gif"></td>
<td width="188" height="100%" valign="top" background="../images/dt.gif" style="border-right:1px #cccccc solid;border-bottom:1px #cccccc solid"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><img src="../images/index_r12_c1.jpg" width="180" height="37">
<table width=99% border=0 cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td bgcolor="#FFFFFF"><table width=98% border=0 background=../images/l10.jpg cellpadding=0 cellspacing=0>
<tbody>
<%
'建立类别的RS对象
set rs1=server.createobject("adodb.recordset")
sqlcmd="select * from letterkind where fatherID=62 order by orderID"
rs1.open sqlcmd,conn,1,1,1
i=1
do while not rs1.eof
%>
<tr>
<td height="38"><table class=text-gray-1 height=23 cellspacing=0 cellpadding=0
width="100%" border=0>
<tbody>
<tr>
<td width="36%" height=12> </td>
<td valign=top width="64%"><span style="color: #0C2BE6"> <a href="<%=thisURL%>?letterkind=<%=rs1("id")%>&kindname=<%=rs1("name")%>">[<%=rs1("name")%>]</a></span></td>
</tr>
</tbody>
</table></td>
</tr>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
<tr>
<td align="center" valign="top" bgcolor="#FFFFFF"> </td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
</table>
<table width="100%" height="292" border="0" cellpadding="0" cellspacing="0" background="../images/dt.gif">
<tr>
<td align="center" valign="top"><table width="155" height="117" border="0" cellpadding="0" cellspacing="0">
<form name="form2" method="post" action="../hotel/search.asp">
<tr align="center" bgcolor="#99FF33">
<td height="30" bgcolor="#FFFFFF"><img height=34
src="../images/tit_lawyer.jpg" width=155 border=0></td>
</tr>
<tr align="center" bgcolor="#99FF33" height=2>
<td height="2" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td valign="top"><script language=javascript>
function CheckLoginForm(){
if(document.UserLogin.UserName.value==''){
alert('请输入用户名！');
document.UserLogin.UserName.focus();
return false;
}
if(document.UserLogin.Password.value == ''){
alert('请输入密码！');
document.UserLogin.Password.focus();
return false;
}
}
function openScript(url, width, height){
var Win = window.open(url,'UserControlPad','width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=yes,status=yes' );
}
</script>
<table cellspacing=0 cellpadding=0 border=0>
<tbody>
<tr>
<td><img height=8 src="../images/pic_left_02.jpg"
width=155></td>
</tr>
<tr>
<td valign=top background=../images/bg_left_02.jpg height=80><table cellspacing=0 cellpadding=0 width="100%" align=center border=0>
<tbody>
<tr>
<td align=right height=25>分类：</td>
<td height=25><select name="letterkind" id="letterkind">
<option value="0">不限</option>
<option value="67">五星级</option>
<option value="68">四星级</option>
<option value="69">三星级</option>
<option value="70">准三星级</option>
<option value="71">二星级</option>
<option value="72">准二星级</option>
</select></td>
</tr>
<tr>
<td align=right height=25>关键词：</td>
<td height=25><input name="keyword" type="text" id="keyword" onMouseDown="this.value=''" value="输入关键词" size="10"></td>
</tr>
<tr align=center>
<td height=30 colspan=2><input type="submit" name="Submit" value=" 提交">
<input id=Reset type=reset value=" 清除 " name=Reset>
</td>
</tr>
</table></td>
</tr>
<tr>
<td><img height=8 src="../images/pic_left_002.jpg"
width=155></td>
</tr>
</tbody>
</table></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
<td align="center" valign="top" bgcolor="#FFFFFF"><table width="92%" border="0" cellpadding="0" cellspacing="1">
<tr>
<td height="26" colspan="2"><%if rs("comment")<>"nothing" and rs("comment")<>"" then%>
<table width="100%" border="0" cellspacing="10" cellpadding="10">
<tr>
<td><span class="topicfont">[编者按]</span> <%=rs("comment")%><br>
<br>
</td>
</tr>
</table>
<%end if%>
<center>
<span class="titlefont">
<STYLE>
.newstitle {
FONT-WEIGHT: bold; FONT-SIZE: 16px; FILTER: Glow(Color=#999999, Strength=1) DropShadow(Color=#333333, OffX=2, OffY=1, Positive=1); COLOR: #f9f9f9; LINE-HEIGHT: 140%; LETTER-SPACING: 2pt
}
</STYLE>
</span>
<TABLE cellSpacing=0 cellPadding=0 width=530 align=center
border=0>
<TBODY>
<TR>
<TD class=newstitle align=center
height=40><span class="titlefont">[<%=rs("title")%>]</span> </TD>
</TR>
</TBODY>
</TABLE>
</center></td>
</tr>
<tr bgcolor="eeeeee">
<td width="386"> 文/
<%if rs("email")<>"无" then%>
<a href=mailto:<%=rs("email")%>><%=rs("writer")%> </a>
<%else%>
<%=rs("writer")%>
<%end if%>
</td>
<td width="133" align="center">阅读次数:<%=rs("times")%></td>
</tr>
<tr align="center">
<td colspan="2"><table width="97%" border="0">
<tr>
<td><%if not rs("smallImg")="nothing" then%>
<center>
<%if not rs("bigImg")="nothing" then%>
<a href="#" onclick="window.open('showImg.asp?id=<%=rs("id")%>','newwin','height=400,width=600,location=0,menubar=0,resizable=1,starus=0,toolbar=0,scrollbars=1')"> <img src=smallImg/<%=rs("smallImg")%> border=0></a>
<%else%>
<img src=smallImg/<%=rs("smallImg")%> border=0>
<%end if%>
</center>
<%end if%>
<br>
<center>
<%
if rs("is_img") then
keyword="插图"&id
keylen=len(keyword)
set rsImg=server.CreateObject("adodb.recordset")
sqlcmd="select * from picture where left(keyword,"&keylen&")='"&keyword&"' order by id"
rsImg.open sqlcmd,conn,1,1,1
do while not rsImg.eof
%>
<a href="../picture/bigImg/<%=rsImg("bigImg")%>" target="_blank"><img src="../picture/smallImg/<%=rsImg("smallImg")%>" width="450" border="0"></a> <br>
<br>
<span class="topicfont"><%=rsImg("name")%></span>
<table width="80%" height="21" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><%=rsImg("other")%></td>
</tr>
</table>
<br>
<br>
<%
rsImg.movenext
loop
end if
%>
</center>
<br>
<span class="lettershow"><%=rs("content")%></span><br>
<center>
<font color="#000000"><br>
[全文完]</font>
</center>
<br>
<hr width="100%" size="1"></td>
</tr>
</table></td>
</tr>
</table>
<center>
</center>
<table width="90%" border="0" cellspacing="10" cellpadding="1" align="center">
<tr>
<td align="left"> 收录时间：<%=rs("datetime")%><br>
摘 自：<%=rs("wherefrom")%><br>
<br>
<table width=100% border=0 align="center" cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td width="440" height=19 valign=center bgcolor=#eeeeee class=topicfont> <img height=13 src="../icon/arrow.gif" width=16>[相关主题]</td>
<td valign=center align=middle width=106 bgcolor=#eeeeee height=19> </td>
</tr>
<tr>
<td bgcolor=#999999 colspan=2 height=1></td>
</tr>
<tr>
<td colspan=2 height=6></td>
</tr>
</tbody>
</table>
<%
keyword=rs("keyword")
thisid=rs("id")
copykind=rs("copykind")
rs.close
set rs=nothing
if len(keyword)<>0 then
key=split(keyword,",")
key(0)="%"&key(0)&"%"
thecon="keyword like '"&key(0)&"' "
for i=1 to ubound(key)
key(i)="%"&key(i)&"%"
thecon=thecon&"or keyword like '"&key(i)&"' "
next
thecon="("&thecon&")"
set topicrs=server.createobject("adodb.recordset")
sqlcmd="select id,title,datetime from letter where " 'where后的空格不可少
sqlcmd=sqlcmd&thecon&" and id<>"&thisId&" and is_show order by id desc"
topicrs.open sqlcmd,conn,1,1,1
if topicrs.eof then
response.Write(" 无相关主题！")
end if
do while not topicrs.eof
%>
[<%=formatdate(topicrs("datetime"))%>] <a href="<%=thisURL%>?id=<%=topicrs("id")%>" target="_self"><%=topicrs("title")%></a><br>
<%
topicrs.movenext
loop
topicrs.close
set topicrs=nothing
end if
%>
<table width="95%" border="0" cellspacing="0" cellpadding="4" align="center">
<tr>
<td height="23" align="right"><a href="javascript:window.close()" class="topicfont" >[关闭窗口]</a></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="10" align="center" valign="top" background="../images/main_06.gif"> </td>
</tr>
</table>
<!--#include file="../web/bottom.htm"-->
</BODY>
</HTML>
---------------------------------------------------------------------------------------------------------
这是open.asp文件代码.
<%
set conn=server.createobject("adodb.connection")
dbpath=server.mappath("../database/bensharp.asp")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&dbpath&";password=liuzhen"
%>
[此贴子已经被作者于2007-5-8 10:11:01编辑过]
w7Iv2D6C.txt
