[转帖]ASP编程常用的代码

翔羽 · 发表于 2006-2-24 09:26:51

用Asp隐藏文件路径，实现防盗链 <hr/>　　如果我们知道一个静态文件的实际路径如：http://www.xx.com/download/51windows.pdf，如果服务器没有作特别的限制设置，我们就可以毫不费力的把它下载下来！当网站提供51windows.pdf下载时，怎么样才能让下载者无法得到他的实际路径呢！本文就来介绍如何使用Asp来隐藏文件的实际下载路径。 　　我们在管理网站文件时，可以把扩展名一样的文件放在同一个目录下，起一个比较特别名字，例如放pdf文件目录为the_pdf_file_s，把下面代码另存为down.asp，他的网上路径为http://www.xx.com/down.asp，我们就可以用http://www.xx.com/down.asp?FileName=51windows.pdf来下载这个文件了，而且下载者无法看到这个文件实际下载路径的！在down.asp中我们还可以设置下载文件是否需要登陆，判断下载的来源页是否为外部网站，从而可以做到防止文件被盗链。示例代码：<% From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) Serv_url = Cstr(Request.ServerVariables("SERVER_NAME")) if mid(From_url,8,len(Serv_url)) <> Serv_url then response.write "非法链接！" '防止盗链 response.end end ifif Request.Cookies("Logined")="" then response.redirect "/login.asp" '需要登陆！ end if Function GetFileName(longname)'/folder1/folder2/file.asp=>file.asp while instr(longname,"/") longname = right(longname,len(longname)-1) wend GetFileName = longname End Function Dim Stream Dim Contents Dim FileName Dim TrueFileName Dim FileExt Const adTypeBinary = 1 FileName = Request.QueryString("FileName") if FileName = "" Then Response.Write "无效文件名！" Response.End End if FileExt = Mid(FileName, InStrRev(FileName, ".") + 1) Select Case UCase(FileExt) Case "ASP", "ASA", "ASPX", "ASAX", "MDB" Response.Write "非法操作！" Response.End End Select Response.Clear if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then Response.ContentType = "image/*" '对图像文件不出现下载对话框 else Response.ContentType = "application/ms-download" end if Response.AddHeader "content-disposition", "attachment; filename=" & GetFileName(Request.QueryString("FileName")) Set Stream = server.CreateObject("ADODB.Stream") Stream.Type = adTypeBinary Stream.Open if lcase(right(FileName,3))="pdf" then '设置pdf类型文件目录 TrueFileName = "/the_pdf_file_s/"&FileName end if if lcase(right(FileName,3))="doc" then '设置DOC类型文件目录 TrueFileName = "/my_D_O_C_file/"&FileName end if if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then TrueFileName = "/all_images_/"&FileName '设置图像文件目录 end if Stream.LoadFromFile Server.MapPath(TrueFileName) While Not Stream.EOS Response.BinaryWrite Stream.Read(1024 * 64) Wend Stream.Close Set Stream = Nothing Response.Flush Response.End %>

翔羽 · 发表于 2006-2-24 09:27:06

