帮我改下这段代码

这是一段下定单的代码，原本生成定单应是具体时间，如200717230743，可生成的却是：200878下午025613。请高手帮忙改一下，谢谢啦！以下是代码！！~~~~~~~~

dim shijian,dingdan
shijian=now()
'dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
'response.write shopxpptid
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shopxp_action where username='"&username&"' and zhuangtai=7",conn,1,3
if request.Cookies("shopxp")("username")<>"" then
'dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
dingdan=now()
dingdan=replace(trim(dingdan),"-","")
dingdan=replace(dingdan,":","")
dingdan=replace(dingdan," ","")
else
dingdan=username
end if

帮我看下这代码 代码高手帮我 帮我看下这段代码 帮我看看代码 帮我写下这代码 帮我写个代码？？？ 帮我解释一下这个代码? 谁帮我改改代码 帮我解释这几段代码! 帮我翻译一下代码