<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open session("ODBCDSN")
%>
Untitled Document
<%
function message(tempstr)
outstring = ""
while len(tempstr) > 0
pos=instr(tempstr, chr(13)&chr(10)) 'Enter
if pos = 0 then
outstring = outstring & tempstr & "
"
tempstr = ""
else
outstring = outstring & left(tempstr, pos-1) & "
"
tempstr=mid(tempstr, pos+2)
end if
wend
message = outstring
end function
function d7date(dt) '轉成民國年 999/99/99 給資料型態為SmallDateTime 使用
if Len(dt)=0 or isnull(dt) then
d7date=""
else
xy=right("00"+ cstr((year(dt)-1911)),3) '補零
xm=right("0"+ cstr(month(dt)),2)
xd=right("0"+ cstr(day(dt)),2)
d7date=xy & "/" & xm & "/" & xd
end if
end function
%>