P
pnljh
Unregistered / Unconfirmed
GUEST, unregistred user!
这个ASP程序主要是用户点击一个图片时,显示图片的大图,如下:
<%@ Language=VBScript %>
<% Option Explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%
dim fn
dim N
dim D
fn=request("ID")
select case fn
case "sj1"
N="暂缺"
D="暂缺"
case "sj2"
N="暂缺"
D="暂缺"
case "sj3"
N="暂缺"
D="暂缺"
case "sj4"
N="暂缺"
D="暂缺"
case "sj5"
N="暂缺"
D="暂缺"
case "sj6"
N="暂缺"
D="暂缺"
case "sj7"
N="暂缺"
D="暂缺"
case "sj8"
N="暂缺"
D="暂缺"
case "sj9"
N="暂缺"
D="暂缺"
case "sx1"
N="彩色荧光弯管"
D="方盒装/出口"
case "sx2"
N="黑色弯管"
D="暂缺"
case "sx3"
N="彩色直纹弯管"
D="袋装"
case "sx4"
N="彩色无纹弯管"
D="暂缺"
case "sx5"
N="彩色扭纹弯管"
D="暂缺"
case "sx6"
N="彩色斜口短管"
D="暂缺"
case "sx7"
N="彩色直纹弯管"
D="长管"
case "sx8"
N="彩色荧光弯管"
D="方盒装/出口"
case "sx9"
N="彩色无纹弯管"
D="挂袋装/出口"
case "sx10"
N="彩色扭纹弯管"
D="方盒装/出口"
case "sx11"
N="彩色荧光弯管"
D="挂盒装/出口"
end select
fn = mid(fn,2) & ".jpg"
%>
谁会的,改好了通知我,我另开一帖100分的
<%@ Language=VBScript %>
<% Option Explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%
dim fn
dim N
dim D
fn=request("ID")
select case fn
case "sj1"
N="暂缺"
D="暂缺"
case "sj2"
N="暂缺"
D="暂缺"
case "sj3"
N="暂缺"
D="暂缺"
case "sj4"
N="暂缺"
D="暂缺"
case "sj5"
N="暂缺"
D="暂缺"
case "sj6"
N="暂缺"
D="暂缺"
case "sj7"
N="暂缺"
D="暂缺"
case "sj8"
N="暂缺"
D="暂缺"
case "sj9"
N="暂缺"
D="暂缺"
case "sx1"
N="彩色荧光弯管"
D="方盒装/出口"
case "sx2"
N="黑色弯管"
D="暂缺"
case "sx3"
N="彩色直纹弯管"
D="袋装"
case "sx4"
N="彩色无纹弯管"
D="暂缺"
case "sx5"
N="彩色扭纹弯管"
D="暂缺"
case "sx6"
N="彩色斜口短管"
D="暂缺"
case "sx7"
N="彩色直纹弯管"
D="长管"
case "sx8"
N="彩色荧光弯管"
D="方盒装/出口"
case "sx9"
N="彩色无纹弯管"
D="挂袋装/出口"
case "sx10"
N="彩色扭纹弯管"
D="方盒装/出口"
case "sx11"
N="彩色荧光弯管"
D="挂盒装/出口"
end select
fn = mid(fn,2) & ".jpg"
%>
谁会的,改好了通知我,我另开一帖100分的