添加电影时,图片不能上传;不能显示在线人数???

lycxiayu 2005-11-26 05:21:30
代码如下:admin_uploadsave1.asp

<%
OPTION EXPLICIT
Server.ScriptTimeOut=5000
%>
<!--#include FILE="UpLoadClass.asp"-->


<!--#include file="security.asp"-->
<%if session("flag")>1 then
response.write "<script>alert('您的操作权限不够!');history.back();</script>"
response.end
end if
%>
<%
dim request2,FileName

'建立上传对象
set request2=New UpLoadClass
'上传总大小为20M
request2.TotalSize= 2971520
'单文件最大10M
request2.MaxSize = 2485760
'允许上传rar/zip格式文件
request2.FileType = "gif/jpg"
request2.SavePath = "tupian/"
request2.open()
%>
<html>
<head>
<title>上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta content="all" name="robots">

<link href="../style/basic.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body,td,th {
font-size: 9pt;
color: #000000;
}
body {
background-color: #E1F4EE;
}
-->
</style></head>

<body>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" ">
<tr>
<td bgcolor="#E1F4EE"><blockquote>
<%
'显示类版本

if request2.Error=4 then
response.Write("<p>总数据量超过限制,上传失败</p>")
else
response.Write("<p>总数据量没超过限制</p>")
end if


'显示源文件路径与名称
response.Write("<br>文件二:"&request2.Form("file1_Path")&request2.Form("file1_Name"))
response.Write("=>")

'显示目标文件路径与名称
response.Write(request2.SavePath&request2.Form("file1"))
FileName=request2.SavePath&request2.Form("file1")
response.write "<script>parent.document.myform.domurl3.value='" & fileName & "'</script>"
Response.Write "<a href=admin_uploadsavel.asp><span class=14p>上传成功 返回</span></a>"
%>
<%= request2.Form("file1") %>
</blockquote></td>
</tr>
</table>
</body>
</html>
<%
'释放上传对象
set request2=nothing
%>

-----------------------------------
onlinecount.asp

<%@ Language=JavaScript %>
<%
var strCountData="1234567890";
var theTime=new Date();
if (typeof(Application("GuestOnline"))=="undefined")
Application("GuestOnline")="0";
function CheckGuest()
{
//Check Me
if (typeof(Session("UserName"))=="undefined")
Session("UserName")="guest";
var strUserName=String(Session("UserName"));
var strGuestOnline=String(Application("GuestOnline"));
var GuestArray=strGuestOnline.split("\n");
var i;
var iGuestNum;
if (typeof(Session("GuestNum"))=="undefined")
{
for (i=0;i<GuestArray.length;i++)
{
if (GuestArray[i]=="0") break;
}
Session("GuestNum")=i;
}

iGuestNum=Session("GuestNum")*1;
if (iGuestNum>10000)iGuestNum=10000;

var strFormatTime=theTime.getTime();
strFormatTime="0000000000000000000"+strFormatTime;
strFormatTime=strFormatTime.substr(strFormatTime.length-16,16);

GuestArray[iGuestNum]=strFormatTime+strUserName;

strGuestOnline=GuestArray.join("\n");
Application("GuestOnline")=strGuestOnline;

return 1;
}
function GetNumber()
{
//Count Guests on line
var strFormatTime=theTime.getTime()-5*60*1000;
strFormatTime="0000000000000000000"+strFormatTime;
strFormatTime=strFormatTime.substr(strFormatTime.length-16,16);

var strGuestOnline=String(Application("GuestOnline"));
var GuestArray=strGuestOnline.split("\n");

var iGuestCounter=0;
var i;
for (i=0;i<GuestArray.length;i++)
{
if (GuestArray[i].substr(0,16)> strFormatTime)
iGuestCounter++;
else if (GuestArray[i].length>0)
GuestArray[i]="0";
}
strGuestOnline=GuestArray.join("\n");
Application("GuestOnline")=strGuestOnline;
return iGuestCounter;
}

CheckGuest();
//Output
strCountData=GetNumber();

var i;
strCountData="0"+strCountData;

