home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
221.214.14.186
/
221.214.14.186.tar
/
221.214.14.186
/
wh
/
dx
/
20.asp
< prev
next >
Wrap
Text File
|
2011-08-12
|
2KB
|
95 lines
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<link href="Connections/css/admincss.css" rel="stylesheet" type="text/css">
<title>╢╠╨┼═│╝╞</title></head>
<body>
<%
'╩²╛▌┐Γ┤≥┐¬
Dim conn,connSql
Conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/datadx.mdb")
Set connsql = Server.CreateObject("Adodb.Connection")
connsql.open conn
%>
<%
Dim sql, txt
set Rs=server.createobject("adodb.recordset")
sql="select * from dx" '┤≥┐¬╩²╛▌┐Γ▒φ
Rs.open sql,conn,1,3
txt=request.Form("content")
Response.Write("<font color=Green>╢╠╨┼─┌╚▌ú║</font>"&txt&"<br>")
Rs.addnew'╠φ╝╙╨┬─┌╚▌
rs("time")=request.Form("shij")
'if content="" then
'rs("txt")=null
' else
rs("txt")=request.Form("content")'╠φ╝╙╡╜╩²╛▌┐Γ╧α╢╘╙ª╡─╫╓╢╬
'end if
rs.update'╕ⁿ╨┬╩²╛▌┐Γ
rs.close
set rs=nothing
%>
<p>
<form name="myform" method="post" action="20.asp">
<table width="400" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#0066FF">
<tr>
<td height="40" colspan="3" align="center" bgcolor="#99CCFF">╩▒╝Σ
<label>
<input name="shij" type="text" id="shij" value="<%=date()%>">
</label></td>
</tr>
<tr>
<td height="40" colspan="3" width="20" bgcolor="#99CCFF">
<table width="714">
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="50" colspan="2" bgcolor="#99CCFF"><textarea name="content" cols="100" rows="10"
id="content"></textarea></td>
</tr>
<tr>
<td height="40" colspan="3" align="center" bgcolor="#99CCFF"><input type="submit" name="Submit"
value="╠φ╝╙╢╠╨┼">
<input type="reset" name="Submit2" value="╓╪╨┬╠φ╝╙"></td></tr>
</table>
</form>
</body>
</html>