189 8069 5689
设置网页编码，可以通过Web.Config 配置
创新互联专注为客户提供全方位的互联网综合服务，包含不限于成都网站制作、网站设计、襄州网络推广、重庆小程序开发、襄州网络营销、襄州企业策划、襄州品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联为所有大学生创业者提供襄州建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com
具体看你原来的编码设置了
也可以单独给form设置编码
'access 数据表表名：chexing
'结构id、chexing、chang、kuan、gao
Dim id() As Long
Dim chang() As Long
Dim kuan() As Long
Dim gao() As Long
Private Sub Combo1_Click()
Text1.Text = chang(Combo1.ListIndex)
Text2.Text = kuan(Combo1.ListIndex)
Text3.Text = gao(Combo1.ListIndex)
End Sub
Private Sub Form_Load()
ReDim id(0)
ReDim chang(0)
ReDim kuan(0)
ReDim gao(0)
Combo1.Clear
db = "d:\chexing.mdb"
connstr = "DBQ=" + db + ";DefaultDir=;DRIVER="
Set conn = CreateObject("ADODB.Connection")
conn.Open connstr
websql = "select * from chexing order by id"
Set rs = CreateObject("adodb.recordset")
rs.Open websql, conn, 1, 1
If rs.EOF And rs.BOF Then
Else
Do While Not rs.EOF
Combo1.AddItem rs("chexing")
id(UBound(id)) = rs("id")
ReDim Preserve id(UBound(id) + 1)
chang(UBound(chang)) = rs("chang")
ReDim Preserve chang(UBound(chang) + 1)
kuan(UBound(kuan)) = rs("kuan")
ReDim Preserve kuan(UBound(kuan) + 1)
gao(UBound(gao)) = rs("gao")
ReDim Preserve gao(UBound(gao) + 1)
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Set conn = Nothing
Combo1.ListIndex = 0
End Sub
一般出现乱码都是在js裏面跳转到哪个类然後得到这个参数的时候中文乱码,有一个非常实用的法,在js你可以这样写:varurl=..;url=encodeURI(url);url=encodeURI(url);//最重要的部分,两次调用encodeURI,就是编码两次然後在跳转到url所在的类,获取这个参数的方法如下:Stringname=request.getParameter("name");name=URLDecoder.decode(name,"utf8");这样就能解决乱码问题了,这种方法还没遇到过不能解决的乱码,
把Default改成UTF-8或unicode等，看你网页是什么格式的。删掉default会弹出属性或方法列表，里面有格式选择，就几种格式，多试几次就对了。
My.Computer.FileSystem.ReadAllText(strfilename,System.Text.Encoding.Default)
需要加参数，指定文件名编码System.Text.Encoding.Default这里指的是系统默认编码
在使用streamReader和streamWriter的时候使用编码参数。
比如：dim sw As New StreamRriter("H:\编程资料\1.txt"，System.Text.Encoding.Default)
dim sr As New StreamWeader("H:\编程资料\2.txt"，true,System.Text.Encoding.Default)