var strDigits= new Array(
"0", "0x3c","0x66","0x66","0x66","0x66","0x66","0x66","0x66","0x66","0x3c", //0
"1","0x30","0x38","0x30","0x30","0x30","0x30","0x30","0x30","0x30","0x30", //1
"2","0x3c","0x66","0x60","0x60","0x30","0x18","0x0c","0x06","0x06","0x7e", //2
"3","0x3c","0x66","0x60","0x60","0x38","0x60","0x60","0x60","0x66","0x3c", //3
"4","0x30","0x30","0x38","0x38","0x34","0x34","0x32","0x7e","0x30","0x78", //4
"5","0x7e","0x06","0x06","0x06","0x3e","0x60","0x60","0x60","0x66","0x3c", //5
"6","0x38","0x0c","0x06","0x06","0x3e","0x66","0x66","0x66","0x66","0x3c", //6
"7","0x7e","0x66","0x60","0x60","0x30","0x30","0x18","0x18","0x0c","0x0c", //7
"8","0x3c","0x66","0x66","0x66","0x3c","0x66","0x66","0x66","0x66","0x3c", //8
"9","0x3c","0x66","0x66","0x66","0x66","0x7c","0x60","0x60","0x30","0x1c"); //9

var iCharCount=strCountData.length;
var iCharWidth=8;
var iCharHeight=10*1;
var theBit;
var theNum;
Response.ContentType ="image/x-xbitmap";
Response.Expires =0;

Response.Write ("#define counter_width "+ iCharWidth*iCharCount+"\r\n"); //图形宽
Response.Write ("#define counter_height "+ iCharHeight+"\r\n"); //图形高
Response.Write ("static unsigned char counter_bits[]={\r\n");

for (iRow=0;iRow<iCharHeight;iRow++)
for (i=0;i<iCharCount;i++)
{
theBit=strCountData.charAt(i);
for (k=0;k<strDigits.length;k+=(iCharHeight+1))
{
if (strDigits[k]==theBit)break;
}
if (k>=strDigits.length)k=0;
theOffset=k+1;

Response.Write (strDigits[theOffset+iRow]);
Response.Write (",");
}

Response.Write ("};\r\n");
%>


感谢大侠们,帮我看看,是什么地方出问题了。
...全文
177 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
lycxiayu 2005-12-08
  • 打赏
  • 举报
回复
这两句是什么问题啊???

变量未定义: 'connstr'
/articleconn.asp, 第 9 行


网页:
POST 33186 ??? /admin_uploadsave1.asp
lycxiayu 2005-12-06
  • 打赏
  • 举报
回复
...
lycxiayu 2005-11-29
  • 打赏
  • 举报
回复
不好意思,我是菜鸟,我只能判断到这个程序有问题,具体在哪里,我不能确定,请大虾们帮忙看看。不能显示,下面是错误提示:

错误类型:
Microsoft VBScript 运行时错误 (0x800A01F4)
变量未定义: 'connstr'
/articleconn.asp, 第 9 行


浏览器类型:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)

网页:
POST 33186 ??? /admin_uploadsave1.asp
ailincn 2005-11-27
  • 打赏
  • 举报
回复
我觉得满奇怪的,看了好些提问题的,一下子就给那么长的代码,麻烦以后再问的时候把自己写的代码加上注释,回答问题的人能清楚的明了你的的意思,有的地方就不要那么长代码了,就用汉字说明你的功能就可以了,因为数字格式、变量定义这个大家都知道,就说你哪里有问题,要解决什么就可以了
lycxiayu 2005-11-27
  • 打赏
  • 举报
