ASP生成一个按钮，其OnClick后面的代码为什么会出错？谢谢！在线等。

[woshihuzi]

ASP代码：
===================================
<%
timu="明明白白我的""薪"""
%>

<input type=button value=保存文件 onclick="if(!document.execCommand('SaveAs',false,'<%=timu%>.txt')) return false;">
===================================



在客户端浏览器生成的HTML代码：
===================================
<input type=button value=保存文件 onclick="if(!document.execCommand('SaveAs',false,'明明白白我的"薪".txt')) return false;">
===================================



错误信息：
===================================
出现了运行时间错误。
是否要进行调试？
行:2
错误信息：未结束的字符串常量
===================================

[wanghui0380]

<input type=button value=保存文件 onclick="if(!document.execCommand('SaveAs',false,'明明白白我的\"薪\".txt')) return false;">

[woshihuzi]

谢谢，可是它还是提示出错啊？

[AppleBBS]

<input type=button value=保存文件 onclick=""if(!document.execCommand('SaveAs',false,'<%=timu%>.txt')) return false;"">换成这个

[X_Saint]

<input type=button value=保存文件 onclick="<script language=JavaScript>if(!document.execCommand('SaveAs',false,'<%=timu%>.txt')) return false;</script>">

不知道行不行

[csecong]

将双引号换为单引号

[woshihuzi]

谢谢各位帮助，大家的建议，我都试了一遍，都有问题：
AppleBBS(Dicky)：采用你的建议，页面不出错了，可是点击按钮之后，也没有对话框弹出来了；
X_Saint：采用你的建议，页面提示出错；
csecong(到处闲逛D小鸟) ：采用你的建议，页面也会出错。

哪位能亲自试一下下面这段代码，然后发一个无误的上来？
谢谢！
================================================================
<%
timu="明明白白我的""薪"""
%>
<input type=button value=保存文件 onclick="if(!document.execCommand('SaveAs',false,'<%=timu%>.txt')) return false;">
================================================================

[hwq_bob]

将(timu="明明白白我的""薪""")改为(timu="明明白白我的薪")就OK了
因为文件名是不能包括有（"）字符的

[woshihuzi]

hwq_bob(bob) 老兄：

文件名当然不能有双引号，但是文件如果是一篇文章的话，文章的题目倒可能是含有双引号的。

如果单单解决这个保存网页的问题，那好办，我把双引号替换成别的符号就行了。

现在我想搞明白，在类似这样的问题中，双引号的问题如何解决：也就是说，下面的按钮：
<input type=button value=保存文件 onclick="if(!document.execCommand('SaveAs',false,'明明白白我的"薪".txt')) return false;">
如何解决出错的问题？

谢谢各位的大力帮忙！！

还请继续提供解答。

[woshihuzi]

顶，等待高手来帮忙解答。

[woshihuzi]

顶，请高手帮我。

[BanTai]

<%
timu="明明白白我的"&chr(34)&"薪"&chr(34)
%>
<input type=button value=保存文件 onclick="if(!document.execCommand('SaveAs',false,'<%=timu%>.txt')) return false;">

[jspadmin]

把所有单引号都改成双引号试试吧

[BanTai]

<%
timu="明明白白我的“薪”"
%>
<input type=button value=保存文件 onclick="if(!document.execCommand('SaveAs',false,'<%=timu%>.txt')) return false;">

更正一下，把薪两边的引号换成全角的字符就好了

刚才我那种方法不行。。。

你可以写个一半角替换全角的函数，替换一下

[BanTai]

给你个替换函数：

'作用：将字符串中的半角引号字符替换成全角字符
'Function By:Loster(OICQ:181306)
'如果转载，请不要删除以上信息，谢谢！
Function Rep(Str)
Dim i,Temp,Temp1(200),Temp2
Temp=False
Temp2=""
For i=1 To Len (Str)
Temp1(i)=Mid(Str,i,1)
Next
For i=1 To Len(Str)
If Temp1(i)=Chr(34) And Temp=False Then
Temp1(i)="“"
Temp=True
End If
If Temp1(i)=Chr(34) And Temp=True Then
Temp1(i)="”"
Temp=False
End If
Next
For i=1 To Len(Str)
Temp2=Temp2+Temp1(i)
Next
Rep=Trim(Temp2)
End Function

用你的代码测试过了：

timu="明明白白我的"&Chr(34)&"薪"&Chr(34)
timu=Rep(timu)
%>
<input type=button value=保存文件 onclick="if(!document.execCommand('SaveAs',false,'<%=timu%>.txt')) return false;">

没问题的

[woshihuzi]

我改进了一下,不但能处理双引号,还能处理单引号:

'作用：将字符串中的半角引号字符替换成全角字符
<%
'Function By:Loster(OICQ:181306)
'如果转载，请不要删除以上信息，谢谢！
Function Rep(Str)
Dim i,Temp,Temp1(200),Temp2

Temp=False
Temp2=""
For i=1 To Len (Str)
Temp1(i)=Mid(Str,i,1)
Next
For i=1 To Len(Str)
If Temp1(i)=Chr(34) And Temp=False Then
Temp1(i)="“"
Temp=True
End If
If Temp1(i)=Chr(34) And Temp=True Then
Temp1(i)="”"
Temp=False
End If
Next
For i=1 To Len(Str)
Temp2=Temp2+Temp1(i)
Next
str=Trim(Temp2)

Temp=False
Temp2=""
For i=1 To Len (Str)
Temp1(i)=Mid(Str,i,1)
Next
For i=1 To Len(Str)
If Temp1(i)="'" And Temp=False Then
Temp1(i)="‘"
Temp=True
End If
If Temp1(i)="'" And Temp=True Then
Temp1(i)="’"
Temp=False
End If
Next
For i=1 To Len(Str)
Temp2=Temp2+Temp1(i)
Next
Rep=Trim(Temp2)
End Function
%>

[woshihuzi]

问题解决,谢谢所有的革命同志所奉献出来的团结友爱精神.
揭帖给分.