我现在的目的是,需要首行缩进效果(首行缩进两个字),如何修改代码实现?
也就是说,我做的是一个弹出窗口,如何在显示的时候,把XX同志后移两个字.
请高手把修改后的代码附后,经我考证,可行的话再给十分(嘿嘿,一点点意思而已!)
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("shengri.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
Conn.Open connstr
dim xtdate,xm
xtdate=Month(date)&"-"&Day(date)
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from xtxt where xtbirthday = '" & xtdate & "'"
rs.Open rs.Source,conn,1,1
if rs.EOF then
response.Write("温馨提示:
请您严格遵守《信息网违规行为行政处分暂行规定》,详情请访问 信息网")
else
xm=""
do while not rs.EOF
xm=xm&rs("xtname")&","
rs.MoveNext
loop
rs.close
response.Write("")
response.write xm&"今天是您的生日,恭祝您生日快乐!开心每一天!!"
end if
set rs=nothing
conn.close
set conn=nothing