Asp法兵_百度空间

文章列表

您正在查看 "Asp" 分类下的文章

2008-01-21 14:49

function exctoacc(excpath,mdbpath)
     Dim excConn,Coon
     Dim excStrConn,strConn
     Dim excrs,rs
     Dim excSql
     Set excconn=Server.CreateObject("ADODB.Connection")
     Set excrs = Server.CreateObject("ADODB.Recordset")
     excStrConn="Driver={M

阅读全文>>

类别：Asp|评论(0) |浏览(41)

asp取得汉字字符串的首字母串

2008-01-01 17:05

'//获取汉字的首字母 ,ANSII编码
function getpychar(char)
dim tmpp:tmpp=65536+asc(char)
if(tmpp>=45217 and tmpp<=45252) then
getpychar= "A"
elseif(tmpp>=45253 and tmpp<=45760) then
getpychar= "B"
elseif(tmpp>=45761 and tmpp<=46317) then
getpychar= "C"
elseif(tmpp>=46318 and tmpp<=46825) then
getpychar= "D"
elseif(tmpp>=46826 and tmpp<=47009) then
getpychar=

阅读全文>>

类别：Asp|评论(0) |浏览(135)

文章分类

默认分类(54)

随笔(15)

感情(1)

技术(10)

Asp(2)

Php(71)

Linux(15)

c语言(0)

Flash(1)