ASP进度条<hr/>前段时间研究了一个进度条，大致的思想是 在后台处理数据时，前台页面同时计数显示Proess Bar 使用了layer来显示 用法： 1。引用 <script language="javascript" src="ShowProcessBar.js"></script> 2。在提交Button或<A>或 加扩展属性 IsShowProcessBar="True" 文件ShowProcessBar.js如下AddProcessbar(); var bwidth=0; var swidth = document.all.waiting.clientWidth;function CheckIsProcessBar(obj) { if (obj.IsShowProcessBar=="True") { return false; } else { return true; } }function CheckClick(e) { if (e == 1) { if (bwidth<swidth*0.98){ bwidth += (swidth - bwidth) * 0.025; if (document.all)document.sbar.width = bwidth; else document.rating.clip.width = bwidth; setTimeout('CheckClick(1);',150);} } else { if(document.all) { if(document.all.waiting.style.visibility == 'visible') {document.all.waiting.style.visibility = 'hidden'; bwidth = 1;} whichIt = event.srcElement;while (CheckIsProcessBar(whichIt)) { whichIt = whichIt.parentElement; if (whichIt == null)return true; } document.all.waiting.style.pixelTop = (document.body.offsetHeight - document.all.waiting.clientHeight) / 2 + document.body.scrollTop; document.all.waiting.style.pixelLeft = (document.body.offsetWidth - document.all.waiting.clientWidth) / 2 + document.body.scrollLeft; document.all.waiting.style.visibility = 'visible'; if(!bwidth)CheckClick(1); bwidth = 1;}else {if(document.waiting.visibility == 'show') {document.waiting.visibility = 'hide'; document.rating.visibility = 'hide'; bwidth = 1;} if(e.target.href.toString() != '') { document.waiting.top = (window.innerHeight - document.waiting.clip.height) / 2 + self.pageYOffset; document.waiting.left = (window.innerWidth - document.waiting.clip.width) / 2 + self.pageXOffset; document.waiting.visibility = 'show'; document.rating.top = (window.innerHeight - document.waiting.clip.height) / 2 + self.pageYOffset+document.waiting.clip.height-10; document.rating.left = (window.innerWidth - document.waiting.clip.width) / 2 + self.pageXOffset; document.rating.visibility = 'show'; if(!bwidth)CheckClick(1); bwidth = 1; } } return true; } }function AddProcessbar() {var Str="" Str+= "<div id=waiting style=position:absolute;top:50px;left:100px;z-index:1;visibility:hidden >"; Str+= "<layer name=waiting visibility=visible zIndex=2 >" Str+= "<table border=2 cellspacing=1 cellpadding=0 bordercolorlight=#FFFFFF bordercolordark=#C0C0C0 bgcolor=#E0E0E0>" Str+= " <tr>" Str+= " <td bgcolor=#E0E0E0 height=30px width=300px align=center>" Str+= " 系統正在處理中..." Str+= " </td>" Str+= " </tr>" Str+= " <tr>" Str+= " <td bgcolor=#E0E0E0>" Str+= " <img width=1 height=10 name=sbar style=background-color:#6699cc>" Str+= " </td>" Str+= " </tr>" Str+= "</table> " Str+= "</layer>" Str+= "</div>" document.write(Str)if(document.all)document.onclick = CheckClick; } 测试文件TestShowBar.HTML<HTML> <HEAD> <script language="javascript" src="ShowProcessBar.js"></script> </HEAD> <BODY> <A href="error.asp" IsShowProcessBar="True">A Href</a> Span <form action="error.asp"> <input type=Submit value="Submit"> <input type=button value="normal button" IsShowProcessBar="True"> </form> &lt

IsShowProcessBar="True">AAAAAAAAAAAAA </BODY> </HTML>

翔羽 · 发表于 2006-2-24 09:27:31

