if request("Act")="Save" then
Flash=request("Flash")
IfFlash=request("IfFlash")
Pic1=request("Pic1")
Pic2=request("Pic2")
Pic3=request("Pic3")
Pic4=request("Pic4")
Link1=request("Link1")
Link2=request("Link2")
Link3=request("Link3")
Link4=request("Link4")
IfBr1=request("IfBr1")
IfBr2=request("IfBr2")
IfBr3=request("IfBr3")
BigId=request("BigId")
Piccount=request("Piccount")
Textcount=request("Textcount")
Text1=request("Text1")
TLink1=request("TLink1")
Text2=request("Text2")
TLink2=request("TLink2")
Text3=request("Text3")
TLink3=request("TLink3")
if Pic1"" then
set rs=server.createobject("adodb.recordset")
sql = "select * from firstPic where 11"
rs.Open sql,conn,1,3
rs.addnew
rs("Flash")=Flash
rs("IfFlash")=IfFlash
rs("Pic1")=Pic1
rs("Pic2")=Pic2
rs("Pic3")=Pic3
rs("Pic4")=Pic4
rs("Link1")=Link1
rs("Link2")=Link2
rs("Link3")=Link3
rs("Link4")=Link4
rs("IfBr1")=IfBr1
rs("IfBr2")=IfBr2
rs("IfBr3")=IfBr3
rs("BigId")=BigId
rs("Piccount")=Piccount
rs("Textcount")=Textcount
rs("Text1")=Text1
rs("TLink1")=TLink1
rs("Text2")=Text2
rs("TLink2")=TLink2
rs("Text3")=Text3
rs("TLink3")=TLink3
rs.update
rs.close
end if
Response.redirect"Default.asp?page="&request("page")
end if
%>
复制组图
function Validnumber(item){
eText=item;
elen=item.length;
for (i=0;i aa=eText.charAt(i)
if (aa'9') return false;
}
return true;
}
function judge(a,b)
dim res
if instr(a,b)>0 then
res ="checked"
end if
judge = res
end function
function judges(a,b)
dim ress
if (a=b) then
ress ="selected"
end if
judges = ress
end function
id=request("id")
set rs=Conn.execute("select * from firstPic where id="&id&"")
%>
复制组图
位置:
首页
sql = "select * from BigClass order by BigId"
rs2.open sql,conn,0,1
do while not rs2.eof%>
loop
rs2.close%>
| 启用FSASH:
是
否(启用后图片及文字无效) | 图片数量:
Piccount=trim(Piccount)%>
一个图片
两个图片
三个图片
四个图片
| 文字数量:
tcount=trim(tcount)%>
一个链接
两个链接
三个链接
Flash:
图片1:
value="">
换行
链接：
图片2:
value="">
换行
链接：
图片3:
value="">
换行
链接：
图片4:
链接：
文字1：
文字连接1：
文字2：
文字连接2：
文字3：
文字连接3：
set rs=nothing %>
