asp看图代码（asp绘图）

本篇文章给大家谈谈asp看图代码，以及asp绘图对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、ASP插入图片代码
• 2、ASP网页程序设计中10个非常有用的实例代码
• 3、asp上传图片并显示的代码
• 4、ASP 如何写一个调用图片代码
• 5、ASP帮忙 详细看看图和说明，
• 6、帮我看一下面一段ASP编程代码 谢谢了

ASP插入图片代码

做一个包含文件center.asp，然后放table，里面插入图片，然后放在你要放的页面用!--#include file='center.asp'--,你要显示图片的地方都放这个代码就可以了

ASP网页程序设计中10个非常有用的实例代码

ASP网页程序设计中10个非常有用的实例代码

ASP可以与Web数据库以及其它程序进行交互，是一种简单、方便的编程工具。下面由我带来ASP网页程序设计中10个非常有用的实例代码。

1.如何用Asp判断你的网站的.虚拟物理路径

答：使用Mappath方法： %= Server.MapPath("\")%

2.我如何知道使用者所用的浏览器

答：使用the Request object方法：

3.如何计算每天的平均反复访问人数

答：解决方法

% startdate=DateDiff("d",Now,"01/01/1990")

if strdate 0 then startdate=startdate*-1

avgvpd=Int((usercnt)/startdate) %

显示结果

% response.write(avgvpd) %

that is it.this page have been viewed since November 10,1998

4.如何显示随机图象

% dim p,ppic,dpic

ppic=12

randomize

p=Int((ppic*rnd)+1)

dpic="graphix/randompics/"p".gif"

%

显示

img src=" %=dpic% "

5.如何回到先前的页面

答： a href=" %=request.serverVariables("Http_REFERER")% " preivous page /a

或用图片如： img src="arrowback.gif" alt=" %=request.serverVariables("HTTP_REFERER")% "

6.如何确定对方的IP地址

答： %=Request.serverVariables("REMOTE_ADDR)%

7.如何链结到一副图片上

答： % @Languages=vbscript %

% response.expires=0

strimagename="graphix/errors/erroriamge.gif"

response.redirect(strimagename)

%

8.强迫输入密码对话框

答：把这句话放载页面的开头

% response.status="401 not Authorized"

response.end

%

9.如何传递变量从一页到另一页

答：用 HIDDEN 类型来传递变量

% for each item in request.form %

input namee=" %=item% " type="HIDDEN"

value=" %=server.HTMLEncode(Request.form(item)) % "

% next %

/form

10.怎样才能使得htm文件如同asp文件一样可以执行脚本代码

答：Internet Sevices Manager - 选择default web site - 右鼠键- 菜单属性-〉主目录- 应用程序设置(Application Setting)- 点击按钮 "配置"- app mapping - 点击按钮"Add" - executable browse选择 \WINNT\SYSTEM32\INETSRV\ASP.DLL EXTENSION 输入 htm method exclusions 输入PUT.DELETE 全部确定即可。但是值得注意的是这样对htm也要由asp.dll处理，效率将降低。

;

asp上传图片并显示的代码

html

head

meta http-equiv="Content-Type" content="text/html; charset=utf-8"

script language=javascript src="dialog.js"/script

script language="javascript"

document.write ("link href='../language/zh-cn.css' type='text/css' rel='stylesheet'");

document.write ("link href='../dialog/dialog.css' type='text/css' rel='stylesheet'");

var sAction = "INSERT";

var sTitle = "上传图片";

var oControl;

var oSeletion;

var sRangeType;

var sFromUrl = "http://";

var sAlt = "";

var sBorder = "0";

var sBorderColor = "";

var sFilter = "";

var sAlign = "";

var sWidth = "";

var sHeight = "";

var sVSpace = "";

var sHSpace = "";

var sSLTUrl = "";

var sCheckFlag = "file";

document.write("title上传图片/title");

function InitDocument(){

d_fromurl.value = sFromUrl;

}

function RadioClick(what){

if (what=="url"){

d_checkfromfile.checked=false;

d_fromurl.disabled=false;

d_checkfromurl.checked=true;

d_file.myform.uploadfile.disabled=true;

}else{

d_checkfromurl.checked=false;

d_file.myform.uploadfile.disabled=false;

d_checkfromfile.checked=true;

d_fromurl.disabled=true;

}

}

function UploadLoaded(){

RadioClick(sCheckFlag);

}

function UploadError(sErrDesc){

AbleItems();

RadioClick('file');

divProcessing.style.display="none";

try {

BaseAlert(d_file.myform.uploadfile,eval(sErrDesc));

}

catch(e){}

}

function UploadSaved(sPathFileName, sPathFileName_s){

d_fromurl.value = sPathFileName;

sSLTUrl = sPathFileName_s;

ReturnValue();

}

function ReturnValue(){

sFromUrl = d_fromurl.value;

if (sFromUrl==""){

window.returnValue = null;}

else {

window.returnValue = sFromUrl;

}

window.close();

}

function ok(){

if (d_checkfromurl.checked){

ReturnValue();

}else{

if (!d_file.CheckUploadForm()) return false;

DisableItems();

divProcessing.style.display="";

d_file.myform.submit();

}

}

function DisableItems(){

d_checkfromfile.disabled=true;

d_checkfromurl.disabled=true;

d_fromurl.disabled=true;

Ok.disabled=true;

}

function AbleItems(){

d_checkfromfile.disabled=false;

d_checkfromurl.disabled=false;

d_fromurl.disabled=false;

Ok.disabled=false;

}

function doPreview(){

var url;

if (d_checkfromurl.checked){

url = d_fromurl.value;

}else{

url = d_file.document.myform.uploadfile.value;

}

if (url){

imgPreview.src = url;

setPreview()

}else{

tdPreview.innerHTML = "";

}

}

function setPreview(){

var width = imgPreview.width;

var height = imgPreview.height;

if (imgPreview.src){

var boxWidth = tdPreview.offsetWidth;

var boxHeight = tdPreview.offsetHeight;

if ((widthboxWidth)||(heightboxHeight)){

var nw = boxWidth/width;

var nh = boxHeight/height;

if (nwnh){

height = boxHeight;

width = width*nh;

}else{

width = boxWidth;

height = height*nw;

}

}

tdPreview.innerHTML = "img border=0 src='"+imgPreview.src+"' width='"+width+"' height='"+height+"'";

tdPreviewSize.innerHTML = imgPreview.width+" * "+imgPreview.height;

}

}

/script

style type="text/css"

!--

body {

margin-left: 3px;

margin-top: 3px;

margin-right: 3px;

margin-bottom: 3px;

}

--

/style

body onLoad="InitDocument()"

table width="100%" border=0 align=center cellpadding=0 cellspacing=5

tr

tdtable border=0 cellpadding=0 cellspacing=0 align=center width="100%"

tr

tdfieldset

legendspan lang=DlgImgSource图片来源/span/legend

table border=0 cellpadding=5 cellspacing=0 width="100%"

tr

tdtable border=0 cellpadding=0 cellspacing=2 width="100%"

tr

td noWrap width="20%"input type=radio id="d_checkfromfile" value="1" onClick="RadioClick('file')"

label for=d_checkfromfilespan lang=DlgFromFile上传/span/label

:/td

td noWrap width="80%"Script Language=JavaScript

document.write("iframe id=d_file frameborder=0 src='asp/upload.asp?type=imagestyle=coolbluelanguage=zh-cn' width='100%' height='22' scrolling=no/iframe");

/Script

/td

/tr

tr

td noWrap width="20%"input type=radio id="d_checkfromurl" value="1" onClick="RadioClick('url')"

label for=d_checkfromurlspan lang=DlgFromUrl网络/span/label

:/td

td noWrap width="80%"input type=text id="d_fromurl" style="width:100%" size=30 value=""/td

/tr

/table/td

/tr

/table

/fieldset/td

/tr

tr

td height=5/td

/tr

tr

td noWrap align=right colspan=2input type=button id=btnPreivew lang=DlgImgPreview onClick="doPreview()" value="预览"

input type=submit value='确定' id=Ok onClick="ok()" lang=DlgBtnOK

input type=button value='取消' onClick="window.close();" lang=DlgBtnCancel/td

/tr

tr

tdfieldset style="height:100%"

legendspan lang=DlgImgPreview预览/span/legend

table border=0 cellpadding=0 cellspacing=5 width="100%" height="200" valign=top

tr

td bgcolor=#FFFFFF align=center valign=middle id=tdPreview height="100%"/td

/tr

tr

td align=center id=tdPreviewSize/td

/tr

/table

/fieldset/td

/tr

/table/td

/tr

/table

div id=divProcessing style="width:200px;height:30px;position:absolute;left:70px;top:100px;display:none"

table border=0 cellpadding=0 cellspacing=1 bgcolor="#000000" width="100%" height="100%"

tr

td bgcolor=#3A6EA5marquee align="middle" behavior="alternate" scrollamount="5"

font color=#FFFFFFspan lang=DlgComUploading/span/font

/marquee/td

/tr

/table

/div

img id=imgPreview src='' border=0 style="visibility:hidden" onload="setPreview()"

/body

/html 以上是其中的上传图片查看页面 你去网络上找一下eWebEditor编辑器，这个就可以解决你想要的效果。如有不明白可以直接再问！

ASP 如何写一个调用图片代码

如果图片地址一定是的形式,就用下面这种代码:

body

form id="form1" name="form1" method="post" action=""

input type="text" name="picId" /

input type="submit" name="Submit" value="提交" /

/form

%

picId=Request.Form("picId")

If picId"" Then

%

img src=";% =picId %.png" /

%

End If

%

/body

如果不能确定输入的数字和图片地址之间的关系,就用数组来保存各个图片的地址,例如:

body

form id="form1" name="form1" method="post" action=""

input type="text" name="picId" /

input type="submit" name="Submit" value="提交" /

/form

%

Dim PicArray(10)

PicArray(0)=""

PicArray(1)=""

PicArray(2)=""

picId=Request.Form("picId")

If picId"" Then

If picArray(picId)"" Then

%

img src=";% =picId %.png" /

%

Else

Response.write "没有对应该序号的图片"

End If

End If

%

/body

ASP帮忙 详细看看图和说明，

问题 贴的有点莫名其妙的..

你这东西,,只告诉你方法

Dim TempType1

TempType1=0

........ 略去你自己写的读取数据库的源码

TempType1=TempType1+rs("类别1") '对类别1的数据进行累加

...............再略去你自己写的关闭数据库的源码

'最后,在需要显示的地方

Response.Write TempType1

-----------------------------------------------------------------------------

再有就是,,楼主你自己试试,如果不知道数据库结构,不了解你目前做的项目,你能给写出能直接用的源码吗?

帮我看一下面一段ASP编程代码 谢谢了

%

sub html()

str=split(delid,",")

i=0

response.write ubound(str)

for i=0 to ubound(str)

ServerURL="http://"Request.ServerVariables("SERVER_NAME")"/wytx/ShowJs.asp?JsID="trim(str(i))""

Set Mail1 = Server.CreateObject("CDO.Message")

Mail1.CreateMHTMLBody ServerURL,31

AA=Mail1.HTMLBody

Set Mail1 = Nothing

set objfso = Server.CreateObject("Scripting.FileSystemObject")

set htmout = objfso.CreateTextFile(server.mappath("../html/"trim(str(i))".html"))

htmout.write replace(AA,"images/","../images/")

Next

conn.execute "update js_body set click=1 where ID in("delid")"

htmout.close

set htmout=nothing

set objfso=nothing

response.write "script language=JavaScript" chr(13) "alert('转静态成功成功！');" "window.location='list_info.asp'" "/script"

end sub

%

把修改数据库部分放到循环的外面，用where in()语句修改.

asp看图代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于asp绘图、asp看图代码的信息别忘了在本站进行查找喔。