<SCRIPT LANGUAGE="vbScript">
<!--
str="用户名：xxx<BR>密码：ddd"
str1="d"
function restr(str, str1)
if instr(str, str1) = 0 then exit function
restr = left(str, instr(str, str1) - 1 + len(str1))
end function
document.write restr(str, str1)
//-->
</SCRIPT>
<%
str="用户名：xxx<BR>密码：ddd"
for i=0 to len(str)
response.write instr(left(str,i),"<BR>")
if instr(left(str,i),"<BR>")>=1 then
response.write left(str,i)
exit for
end if
next
%>
text = "点击图片可将其插入文章内容中"
start = instr(text,"图片")+2
text = left(text,start)
