<%
dim conn
dim connstr
dim db
db="main.mdb" '数据库文件位置
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
function del1(s)
del1=left(s,len(s)-1)
end function
Function StreamToStr(sStream)
dim dr
Set dr=Server.CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=2
dr.Open
dr.Charset="GB2312"
dr.Position=0
dr.WriteText sStream
dr.Position=0
dr.Charset="UTF-8"
StreamToStr=dr.ReadText
StreamToStr= left(StreamToStr,len(StreamToStr)-1)
dr.Close
Set dr=Nothing
End Function
%>
请帮忙用ASP.NET写出来,本人没学过ASP对这个代码完全不懂,请大哥帮忙.
------解决方案--------------------------------------------------------
del1(s)为去字符串最后一个字符,对应.net为ss.Substring(1, ss.Length - 1);
StreamToStr是将流二进制流转换成编码为GB2312的字符串,这可与ASP.NET FileStream对象的一方法来解决