ASP生成柱型体，折线图，饼图源代码<hr/><% function table2(total,table_x,table_y,all_width,all_height,line_no) '参数含义(传递的数组，横坐标，纵坐标，图表的宽度，图表的高度,折线条数) '纯ASP代码生成图表函数2——折线图 '作者：龚鸣(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com '本人非常愿意和ASP,VML,FLASH的爱好者在HTTP://topclouds.126.com进行交流和探讨 '版本1.0 最后修改日期 2003-8-11 '非常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。line_color="#69f" left_width=70 total_no=ubound(total,1)temp1=0 for i=1 to total_no for j=1 to line_no if temp1<total(i,j) then temp1=total(i,j) next next temp1=int(temp1) if temp1>9 then temp2=mid(cstr(temp1),2,1) if temp2>4 then temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+1)*10^(len(cstr(temp1))-1) else temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+0.5)*10^(len(cstr(temp1))-1) end if else if temp1>4 then temp3=10 else temp3=5 end if temp4=temp3 response.write "<v:rect id='_x0000_s1027' alt='' style='position:absolute;left:"&table_x+left_width&"px;top:"&table_y&"px;width:"&all_width&"px;height:"&all_height&"px;z-index:-1' fillcolor='#9cf' stroked='f'><v:fill rotate='t' angle='-45' focus='100%' type='gradient'/></v:rect>" for i=0 to all_height-1 step all_height/5 response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width+length&"px,"&table_y+all_height-length-i&"px' to='"&table_x+all_width+left_width&"px,"&table_y+all_height-length-i&"px' strokecolor='"&line_color&"'/>" response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+(left_width-15)&"px,"&table_y+i&"px' to='"&table_x+left_width&"px,"&table_y+i&"px'/>" response.write "" response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x&"px;top:"&table_y+i&"px;width:"&left_width&"px;height:18px;z-index:1'>" response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='right'>"&temp4&"</td></tr></table></v:textbox></v:shape>" temp4=temp4-temp3/5 next response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width&"px,"&table_y+all_height&"px' to='"&table_x+all_width+left_width&"px,"&table_y+all_height&"px'/>" response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width&"px,"&table_y&"px' to='"&table_x+left_width&"px,"&table_y+all_height&"px'/>"dim line_code redim line_code(line_no,5) for i=1 to line_no line_temp=split(total(0,i),",") line_code(i,1)=line_temp(0) line_code(i,2)=line_temp(1) line_code(i,3)=line_temp(2) line_code(i,4)=line_temp(3) line_code(i,5)=line_temp(4) next for j=1 to line_no for i=1 to total_no-1 x1=table_x+left_width+all_width*(i-1)/total_no y1=table_y+(temp3-total(i,j))*(all_height/temp3) x2=table_x+left_width+all_width*i/total_no y2=table_y+(temp3-total(i+1,j))*(all_height/temp3) response.write "<v:line id=""_x0000_s1025"" alt="""" style='position:absolute;left:0;text-align:left;top:0;z-index:1' from="""&x1&"px,"&y1&"px"" to="""&x2&"px,"&y2&"px"" coordsize=""21600,21600"" strokecolor="""&line_code(j,1)&""" strokeweight="""&line_code(j,2)&""">" select case line_code(j,3) case 1 case 2 response.write "<v:stroke dashstyle='1 1'/>" case 3 response.write "<v:stroke dashstyle='dash'/>" case 4 response.write "<v:stroke dashstyle='dashDot'/>" case 5 response.write "<v:stroke dashstyle='longDash'/>" case 6 response.write "<v:stroke dashstyle='longDashDot'/>" case 7 response.write "<v:stroke dashstyle='longDashDotDot'/>" case else end select response.write "</v:line>"&CHR(13) select case line_code(j,4) case 1 case 2 response.write "<v:rect id=""_x0000_s1027"" style='position:absolute;left:"&x1-2&"px;top:"&y1-2&"px;width:4px;height:4px; z-index:2' fillcolor="""&line_code(j,1)&""" strokecolor="""&line_code(j,1)&"""/>"&CHR(13) case 3 response.write "<v

val id=""_x0000_s1026"" style='position:absolute;left:"&x1-2&"px;top:"&y1-2&"px;width:4px;height:4px;z-index:1' fillcolor="""&line_code(j,1)&""" strokecolor="""&line_code(j,1)&"""/>"&CHR(13) end select next select case line_code(j,4) case 1 case 2 response.write "<v:rect id=""_x0000_s1027"" style='position:absolute;left:"&x2-2&"px;top:"&y2-2&"px;width:4px;height:4px; z-index:2' fillcolor="""&line_code(j,1)&""" strokecolor="""&line_code(j,1)&"""/>"&CHR(13) case 3 response.write "<v

