设为首页收藏本站新闻投稿

MOD中国同盟社

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 476|回复: 2

[求助] 30金币寻求ODBC 未发现数据源名称并且未指定默认驱动程序 [复制链接]

Rank: 7Rank: 7Rank: 7

帖子
649
精华
0
声望
3297 点
金币
3 Mold
被赞许
3 次
注册时间
2009-5-25
发表于 2011-9-10 19:18:57 |显示全部楼层
30金币

无法显示网页

试图访问的网页出现问题,无法显示。

请尝试执行下列操作:

    单击刷新按钮,或稍后重试。
  • 打开 127.0.0.1 主页,然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

技术信息(用于支持人员)
  • 错误类型:
    Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
    [Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
    /mystats/top.asp, 第 10 行

  • 浏览器类型:
    Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; QQDownload 679; .NET CLR 2.0.50727)
  • 网页:
    GET /mystats/top.asp
  • 时间:
    2011年9月10日, 下午 07:15:20

  • 详细信息:
    Microsoft 支持


mystats统计系统 装完以后出现这个 当然 index.asp到可以使用的

say /index打开本页面
say /top查看服务器排行榜
say /mystats或say /ms查看个人信息
say /hisstats或say /hs查看正在观察的玩家信息
say #昵称设置中文昵称
say !签名设置个性签名
say *password设置密码,不能用中文,否则下次将无法登录
下次登录前请输入命令setinfo "hxtx" "你的密码"
csmate.rar推荐使用CS中文输入工具CSMate,点击下载

除了index.asp以外 别的都是这个
千万别问这什么东西………… 我想跳楼...】
以下代码请看
(PS:http://cs.hxcshl.com/mystats/top.asp
另外我这个并不是放到IIS设置的程序网站下 是设置虚拟目录的。。
求解答 可以另加金币。。)


<%@codepage=65001%>
<%response.charset=UTF-8%>
<%response.codepage=65001%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="ms.css" rel="stylesheet" type="text/css"><%
set conn=server.createobject("adodb.connection")
connstr="dsn=cstrike"
conn.open connstr
function APB(A,B,multiple)
if(isnull(B))or(cdbl(B)=0)then
APB=0.0
else
APB=1.0*cdbl(multiple)*cdbl(A)/cdbl(B)
end if
end function
function GetClientCount()
sql="select count(1) as `Total` from `client`;"
set rs=conn.execute(sql)
GetClientCount=cint(rs("Total"))
rs.close
end function
function GetRankState(Rank,LastRank)
if(Rank=LastRank)or(LastRank=0)then
GetRankState="ico_none"
else
if(Rank>LastRank)then
  GetRankState="ico_down"
else
GetRankState="ico_up"
end if
end if
end function
function GetStrLen(str)
if(isnull(str))or(str="")then
GetStrLen=0
else
dim i,n,k,chrA
k=0
n=len(str)
for i=1 to n
chrA=mid(str,i,1)
if(asc(chrA)>=0)and(asc(chrA)<=255)then
  k=k+1
else
  k=k+2
end if
next
GetStrLen=k
end if
end function
function FormatName(sName)
if(GetStrLen(sName)>31)then
FormatName=Left(sName,28)+"..."
else
FormatName=sName
end if
end function
dim iMax,iPage,iCount,iPageCount
iPage=1
iCount=50
iMax=GetClientCount()
if(request("iCount")<>"")then iCount=cint(request("iCount")) end if
iPageCount=iMax\iCount+1
if(cint(request("iPage"))>=cint(iPage))and(cint(request("iPage"))<=cint(iPageCount))then iPage=request("iPage") end if
sql="select `C`.`Rank`,`C`.`LastRank`,`C`.`NickName`,`C`.`Md5`,sum(`WS`.`Kill`) as `Kill`,sum(`WS`.`Death`) as `Death`,sum(`WS`.`HeadShot`) as `HeadShot`,sum(`WS`.`HeadShoted`) as `HeadShoted`,sum(`WS`.`TeamKill`) as `TeamKill`,sum(`WS`.`Shoot`) as `Shoot`,sum(`WS`.`Hit`) as `Hit`,sum(`WS`.`Damage`) as `Damage`,`C`.`Score` as `Score` from `client` as `C` inner join `weaponstats` as `WS` on `C`.`Md5`=`WS`.`Md5` group by `C`.`NickName`,`C`.`Md5`,`C`.`Rank`,`C`.`LastRank`,`C`.`Score` having `C`.`Rank`>0"
sql=sql+" and C.Rank>"+cstr((cint(iPage)-1)*cint(iCount))
sql=sql+" and C.Rank<"+cstr(cint(iPage)*cint(iCount)+1)
sql=sql+" order by C.Rank;"
set result=conn.execute(sql)
dim nametemp
%>
<title>Top</title>
</head>
<body style="color:#FFB000;">
<table>
  <tr class=trhrank>
    <td><a href="top.asp?iPage=<%=cint(iPage)-1%>&iCount=<%=cint(iCount)%>"><img align="absmiddle" src="images/ico_up.gif" border="0"></a>排名<a href="top.asp?iPage=<%=cint(iPage)+1%>&iCount=<%=cint(iCount)%>"><img align="absmiddle" src="images/ico_down.gif" border="0"></a></td>
    <td>昵称</td>
    <td>杀敌</td>
    <td>阵亡</td>
    <td>阵亡比</td>
    <td>爆头</td>
    <td>爆头率</td>
    <td>开火</td>
    <td>命中</td>
    <td>命中率</td>
    <td>总伤害</td>
    <td>平均伤害</td>
    <td>技巧得分</td>
  </tr><%
