初写,对c#不熟悉,谢谢
解决方案 »
- WebMethod 方法页面加载时自动运行,删除后运行出错。
- 我在edojs代码中用ImagePreview 上传图片,可预览,不可保存问题?
- 服务端实现注册“用户名”的验证,方法比较繁琐,请高手赐教简便的方法
- 菜鸟求一条SQL语句,急!!!!!!
- 如何设置gridview控件中日期的格式?
- 将C/S版的软件中某几个功能使用ASP.NET做到WEB上,关于权限的问题
- 在网页中对数据实时刷新
- [asp.net]方面紧急求助使用NOTESSQL3.02访问NFS数据库只能访问一次,在打开一次连接就出错?
- 关于页面背景图象居中的小问题!!!!
- 用repeater,如何动态输出?
- datagrid中点击"编辑"使用dropdownlist的问题!大家帮忙!
- 动态的样式如何实现?
server.htmldecode()
Dim result As String
Dim l As Integer If str = Nothing Then
Change = ""
Exit Function
End If
l = Len(str)
result = ""
Dim i
For i = 1 To l
Select Case Mid(str, i, 1)
Case "<"
result = result + "<"
Case ">"
result = result + ">"
Case "'"
result = result + "''" Case Chr(13)
result = result + "<br>"
Case Chr(34)
result = result + """
Case "&"
result = result + "&"
Case Chr(32)
'result=result+" "
If i + 1 <= l And i - 1 > 0 Then
If Mid(str, i + 1, 1) = Chr(32) Or Mid(str, i + 1, 1) = Chr(9) Or Mid(str, i - 1, 1) = Chr(32) Or Mid(str, i - 1, 1) = Chr(9) Then
result = result + " "
Else
result = result + " "
End If
Else
result = result + " "
End If
Case Chr(9)
result = result + " "
Case Else
result = result + Mid(str, i, 1)
End Select
'if i>=50 and i Mod lenth=0 and mid(str,i,1)<>"<br>" and mid(str,i,1)<>"<BR>" then result=result+"<BR>"
Next Return result
End Function