val id=""_x0000_s1026"" style='position:absolute;left:"&x2-2&"px;top:"&y2-2&"px;width:4px;height:4px;z-index:1' fillcolor="""&line_code(j,1)&""" strokecolor="""&line_code(j,1)&"""/>"&CHR(13) end select nextfor i=1 to total_no response.write "<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width+all_width*(i-1)/total_no&"px,"&table_y+all_height&"px' to='"&table_x+left_width+all_width*(i-1)/total_no&"px,"&table_y+all_height+15&"px'/>" response.write "" response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+left_width+all_width*(i-1)/total_no&"px;top:"&table_y+all_height&"px;width:"&all_width/total_no&"px;height:18px;z-index:1'>" response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'>"&total(i,0)&"</td></tr></table></v:textbox></v:shape>" nexttb_height=30 response.write "<v:rect id='_x0000_s1025' style='position:absolute;left:"&table_x+all_width+20&"px;top:"&table_y&"px;width:100px;height:"&line_no*tb_height+20&"px;z-index:1'/>" for i=1 to line_no response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+all_width+25&"px;top:"&table_y+10+(i-1)*tb_height&"px;width:60px;height:"&tb_height&"px;z-index:1'>" response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'>"&line_code(i,5)&"</td></tr></table></v:textbox></v:shape>" response.write "<v:rect id='_x0000_s1040' alt='' style='position:absolute;left:"&table_x+all_width+80&"px;top:"&table_y+10+(i-1)*tb_height+4&"px;width:30px;height:20px;z-index:1' fillcolor='"&line_code(i,1)&"'><v:fill color2='"&line_code(i,1)&"' rotate='t' focus='100%' type='gradient'/></v:rect>" nextend function %><% function table1(total,table_x,table_y,thickness,table_width,all_width,all_height,table_type) '参数含义(传递的数组，横坐标，纵坐标，柱子的厚度，柱子的宽度，图表的宽度，图表的高度,图表的类型) '纯ASP代码生成图表函数1——柱状图 '作者：龚鸣(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com '本人非常愿意和ASP,VML,FLASH的爱好者在HTTP://topclouds.126.com进行交流和探讨 '版本2.0 最后修改日期 2003-7-22 '非常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。 dim tb_color(7,2) tb_color(1,1)="#d1ffd1" tb_color(2,1)="#ffbbbb" tb_color(3,1)="#ffe3bb" tb_color(4,1)="#cff4f3" tb_color(5,1)="#d9d9e5" tb_color(6,1)="#ffc7ab" tb_color(7,1)="#ecffb7"tb_color(1,2)="#00ff00" tb_color(2,2)="#ff0000" tb_color(3,2)="#ff9900" tb_color(4,2)="#33cccc" tb_color(5,2)="#666699" tb_color(6,2)="#993300" tb_color(7,2)="#99cc00"line_color="#69f" left_width=70 length=thickness/2 total_no=ubound(total,1)temp1=0 for i=1 to total_no if temp1<total(i,1) then temp1=total(i,1) next temp1=int(temp1) if temp1>9 then temp2=mid(cstr(temp1),2,1) if temp2>4 then temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+1)*10^(len(cstr(temp1))-1) else temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+0.5)*10^(len(cstr(temp1))-1) end if else if temp1>4 then temp3=10 else temp3=5 end if temp4=temp3 response.write "" response.write "" response.write ""select case table_type case "A" table_space=(all_width-table_width*total_no)/total_no response.write "" for i=0 to all_height-1 step all_height/5 response.write "" response.write "" response.write "" response.write "" temp4=temp4-temp3/5

翔羽 · 发表于 2006-2-24 09:27:49

next for i=1 to total_no temp_space=table_x+left_width+table_space/2+table_space*(i-1)+table_width*(i-1) response.write "<v:rect id='_x0000_s1025' alt='' style='position:absolute;left:" response.write temp_space response.write "px;top:" response.write table_y+all_height*(1-(total(i,1)/temp3)) response.write "px;width:"&table_width&"px;height:"&all_height*(total(i,1)/temp3)&"px;z-index:1' fillcolor='"&tb_color(i,2)&"'>" response.write "<v:fill color2='"&tb_color(i,1)&"' rotate='t' type='gradient'/>" response.write "<o:extrusion v:ext='view' backdepth='"&thickness&"pt' color='"&tb_color(i,2)&"' on='t'/>" response.write "</v:rect>" response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&temp_space&"px;top:"&table_y+all_height*(1-(total(i,1)/temp3))-table_width&"px;width:"&table_space+15&"px;height:18px;z-index:1'>" response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='center'>"&total(i,1)&"</td></tr></table></v:textbox></v:shape>"response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&temp_space-table_space/2&"px;top:"&table_y+all_height+1&"px;width:"&table_space+table_width&"px;height:18px;z-index:1'>" response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='center'>"&total(i,2)&"</td></tr></table></v:textbox></v:shape>" next Case "B" table_space=(all_height-table_width*total_no)/total_no response.write "" for i=0 to all_width-1 step all_width/5 response.write "" response.write "" response.write "" response.write "" temp4=temp4-temp3/5 nextfor i=1 to total_no temp_space=table_space/2+table_space*(i-1)+table_width*(i-1) response.write "<v:rect id='_x0000_s1025' alt='' style='position:absolute;left:" response.write table_x+left_width response.write "px;top:" response.write table_y+temp_space response.write "px;width:"&all_width*(total(i,1)/temp3)&"px;height:"&table_width&"px;z-index:1' fillcolor='"&tb_color(i,2)&"'>" response.write "<v:fill color2='"&tb_color(i,1)&"' rotate='t' angle='-90' focus='100%' type='gradient'/>" response.write "<o:extrusion v:ext='view' backdepth='"&thickness&"pt' color='"&tb_color(i,2)&"' on='t'/>" response.write "</v:rect>" response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+left_width+all_width*(total(i,1)/temp3)+thickness/2&"px;top:"&table_y+temp_space&"px;width:"&table_space+15&"px;height:18px;z-index:1'>" response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='center'>"&total(i,1)&"</td></tr></table></v:textbox></v:shape>"response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x&"px;top:"&table_y+temp_space&"px;width:"&left_width&"px;height:18px;z-index:1'>" response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='right'>"&total(i,2)&"</td></tr></table></v:textbox></v:shape>" next case else end selectend function %><% function table3(total,table_x,table_y,all_width,all_height,table_type) '参数含义(传递的数组，横坐标，纵坐标，图表的宽度，图表的高度,图表的类型) '纯ASP代码生成图表函数3——饼图 '作者：龚鸣(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com '本人非常愿意和ASP,VML,FLASH的爱好者在HTTP://topclouds.126.com进行交流和探讨 '版本1.0 最后修改日期 2003-8-11 '非常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。 tb_height=30dim tb_color(7,2) tb_color(1,1)="#d1ffd1" tb_color(2,1)="#ffbbbb" tb_color(3,1)="#ffe3bb" tb_color(4,1)="#cff4f3" tb_color(5,1)="#d9d9e5" tb_color(6,1)="#ffc7ab" tb_color(7,1)="#ecffb7"tb_color(1,2)="#00ff00" tb_color(2,2)="#ff0000" tb_color(3,2)="#ff9900" tb_color(4,2)="#33cccc" tb_color(5,2)="#666699" tb_color(6,2)="#993300" tb_color(7,2)="#99cc00"total_no=ubound(total,1) totalpie=0 for i=1 to total_no totalpie=totalpie+total(i,1) next

