📄 add.asp

📁 7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card title="我要留言">
<p>名称(必填)：<br/>
<input name="name" title="名称" type="text" format="*M" emptyok="true" maxlength="10" value=""/><br/>
标题(必填)：<br/>
<input name="title" title="标题" type="text" format="*M" emptyok="true" maxlength="20" value=""/><br/>
内容(必填)：<br/>
<input name="text<%=minute(now)%><%=second(now)%>" title="内容" type="text" format="*M" emptyok="true" maxlength="500" value=""/><br/>
联系方式(不公开)：<br/>
<input name="lianxi" title="联系方式" type="text" format="*M" emptyok="true" maxlength="50" value=""/><br/>
性质：<br/>
<select title="性质" name="open">
<option title="公开" value="0">公开</option>
<option title="秘密" value="1">秘密</option>
</select><br/>
<%
numb=request.serverVariables("HTTP_X_UP_CALLING_LINE_ID")
numb=right(numb,11)
 if numb="" then 
%>
查看密码(秘密留言必填!)：<br/>
<input name='num' format="*N" maxlength="10" value='numb'/><br/>
<%
num1 = "$(num)"
else
num1 = numb
end if %>

选择表情：<br/>
<select  name="pic">
<option  value="pic/01.gif">--开心--</option>
<option  value="pic/02.gif">--大哭--</option>
<option  value="pic/03.gif">--鬼脸--</option>
<option  value="pic/04.gif">--不解--</option>
<option  value="pic/05.gif">--我汗--</option>
<option  value="pic/06.gif">--握手--</option>
<option  value="pic/07.gif">--发奋--</option>
<option  value="pic/08.gif">--怕怕--</option>
<option  value="pic/09.gif">--难过--</option>
<option  value="pic/10.gif">--偷笑--</option>
<option  value="pic/11.gif">--色--</option>
<option  value="pic/12.gif">--害羞--</option>
<option  value="pic/13.gif">--我晕--</option>
<option  value="pic/14.gif">--倒霉--</option>
<option  value="pic/15.gif">--我打--</option>
<option  value="pic/16.gif">--我酷--</option>
<option  value="pic/17.gif">--我闪--</option>
<option  value="pic/18.gif">--情侣--</option>
</select><br/><br/>


<anchor>确定提交
    <go href="save.asp" method="post" accept-charset="utf-8">
        <postfield name="name" value="$(name)"/>
        <postfield name="title" value="$(title)"/>
        <postfield name="text" value="$(text<%=minute(now)%><%=second(now)%>)"/>
        <postfield name="lianxi" value="$(lianxi)"/>
        <postfield name="open" value="$(open)"/>
        <postfield name="num" value="<%=num1%>"/>
        <postfield name="pic" value="$(pic)"/>
    </go>
</anchor><br/>
----------<br/>
<a href="index.asp">留言黑板</a><br/>
</p>
</card>
</wml>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -