各位帮忙解决个问题。

日久情深 2010-07-06 02:56:19
问题描述：用户登陆的地方有一个验证码，该程序在xp下iis5测试可用。但是到了win7下ii6却无法显示验证图片。本人由于需要改一个asp网站。遇到这种问题。。忘各位帮帮忙。在此谢过啦。！
代码如下：checkcode.asp


 <%

Option Explicit

Response.buffer=true

NumCode

Function NumCode()

	Response.Expires = -1

	Response.AddHeader "Pragma","no-cache"

	Response.AddHeader "cache-ctrol","no-cache"

	On Error Resume Next

	Dim zNum,i,j

	Dim Ados,Ados1

	Randomize timer

	zNum = cint(8999*Rnd+1000)

	Session("CheckCode") = zNum

	Dim zimg(4),NStr

	NStr=cstr(zNum)

	For i=0 To 3

		zimg(i)=cint(mid(NStr,i+1,1))

	Next

	Dim Pos

	Set Ados=Server.CreateObject("Adodb.Stream")

	Ados.Mode=3

	Ados.Type=1

	Ados.Open

	Set Ados1=Server.CreateObject("Adodb.Stream")

	Ados1.Mode=3

	Ados1.Type=1

	Ados1.Open

	Ados.LoadFromFile(Server.mappath("../image/body.Fix"))

	Ados1.write Ados.read(1280)

	For i=0 To 3

		Ados.Position=(9-zimg(i))*320

		Ados1.Position=i*320

		Ados1.write ados.read(320)

	Next	

	Ados.LoadFromFile(Server.mappath("../image/head.fix"))

	Pos=lenb(Ados.read())

	Ados.Position=Pos

	For i=0 To 9 Step 1

		For j=0 To 3

			Ados1.Position=i*32+j*320

			Ados.Position=Pos+30*j+i*120

			Ados.write ados1.read(30)

		Next

	Next

	Response.ContentType = "Image/BMP"

	Ados.Position=0

	Response.BinaryWrite Ados.read()

	Ados.Close:set Ados=nothing

	Ados1.Close:set Ados1=nothing

	If Err Then Session("CheckCode") = 9999

End Function

%>


登陆页面：login.asp


<%@language=vbscript codepage=936 %>

<%

option explicit

'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面

Response.Buffer = True 

Response.Expires = -1

Response.ExpiresAbsolute = Now() - 1 

Response.Expires = 0 

Response.CacheControl = "no-cache" 

'主要是使随机出现的图片数字随机

%>

<html>

<head>

<title>管理员登录</title>

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

<style type="text/css">

<!--

BODY

{

	FONT-FAMILY: "宋体";

	FONT-SIZE: 9pt;

	text-decoration: none;

	line-height: 150%;

	background-color: #FBFDFF;

	FONT-SIZE: 9pt;background:#ffffff;

text-decoration: none;

SCROLLBAR-FACE-COLOR: #C6EBDE;

SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #39867B; SCROLLBAR-3DLIGHT-COLOR: #39867B; SCROLLBAR-ARROW-COLOR: #330000; SCROLLBAR-TRACK-COLOR: #E2F3F1; SCROLLBAR-DARKSHADOW-COLOR: #ffffff;

}

TD{	FONT-FAMILY: "宋体";	FONT-SIZE: 9pt;}

Input{	FONT-SIZE: 9pt;	HEIGHT: 20px;}

Button{	FONT-SIZE: 9pt;	HEIGHT: 20px; }

Select{	FONT-SIZE: 9pt;	HEIGHT: 20px;}

