PHP代码

<?php
    if(isset($_POST['Submit'])){
    $title ='myPost.php';
    echo $title;
    //the data

    $data = "Hey I am Aidan\n";

    //open the file and choose the mode

    $fh = fopen($title, "a");
    fwrite($fh, $data);

    //close the file

    fclose($fh);
    }
?>

HTML表单代码

<form action="<?php echo $title; ?>" method="post">
<input type="submit" name="Submit" value="submit">
</form>

提交表单时，我想在下一页上加载新创建的文件。

Answer 1

使用这是php移动到下一页。 Sub countdb() Dim c As Range, fnd As Range, listrng As Range, cnt As Long, addr As String ' Use with so that our ranges are fully qualified With ThisWorkbook.Sheets("Sheet1") ' Define the range to look up in (column B in this case) Set listrng = .Range("B1", .Range("B1").End(xlDown)) ' Loop over values in the index range (column For Each c In .Range("A1", .Range("A1").End(xlDown)) cnt = 0 ' Try and find the c value Set fnd = listrng.Find(what:=c.Value, lookat:=xlWhole, LookIn:=xlValues, after:=listrng.Cells(listrng.Cells.Count)) If Not fnd Is Nothing Then ' Store the address of the first find so we can stop when we find it again! addr = fnd.Address ' Loop over all other matches in the range. By using a "Do ... Loop While" ' style loop, we ensure that the loop is run at least once! Do ' Increase count and assign value to next column cnt = cnt + 1 fnd.Offset(0, 1).Value = cnt ' Find next match after current Set fnd = listrng.Find(what:=c.Value, lookat:=xlWhole, LookIn:=xlValues, after:=fnd) Loop While fnd.Address <> addr End If Next c End With End Sub 把这段代码写在你用html显示的php标签中代替你必须写的文件名.php ...也可以在你的php文件的第一行写入php标签ob_start（）; < / p>

Answer 2

关闭文件后，将用户重定向到该文件：

//close the file
fclose($fh);

// eg: /path/to/page.php. Also try $_SERVER['PHP_SELF']
$currentPath = $_SERVER['SCRIPT_NAME'];

// replace the old filename with $title
$newPath = preg_replace('#(.*/)[^/]*#','$1' . $title, $currentPath);

// Redirect browser to new file and stop.
header("Location: $newPath");
exit;

在表单提交和frwite上创建文件PHP文件

PHP代码

HTML表单代码

2 个答案: