|
|
 |
|
food / 2000-11-22 / 오후 1:15:27 / 210.219.185.189
조회수 : 108
|
| [질문] 영문게시판에서 ...< |
게시판에 표시되는 시간을 오전,오후가 아닌AM,PM으로
바꾸고 싶은데 ..
SQL = "INSERT INTO my (name,email,homepage,title,content,num,"
SQL = SQL & " readnum,writeday,pwd) VALUES "
SQL = SQL & "('" & name & "'"
SQL = SQL & ",'" & email & "'"
SQL = SQL & ",'" & homepage & "'"
SQL = SQL & ",'" & title & "'"
SQL = SQL & ",'" & content & "'"
SQL = SQL & "," & number
SQL = SQL & ", 0 ,'" & now() & "'"
SQL = SQL & ",'" & pwd & "')"
writeday의 함수를 now가아닌 다른것으로 바꾸어야하는지요 소스는 이것입니다.<%
'request객체를 통해 넘어온 값들을 변수에 저장한다. (추천되는 방법이다)
name = request("name")
email = request("email")
homepage = request("homepage")
title = request("title")
pwd = request("pwd")
content = request("content")
'쿼리에 '가 들어가면 에러가 나기에 그것을 replace 처리해준다.
title = replace(title,"'","''")
content = replace(content,"'","''")
content = replace(content,"|","chr(124)_pipe")
'HTML 태그(tag) 효과를 제한하고 싶으시다면
'title = replace(title,"&","&")
'title = replace(title,"<","<")
'title = replace(title,">",">")
'content = replace(content,"&","&")
'content = replace(content,"<","<")
'content = replace(content,">",">")
Set db = Server.CreateObject("ADODB.Connection")
db.Open("DSN=sql;UID=sa;PWD=;")
SQL = "Select Max(num) from my"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, db
If IsNULL(rs(0)) Then
number = 1
else
number = rs(0) + 1
End If
SQL = "INSERT INTO my (name,email,homepage,title,content,num,"
SQL = SQL & " readnum,writeday,pwd) VALUES "
SQL = SQL & "('" & name & "'"
SQL = SQL & ",'" & email & "'"
SQL = SQL & ",'" & homepage & "'"
SQL = SQL & ",'" & title & "'"
SQL = SQL & ",'" & content & "'"
SQL = SQL & "," & number
SQL = SQL & ", 0 ,'" & now() & "'"
SQL = SQL & ",'" & pwd & "')"
' Response.Write sql
db.Execute SQL
rs.Close
db.close
Set rs = Nothing
Set db = Nothing
Response.redirect "list.asp"
%>
|
|
|
|