b=replace(b,")","")
Response.Write "<center><table border=1 cellpadding =0 cellspacing =0 bordercolordark=#ffffff bordercolorlight=#cccc88><tr onclick="&b&".style.display=’’><td bgcolor=#cccc88>" & b & "</td></tr><tr id="&b&" style=display:none><td>"
Response.Write "<TEXTAREA rows=6 cols=70 style=’font-color:#ccc888;bgcolor:#ffffc’>"
Response.Write b
for each element in a.parameters
c=element
c="’" & replace(c,"’","’’") & "’"
d=d & vbcrlf & element.name &"="& c &","
next
d=left(d,len(d)-1)
Response.Write d
Response.Write "</TEXTAREA></td></tr></table></center>"
end sub
时间: 2024-09-24 17:17:15