回复
up...
天空网络电影系统PHPV1.0(SkyucMovieSystemV1.0) 版权所有:天空网络 http://www.skyuc.com 运行环境:php+smarty+mysql+GD 注意事项: 1.本程序需要php+smarty+mysql+GD运行环境,使用前请先安装好底层系统环境。 2.首次安装会转到安装界面,安装完成后,请删除install文件夹。 3.首页左侧排行榜图片:复制你上传到upload\imgwsf下的图片文件,到upload\small_imgwsf,并修改其大小为85*117像素 4.头部导航FLASH链接是HTML模式的,如需更改为PHP模式,请自行修改flash\menu.fla文件. 5.免费版限制:(仅限制了两处功能,其它功能无限制) a.去掉了防盗链功能,防盗链功能中有服务器智能分流功能,因此免费版也没有智能分流功能. b.授权http://127.0.0.1/webadmin/登陆管理后台,后台网站域名请填写127.0.0.1该域名不在前台显示,不影响网站运行,但只能填写127.0.0.1! 6.根目录做写入权,如果是cgi+IIS模式,要有执行权,最好是7777,安装的候只是数据库安装,数据安装后需要手工修改include/conn.php文件里面的数据库链接参数(仅修改数据库名,帐号,密码及服务器地址) 发邮件说明: send_mail支持两种发EMAIL的方法, 使用SMTP协议,使用SOCKET发送 使用MAIL函数发送 SMTP协议发送稳定,不需服务器支持,但相对来说速度慢 MAIL函数对服务器要求高,需要服务器支持SMTP服务! 如果是WINDOWS用户,可以安装“逍遥邮”来安装SMTP服务! UNIX可以安装sendmail来完成STMP服务 目录说明:(有些目录有index.htm或index.html空白文件用于防止非法浏览程序文件目录.) DataBackup数据库备分 download软件文件(为减少程序体积,本程序未附带相关软件,请自行放置相应软件) flash程序FLASH文件(1234四个.fla文件是首页右侧flash源码,请自行修改) images默认模板图片 include程序核心 install安装文件(请于安装后删除) js程序头部和底部JS moviebiglist生成大类HTML moviehtml生成页面HTML movielist生成小类HTML netbar网吧管理 Templates模板文件(提供了默认模板的源文件,方便用户修改成其它模板) union下线推广 upload上传图片 user会员中心 webadmin后台管理(可更名) 功能简介: 1.增加收费用户优先播放功能。后台设定免费用户最大上限人数。超过人数系统将禁止免费用户点播。同给出消息。收费用户不受控制。 2.优化在线统计播放人数功能。采用缓存技术。极大的提高效率。节约服务器资源。 3.影片集数控制功能。添加电影可选择起始集数和结尾集数,轻松解决影片多集连载问题。 4.HelixServer、Serv-U防盗。可实现多台helixserver、Serv-U服务器在线点播防盗,而一切设置只需后台管理。 5.HelixServer采用端口分流功能,可一台电影服务器架设多个helixserver,在播放电影会随机选择当与该点播者链接最快的helixserver服务器,从而极大地提高播放电影速度,减少缓冲频繁问题。 6.后台设定是否开启免费观看及免费播放间段,如1:00-6:00,每天凌晨一点到早上六点,会员可以免费观看电影,从而使网站即使在深夜也同样是人气十足。后台设定免费观看会员在线人数,如50人,当开放免费观看,在线人数超过50人,则提示需充值才能观看。 7.积分换点功能,免费会员只需要把推广网址发给网友,当该网友打开推广网址会提示“此次成功积分1分”或“此IP在24小内已经积分记录过,此次积分0分”,当会员的积分为36分,即可自己在会员中心进行积分换点,每36个积分换去1点影币。以往的都是需要被推广的网友注册会员且付款才可以有佣金,那样免费会员的希望太渺茫了,所以此次改为积分换点。 8.清晰的会员点播扣点提示,当计点会员观看或下载影片,会提示“此次点播扣除X点,在余下24小内重复点播不扣点”或“重复点播,此次点播不扣点,在余下XX分内点播不扣点”。这样让会员清晰地了解到自己的消费情况。 9.在线数据库管理,数据库碎片整理,数据清空,数据表删除等实用功能,其中最常用的数据库碎片整理(即数据库优化)功能,可以使得数据库以最小的占用空间,发挥极限功能。 10.智能删除垃圾信息功能,可设定多少天后自动删除系统点播记录和免费会员等信息,减少数据库垃圾信息。同

28,406

社区成员

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

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