reAngle=0 for i=1 to total_no response.write "<v:shape id='_x0000_s1025' alt='' style='position:absolute;left:"&table_x&"px;top:"&table_y&"px;width:"&all_width&"px;height:"&all_height&"px;z-index:1' coordsize='1500,1400' o:spt='100' adj='0,,0' path='m750,700ae750,700,750,700,"&int(23592960*PreAngle)&","&int(23592960*total(i,1)/totalpie)&"xe' fillcolor='"&tb_color(i,1)&"' strokecolor='#FFFFFF'><v:fill color2='"&tb_color(i,2)&"' rotate='t' focus='100%' type='gradient'/><v:stroke joinstyle='round'/><v:formulas/><v:path o:connecttype='segments'/></v:shape>"&CHr(13)

reAngle=PreAngle+total(i,1)/totalpie nextif table_type="A" then response.write "<v:rect id='_x0000_s1025' style='position:absolute;left:"&table_x+all_width+20&"px;top:"&table_y+20&"px;width:100px;height:"&total_no*tb_height+20&"px;z-index:1'/>" for i=1 to total_no response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+all_width+25&"px;top:"&table_y+30+(i-1)*tb_height&"px;width:60px;height:"&tb_height&"px;z-index:1'>" response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'>"&total(i,0)&"</td></tr></table></v:textbox></v:shape>" response.write "<v:rect id='_x0000_s1040' alt='' style='position:absolute;left:"&table_x+all_width+80&"px;top:"&table_y+30+(i-1)*tb_height+3&"px;width:30px;height:20px;z-index:1' fillcolor='"&tb_color(i,1)&"'><v:fill color2='"&tb_color(i,2)&"' rotate='t' focus='100%' type='gradient'/></v:rect>" '显示比例数 ' response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+all_width+110&"px;top:"&table_y+30+(i-1)*tb_height&"px;width:60px;height:"&tb_height&"px;z-index:1'>" ' response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'>"&formatnumber(total(i,1)*100/totalpie,2,-1)&"%</td></tr></table></v:textbox></v:shape>" next end if

翔羽 · 发表于 2006-2-24 09:28:02

if table_type="B" then pie=3.14159265358979 TempPie=0 for i=1 to total_no TempAngle=pie*2*(total(i,1)/(TotalPie*2)+TempPie) x1=table_x+all_width/2+cos(TempAngle)*all_width*3/8 y1=table_y+all_height/2-sin(TempAngle)*all_height*3/8 x2=table_x+all_width/2+cos(TempAngle)*all_width*3/4 y2=table_y+all_height/2-sin(TempAngle)*all_height*3/4 if x2>table_x+all_width/2 then x3=x2+20 x4=x3 else x3=x2-20 x4=x3-100 end if response.write "<v

val id='_x0000_s1027' style='position:absolute;left:"&x1-2&"px;top:"&y1-2&"px;width:4px;height:4px; z-index:2' fillcolor='#111111' strokecolor='#111111'/>"&CHR(13) response.write "<v:line id='_x0000_s1025' alt='' style='position:absolute;left:0;text-align:left;top:0;z-index:1' from='"&x1&"px,"&y1&"px' to='"&x2&"px,"&y2&"px' coordsize='21600,21600' strokecolor='#111111' strokeweight='1px'></v:line>" response.write "<v:line id='_x0000_s1025' alt='' style='position:absolute;left:0;text-align:left;top:0;z-index:1' from='"&x2&"px,"&y2&"px' to='"&x3&"px,"&y2&"px' coordsize='21600,21600' strokecolor='#111111' strokeweight='1px'></v:line>" response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&x4&"px;top:"&y2-10&"px;width:100px;height:20px;z-index:1'>" response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'>"&total(i,0)&" "&formatnumber(total(i,1)*100/totalpie,2,-1)&"%</td></tr></table></v:textbox></v:shape>" TempPie=TempPie+total(i,1)/TotalPie next end ifend function %>纯ASP代码生成图表函数1——柱状图调用示例 <% dim total(7,2) total(1,1)=200 total(2,1)=800 total(3,1)=1000 total(4,1)=600 total(5,1)=1222 total(6,1)=3213 total(7,1)=8total(1,2)="中国经营报" total(2,2)="招聘网" total(3,2)="51Job" total(4,2)="新民晚报" total(5,2)="新闻晚报" total(6,2)="南方周末" total(7,2)="羊城晚报"total_no=7 %> <html xmlns:v="urn:schemas-microsoft-com:vml" xmlns

="urn:schemas-microsoft-com

ffice

ffice">  <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title></title> <style> TD { FONT-SIZE: 9pt} </style></head> <body topmargin=5 leftmargin=0 scroll=AUTO> <%call table1(total,200,20,20,30,400,200,"A")%> <%call table1(total,200,320,20,20,400,250,"B")%> </body> </html>

翔羽 · 发表于 2006-2-25 12:36:08

asp实现批量录入数据的实现<hr/>批量录入在数据库的应用中比较广泛的，关于批量录入的方法也有好多种。 下面我就结合我实际中的应用，谈一下儿我是怎么实现的。 主要用到的是form的集合的概念，通过循环取的所有的集合内数据。 考虑到大家看着方便，我把它集成到了一个页面。 下面是具体的代码： batchInput.asp <% '##################################### 'File Function:批量录入数据 'Author:Myhon 'Date:2003-8-19 '#####################################'向数据库写入数据 SUB writeData() dim recCnt,i dim fieldName1,fieldName2,fieldName3 dim conn dim sqlStr,connStr connStr="

rovider=SQLOLEDB.1;Initial Catalog=myDatabase;Data Source=myhon;User Id=sa

ASSWORD=" set conn=Server.CreateObject("ADODB.Connection") conn.open connStr '建立数据库连接recCnt=request.form("stu_num").count '取得共有多少条记录 '批量录入数据 for i=1 to recCnt fieldName1=trim(request.form("fieldName1")(i)) fieldName2=trim(request.form("fieldName2")(i)) fieldName3=trim(request.form("fieldName3")(i)) sqlStr="insert into myTable(fieldName1,fieldName2,fieldName3) values('" sqlStr=sqlStr & fieldName1 & "','" sqlStr=sqlStr & fieldName2 & "','" sqlStr=sqlStr & fieldName3 & "')" 'response.write sqlStr conn.execute(sqlStr) next END SUB'显示成批录入的界面 SUB InputData() dim recCnt,i %> <form name="bathInputData" action="" method="post"> <% recCnt=cint(request.form("recCnt")) for i=1 to recCnt %> <input type="text" name="fieldName1"> <input type="text" name="fieldName2"> <input type="text" name="fieldName3"> <% next %> <input type="submit" name="action" value="提交"> </form> <% END SUB'指定要批量录入多少条记录 SUB assignHowMuch() %> <form name="form1" action="" method="post"> 您要录入的记录的条数：<input type="text" name="recCnt"> <input type="submit" name="action" value="下一步>>"> </form> <% END SUBif request.form("action")="下一步>>" then Call InputData() '显示成批录入界面 elseif request.form("action")="提交" then Call writeData() '向数据库批量写入数据 else Call assignHowMuch() '显示指定录入多少条记录的界面 end if %>

翔羽 · 发表于 2006-2-25 12:36:53

