急~~~~~~~~~~~求ubb码问题,大家快请看看
请问大家,在用ubb码做新闻发布,发图片时,这个实现是在后台中的ubb码,一点插入图片时,选择路径然后点确定,在文本框里就写出来了
。怎么才能使图片发布后,一点后能放大,就是做一个链接,谢谢各位了,N次鞠躬~~
randomize
ranNum=int(90000*rnd)+10000
filename=formPath&year(now)&month(now)&day(now)&ranNum&fileExt
' filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&file.FileName
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(FileName) ''保存文件
' response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" 成功!<br>"
if fileEXT=".gif" then
weizhi=FileName
elseif fileEXT=".jpg" then
weizhi=FileName
end if
iCount=iCount+1
end if
set file=nothing
next
set upload=nothing ''删除此对象
response.write "<br>"
dim image
if session("image")="" then
session("image")=weizhi
end if
%>
<%
dm = right(request("weizhi"),len(request("weizhi"))-instr(request("weizhi"),"/"))
dm="[IMG]"&dm&"[/IMG]"
%>
就是在dm中的,怎么加一个<a href>呀?求求大家了~~~
有人说加upload可以实现发表图片后,一点图片后,能够放大,请问怎么实现?
。怎么才能使图片发布后,一点后能放大,就是做一个链接,谢谢各位了,N次鞠躬~~randomize
ranNum=int(90000*rnd)+10000
filename=formPath&year(now)&month(now)&day(now)&ranNum&fileExt
' filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&file.FileName
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(FileName) ''保存文件
' response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" 成功!<br>"
if fileEXT=".gif" then
weizhi=FileName
elseif fileEXT=".jpg" then
weizhi=FileName
end if
iCount=iCount+1
end if
set file=nothing
next
set upload=nothing ''删除此对象
response.write "<br>"
dim image
if session("image")="" then
session("image")=weizhi
end if
%>
<%
dm = right(request("weizhi"),len(request("weizhi"))-instr(request("weizhi"),"/"))
dm="[IMG]"&dm&"[/IMG]"
%>
就是在dm中的,怎么加一个<a href>呀?求求大家了~~~
有人说加upload可以实现发表图片后,一点图片后,能够放大,请问怎么实现?
...全文
相关推荐
UBB语法UBB语法UBB语法
UBB语法.txtUBB语法.txtUBB语法.txtUBB语法.txt
UBB 代码.rar
这是UBB代码,希望您能用上,希望对你有用 欢迎下载 谢谢
ubb文件ubb文件ubb文件
ubb文件ubb文件ubb文件ubb文件ubb文件ubb文件ubb文件ubb文件ubb文件
ubb.rar_asp ubb_ubb
Discuz的编辑器代码 包含了镶嵌到asp程序中的asp代码
asp的ubb函数(推荐)
代码如下: function unHtml(content) unHtml=content if content <> “” then unHtml=replace(unHtml,”&”,”&”) unHtml=replace(unHtml,”<“,”<“) unHtml=replace(unHtml,”>”,”>”) unHtml=replace(unHtml,chr(34),”””) unHtml=replace(unHtml,chr(13),”<br>”) unHtml=replace(unHtml,chr(32),” “) ‘unHtml=ubb(unHtml) end if end