A{	TEXT-DECORATION: none;	color: #000000;}

A:hover{	COLOR: #428EFF;	text-decoration: underline;}

.title{	background:url(Images/topBar_bg.gif);}

.border{	border: 1px solid #39867B;}

.tdbg{	background:#E1F4EE;	line-height: 120%;}

.topbg{	background:url(Images/topbg.gif);	color: #FFFFFF;}

.bgcolor {	background-color: #91BCE3;}

-->

</style>

<script language=javascript>

<!--

function SetFocus()

{

if (document.Login.UserName.value=="")

	document.Login.UserName.focus();

else

	document.Login.UserName.select();

}

function CheckForm()

{

	if(document.Login.UserName.value=="")

	{

		alert("请输入用户名！");

		document.Login.UserName.focus();

		return false;

	}

	if(document.Login.Password.value == "")

	{

		alert("请输入密码！");

		document.Login.Password.focus();

		return false;

	}

	if (document.Login.CheckCode.value==""){

       alert ("请输入您的验证码！");

       document.Login.CheckCode.focus();

       return(false);

    }

}



function CheckBrowser() 

{

  var app=navigator.appName;

  var verStr=navigator.appVersion;

  if (app.indexOf('Netscape') != -1) {

    alert("系统友情提示：\n    你使用的是Netscape浏览器，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");

  } 

  else if (app.indexOf('Microsoft') != -1) {

    if (verStr.indexOf("MSIE 3.0")!=-1 || verStr.indexOf("MSIE 4.0") != -1 || verStr.indexOf("MSIE 5.0") != -1 || verStr.indexOf("MSIE 5.1") != -1)

      alert("系统友情提示：\n    您的浏览器版本太低，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");

  }

}

//-->

</script>

</head>

<body class="bgcolor">

<p> </p>

<center>

<table border=1 borderColor=#6699CC cellPadding=4 cellSpacing=1 width=450 style="border-collapse: collapse" align=center >

	<tr valign="baseline"> 

		<td align="right" background=image/b1.gif>

        <div align="center"><font color="#000000" style="font-size: 10.5pt;"> 

          企业网站管理系统</font></div>

      </td>

	</tr>

	<tr valign="baseline"> 

		<td bgcolor=#EFF1F3 align=center valign=middle height=60> 

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

				<tr>

					<td width=20> </td>

					

            <td width=150>

              <div align="center"><img src="Image/admin_p.gif" width="90" height="100" border="0">              </div>

            </td>

					<td width=280>

<form name="Login" action="Admin_ChkLogin.asp" method="post" target="_parent" onSubmit="return CheckForm();">

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

		<tr align="center"> 

			<td height="38" colspan="2"><font color="#000000" size="3"><strong>管理员登录</strong></font> 

			</td>

		</tr>

		<tr> 

			<td align="right"><font color="#000000">用户名称：</font></td>

			<td><input name="UserName"  type="text"  id="UserName4" maxlength="20" style="width:160px;border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onMouseOver="this.style.background='#FDE8FE';" onMouseOut="this.style.background='#FFFFFF'" onFocus="this.select(); "></td>

		</tr>

		<tr> 

			<td align="right"><font color="#000000">用户密码：</font></td>

			<td><input name="Password"  type="password" maxlength="20" style="width:160px;border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onMouseOver="this.style.background='#FDE8FE';" onMouseOut="this.style.background='#FFFFFF'" onFocus="this.select(); "></td>

		</tr>

		<tr> 

			<td align="right"><font color="#00000">验 证 码：</font></td>

			<td><input name="CheckCode" size="6" maxlength="4" style="border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onMouseOver="this.style.background='#FDE8FE';" onMouseOut="this.style.background='#FFFFFF'" onFocus="this.select(); ">

				<font color="#FF0000">请在左边输入</font><img src="./inc/checkcode.asp"></td>

		</tr>

		<tr> 

			<td colspan="2"> <div align="center">     

				<input   type="submit" name="Submit" value=" 确 认 " style="font-size: 9pt; height: 19; width: 60; color: #000000; background-color: #FFCCFF; border: 1 solid #336600" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#FFCCFF'">

				  

				<input name="reset" type="reset"  id="reset" value=" 清 除 " style="font-size: 9pt; height: 19; width: 60; color: #000000; background-color: #FFCCFF; border: 1 solid #336600" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#FFCCFF'"><br>

				</div></td>

		</tr>

	</table>

</form>

					</td>

				</tr>

			</table>

		</td>

	</tr>

</table>

  <br>

</center>

<p align="center"> </p>

<script language="JavaScript" type="text/JavaScript">

CheckBrowser();

SetFocus(); 

</script>

</body>

</html>
...全文
93 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
yuhf20 2010-09-09
  • 打赏
  • 举报
 回复
我怎么改好像都不太好用！！
日久情深 2010-07-11
  • 打赏
  • 举报
 回复
呵呵。。问题解决了。。查找原因是因为window7下iis7的问题。这段代码在iis7下无法正常运行。网上找的部分代码可以运行。跟绝对路径有关，如果说将../image/body.Fix和../image/head.fix的路径改为./image/body.Fix和./image/head.fix的话，程序可以正常运行。
日久情深 2010-07-06
  • 打赏
  • 举报
 回复
谢谢各位关注。。。呵呵继续定噢。。
gingerkang 2010-07-06
  • 打赏
  • 举报
 回复
在网上搜一个别的验证码换下。
ZSJ_COOL 2010-07-06
  • 打赏
  • 举报
 回复
win7下ii6 ！不如 用WINDOW 2003 IIS6 是否 出错！？！ 难道你们服务器 用WIN7？！
bycz123456 2010-07-06
  • 打赏
  • 举报
 回复
关注。。等大牛。。。顺便接分。。。
python输入一个四位数、各位数字各不相同_求个大神帮忙解决这些C++难题吧（急啊!）1．请编程验证命题.对任意一个各位数字不全相同的四位数,存在下面的规律：（1）将组成该数的四个数字由大到小排列,...
求个大神 帮忙解决这些C++难题吧(急啊!)1．请编程验证命题.对任意一个各位数字不全相同的四位数,存在下面的规律：(1)将组成该数的四个数字由大到小排列,形成由这四个数字构成的最大的四位数.(2)将组成该数的四个数字...
各位帮帮忙 关于UEFI0079
各位帮忙解决一下这个问题 我是个小白 看不懂 这是啥意思 该怎么解决？
蜘蛛液教程能量平衡出问题，请大佬帮忙解决
请教一下各位大佬，这个问题是怎么回事，我把自己编辑的em.mdp也放上来 请大佬帮忙解决一下，这个是什么问题啊
刚学VB，请各位帮忙解决小问题！
请问我用VB写计算器计算平方根的程序应该怎么写啊？ 教教我好吗？
请各位帮忙看下，解决下我的问题 谢谢各位了
我这里有一个插件，是关于腾讯视频解析的，但是解析出来的都是标清的无法解析成高清的，请帮忙看下，如何解析成超清的或者最清新的视频并且解析长久有效的 以下为代码 function yzmg_qq_video($atts, $content=...
ASP

28,409

社区成员

356,971

社区内容

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

加载中

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

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

+ 用AI写文章