在SQL Server中保存和输出图片<hr/>介绍 有时候我们需要保存一些binary data进数据库。SQL Server提供一个叫做image的特殊数据类型供我们保存binary data。Binary data可以是图片、文档等。在这篇文章中我们将看到如何在SQL Server中保存和输出图片。 建表 为了试验这个例子你需要一个含有数据的table(你可以在现在的库中创建它，也可以创建一个新的数据库)，下面是它的结构： Column Name Datatype

urpose ID Integer identity column Primary key IMGTITLE Varchar(50) Stores some user friendly title to identity the image IMGTYPE Varchar(50) Stores image content type. This will be same as recognized content types of ASP.NET IMGDATA Image Stores actual image or binary data. 保存images进SQL Server数据库 为了保存图片到table你首先得从客户端上传它们到你的web服务器。你可以创建一个web form，用TextBox得到图片的标题，用HTML File Server Control得到图片文件。确信你设定了Form的encType属性为multipart/form-data。 Stream imgdatastream = File1.PostedFile.InputStream; int imgdatalen = File1.PostedFile.ContentLength; string imgtype = File1.PostedFile.ContentType; string imgtitle = TextBox1.Text; byte[] imgdata = new byte[imgdatalen]; int n = imgdatastream.Read(imgdata,0,imgdatalen); string connstr= ((NameValueCollection)Context.GetConfig ("appSettings"))["connstr"]; SqlConnection connection = new SqlConnection(connstr); SqlCommand command = new SqlCommand ("INSERT INTO ImageStore(imgtitle,imgtype,imgdata) VALUES ( @imgtitle, @imgtype,@imgdata )", connection ); SqlParameter paramTitle = new SqlParameter ("@imgtitle", SqlDbType.VarChar,50 ); paramTitle.Value = imgtitle; command.Parameters.Add( paramTitle); SqlParameter paramData = new SqlParameter ( "@imgdata", SqlDbType.Image ); paramData.Value = imgdata; command.Parameters.Add( paramData ); SqlParameter paramType = new SqlParameter ( "@imgtype", SqlDbType.VarChar,50 ); paramType.Value = imgtype; command.Parameters.Add( paramType ); connection.Open(); int numRowsAffected = command.ExecuteNonQuery(); connection.Close(); 从数据库中输出图片 现在让我们从数据库中取出我们刚刚保存的图片，在这儿，我们将直接将图片输出至浏览器。你也可以将它保存为一个文件或做任何你想做的。 private void Page_Load(object sender, System.EventArgs e) { string imgid =Request.QueryString["imgid"]; string connstr=((NameValueCollection) Context.GetConfig("appSettings"))["connstr"]; string sql="SELECT imgdata, imgtype FROM ImageStore WHERE id = " + imgid; SqlConnection connection = new SqlConnection(connstr); SqlCommand command = new SqlCommand(sql, connection); connection.Open(); SqlDataReader dr = command.ExecuteReader(); if(dr.Read()) { Response.ContentType = dr["imgtype"].ToString(); Response.BinaryWrite( (byte[]) dr["imgdata"] ); } connection.Close(); } 在上面的代码中我们使用了一个已经打开的数据库，通过datareader选择images。接着用Response.BinaryWrite代替Response.Write来显示image文件。

翔羽 · 发表于 2006-2-25 12:37:28

asp中对ip进行过滤限制函数<hr/><% '获取访问者的地址 ip=Request.ServerVariables("REMOTE_ADDR") '允许的IP地址段为10.0.0.0～10.68.63.255 allowip1="10.0.0.0" allowip2="10.68.10.71"response.write checkip(ip,allowip1,allowip2) function checkip(ip,allowip1,allowip2) dim check(4) checkip=false ipstr=split(ip,".") allow1=split(allowip1,".") allow2=split(allowip2,".") if cint(allow1(0))>cint(allow2(0)) then '判断IP地址段是否合法 response.write "IP地址段出错！" exit function end if for i=0 to ubound(ipstr) if cint(allow1(i))<cint(allow2(i)) then if cint(allow1(i))=cint(ipstr(i)) then check(i)=true checkip=true exit for else if cint(ipstr(i))<cint(allow2(i)) then check(i)=true checkip=true exit for else if cint(ipstr(i))>cint(allow2(i)) then check(i)=false checkip=false exit for else check(i)=true checkip=true end if end if end if else if cint(allow1(i))>cint(ipstr(i)) or cint(allow1(i))<cint(ipstr(i)) then check(i)=false checkip=false if i<>ubound(ipstr) then exit for end if else check(i)=true end if end if nextif (check(0)=true and check(1)=true and check(2)=true and check(3)=false) and (cint(allow2(2))>cint(ipstr(2))) then checkip=true end ifend function %>