do while not (result.eof)
nametemp=result("NickName")
nametemp=replace(nametemp,"&","&amp;")
nametemp=replace(nametemp,"<","&lt;")
nametemp=replace(nametemp,">","&gt;")
%>
  <tr class=color<%=result("Rank") mod 2%>>
    <td class="tdrank"><a href="stats.asp?Rank=<%=result("Rank")%>"><%=result("Rank")%></a><img align="absmiddle" src="images/<%=GetRankState(result("Rank"),result("LastRank"))%>.gif"></td>
    <td class="tdnick"><a href="stats.asp?Md5=<%=result("Md5")%>"><%=FormatName(nametemp)%></a></td>
    <td><%=result("Kill")%></td>
    <td><%=result("Death")%></td>
    <td><%=formatnumber(APB(result("Kill"),result("Death"),1),2,-1,,0)%></td>
    <td><%=result("HeadShot")%></td>
    <td><%=formatnumber(APB(result("HeadShot"),result("Kill"),100),2,-1,,0)%>%</td>
    <td><%=result("Shoot")%></td>
    <td><%=result("Hit")%></td>
    <td><%=formatnumber(APB(result("Hit"),result("Shoot"),100),2,-1,,0)%>%</td>
    <td><%=result("Damage")%></td>
    <td><%=formatnumber(APB(result("Damage"),result("Hit"),1),2,-1,,0)%></td>
    <td><%=formatnumber(result("Score"),2,-1,,0)%></td>
  </tr><%
result.movenext
Loop
result.close
conn.close
%>
</table>
<div class="page" style="width:100%;">
  <table>
    <form name="search" action="search.asp">
    <tr>
      <td width="170px">
      <input name="NickName" type="text" size="10" maxlength="32" class="input_text">
      <input name="FindPlayer" type="submit" value="查找玩家" class="input_button">
      </td>
      <td class="out"><div class="in"><a href="top.asp?iPage=<%=cint(iPage)-1%>&iCount=<%=cint(iCount)%>"><img align="absmiddle" border="0" src="images/ico_left.gif">上一页</a></div></td><%
dim iPageIndex,iPageStart,iPageEnd
iPageStart=1
iPageEnd=iPageCount
if(iPageStart<iPage-5)then iPageStart=iPage-5 end if
if(iPageEnd>iPage+5)then iPageEnd=ipage+5 end if
if(iPageStart>1)then
response.write("      <td class=""o""><a href=""top.asp?iPage=1&iCount="+cstr(iCount)+""">1...</a></td>"+chr(13))
end if
for iPageIndex=iPageStart to iPageEnd
if(cint(iPageIndex)=cint(iPage))then
response.write("      <td class=""n""><a href=""top.asp?iPage="+cstr(iPageIndex)+"&iCount="+cstr(iCount)+""">"+cstr(iPageIndex)+"</a></td>"+chr(13))
else
response.write("      <td class=""o""><a href=""top.asp?iPage="+cstr(iPageIndex)+"&iCount="+cstr(iCount)+""">"+cstr(iPageIndex)+"</a></td>"+chr(13))
end if
next
iPageIndex=iPageIndex+1
if(iPageEnd<iPageCount)then
response.write("      <td class=""o""><a href=""top.asp?iPage="+cstr(iPageCount)+"&iCount="+cstr(iCount)+""">..."+cstr(iPageCount)+"</a></td>")
end if
%>
      <td class="out"><div class="in"><a href="top.asp?iPage=<%=cint(iPage)+1%>&iCount=<%=cint(iCount)%>">下一页<img align="absmiddle" border="0" src="images/ico_right.gif"></a></div></td>
    </tr>
    </form>
  </table>
</div>
</body>
</html>



最佳答案

Marshal 查看完整内容

控制面板,ODBC设置下,看看驱动装了没!

使用道具 举报

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

帖子
2836
精华
2
声望
12984 点
金币
2999 Mold
被赞许
28 次
注册时间
2006-4-28

Mod中国同盟社至高荣誉

发表于 2011-9-10 19:18:58 |显示全部楼层
控制面板,ODBC设置下,看看驱动装了没!

使用道具 举报

Rank: 5Rank: 5

帖子
316
精华
0
声望
788 点
金币
94 Mold
被赞许
2 次
注册时间
2010-7-13
发表于 2011-9-11 07:24:35 |显示全部楼层
.....太深奥了......这是神马插件啊

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

回顶部