翔羽 · 发表于 2006-2-25 12:37:49

不用Golobal和session实现在线人数统计 <hr/>实现在线人数统计最常用的方法就是golobal.asa结合session做,但这种方法有两个不利: 1、每个session要占用12k的服务器内存空间，为了人数+1就要付出12k内存的代价。 2、golobal.asa要放在网站的根目录下才会起作用，而且根目录只能有一个golobal，矛盾突出。 为此，有一种使用cookie和application在asp文件中实现在线统计的方法，欢迎批评指正，共同探讨： 第一步:做一个框架,包含隐藏框架(count.asp) 第二步:编写count.asp <% user=request.cookies("21bbsusername") totaluser=application("user") if instr(totaluser,user)=0 then application.lock application("user")=totaluser&";"&user application.unlock end if %> <html> <head> <meta http-equiv="refresh" content="2"> </head> <body> </body> </html> 第三步:显示 user=split(application("user"),";") num=ubound(user) response.write num

翔羽 · 发表于 2006-2-25 12:38:12

Flash和Asp数据库的结合应用<hr/>　　在看这个例子之前，先讲讲Flash和Asp结合的原理，其实懂一点ASP的朋友都知道ASP是基于HTML的. 　　其实Flash和Asp接口的原理和纯ASP文件之间交互的原理是一样的,简单地说就是页面之间的数据交换。了解了这一点之后，我们来看看下面这个简单的例子： 　　这个例子是把ACCESS内的数据读出来，并在Flash内显示出来。这个例子一共有三个主要文件，一个是ACCESS的数据库文件employees.mdb，它有一个employees表，有四个字段：ID，Namelast，Lastname，Position。 　　现在我们就来看看这个例子的制作过程吧。第一个影帧，ACTION是stop，有一个供用户输入查询字段的文本框：strSearch，一个按钮：submit，它的ACTION是 　　于 (放开) 　　　跳至并播放 (2) 　　退出于 　　第二个影帧的ACTION是：载入参数 ("employee.asp", 0, vars=GET) 　　这个ACTION的作用是通过ASP文件把ACCESS数据库内符合用户查询条件的数据读出来。 　　第三个影帧的ACTION是： 　　如果(NameFirst ne "") 　　　跳至并停止 (9) 　　退出如果 　　意思是如果NameFirst不等于空值的话，就跳到第九个影帧；否则将会执行下去（即播放下一个影帧）。 　　第4-7个影帧都没有ACTION哦。 　　第八个影帧的ACTION是： 　　跳至并播放 (3) 　　回过头来再看看第三个影帧看看，呵呵，懂了吧？ 　　如果没有符合的数据的话，就一直读到有为止；读到了就跳到第九个影帧哦。 　　那么再来看看第九个影帧： 　　一共有三个文本框：NameFirst，NameLast，Position 　　数据库内符合查询条件的数据将会显示在他们之中哦！ 　　还有一个按钮：Do It Again 　　它的ACTION是： 　　于 (放开) 　　　　跳至并停止 (1) 　　退出于 　　好了，再来看看employee.asp这个文件吧： Dim oRS, oConn ’定义两个变量 Set oRS = Server.CreateObject("ADODB.Recordset"） ’定义oRS为RECORDSET对象 Set oConn = Server.CreateObject("ADODB.Connection") ’定义oConn为CONNECTION对象 oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("employees.mdb") oRS.Open "SELECT * FROM Employees", oConn, 2, 3 ’嘿嘿，这两句不用说了吧？打开数据库哦 oRS.Find "NameLast = ’" & UCase(Request.QueryString("strSearch")) & "’" ’找到符合条件的数据

帐号		自动登录	找回密码
密码			马上注册



软考应考经验分享交流	IT项目管理师电子资料	系分·项管·信工·必读	会声会影下载
IT项管考前一个月复习安排	分享历届IT项管真题答案	历年软考分数线大全	IT项目管理新手看什么书？
清华、电工教材比较	国家信息技术紧缺人才	哪些软考证书可以挂靠?	项目管理发展史
信息系统项目管理师挂靠一年多少钱？	信息系统项目管理师考试费用及收费依据（汇总）

[转帖]ASP编程常用的代码

浏览过的版块